MG: removed unused

git-svn-id: trunk@1556 -

components/codetools/linkscanner.pas

@@ -1108,6 +1108,8 @@ begin
     Values.Variables[FDirectiveName]:='PRELOAD'
   else if (FDirectiveName='LOCALSYMBOLS') then
     // ignore link object directive
+  else if (FDirectiveName='RANGECHECKS') then
+    // ignore link object directive
   else begin
     RaiseException(
       'invalid flag value "'+copy(UpperSrc,ValStart,SrcPos-ValStart)+'"'

designer/designer.pp

@@ -148,7 +148,7 @@ implementation
 
 
 uses
-  Sysutils, Typinfo, Math;
+  Sysutils, Math;
 
 
 const

ide/editdefinetree.pas

@@ -31,6 +31,8 @@ uses
 procedure CreateProjectDefineTemplate(CompOpts: TCompilerOptions;
   const SrcPath: string);
 procedure SetAdditionalGlobalSrcPathToCodeToolBoss(const SrcPath: string);
+function FindCurrentProjectDirTemplate: TDefineTemplate;
+function FindCurrentProjectDirSrcPathTemplate: TDefineTemplate;
 
 const
   ProjectDirDefTemplName = 'Current Project Directory';

ide/main.pp

@@ -3014,6 +3014,10 @@ begin
     SaveDialog.Title:='Save Project '+Project1.Title+' (*.lpi)';
     
     // build a nice project info filename suggestion
+    NewFilename:='';
+    if (Project1.MainUnit>=0) then
+      NewFileName:=Project1.MainUnitInfo.UnitName;
+    if NewFilename='' then
       NewFilename:=ExtractFileName(Project1.ProjectInfoFile);
     if NewFilename='' then
       NewFilename:=ExtractFileName(Project1.MainFilename);
@@ -3021,7 +3025,8 @@ begin
       NewFilename:=Trim(Project1.Title);
     if NewFilename='' then
       NewFilename:='project1';
-    if ExtractFileExt(NewFilename)='' then
+    Ext:=lowercase(ExtractFileExt(NewFilename));
+    if (Ext='') or FilenameIsPascalUnit(NewFilename) or (Ext='.dpr') then
       NewFilename:=ChangeFileExt(NewFilename,'.lpi');
     SaveDialog.FileName:=NewFilename;
     
@@ -3069,11 +3074,12 @@ begin
       end;
       
       // apply naming conventions
+      NewProgramName:=ExtractFileNameOnly(NewProgramFilename);
       if EnvironmentOptions.PascalFileLowerCase then
         NewFileName:=ExtractFilePath(NewFilename)
                     +lowercase(ExtractFileName(NewFilename));
 
-      if Project1.ProjectType in [ptApplication,ptProgram] then begin
+      if Project1.MainUnit>=0 then begin
         // check mainunit filename
         NewProgramFilename:=ChangeFileExt(
           NewFilename,ProjectDefaultExt[Project1.ProjectType]);
@@ -3086,15 +3092,14 @@ begin
           continue; // try again
         end;
         // check programname
-        NewProgramName:=ExtractFileNameOnly(NewProgramFilename);
         if FilenameIsPascalUnit(NewProgramFilename)
         and (Project1.IndexOfUnitWithName(NewProgramName,true,
                                        Project1.MainUnitInfo)>=0) then
         begin
-          ACaption:='Unit identifier already exists';
+          ACaption:='Unit identifier exists';
-          AText:='A unit with the name "'+NewProgramName+'" already exists'
+          AText:='There is a unit with the name "'+NewProgramName+'"'
-              +' in the Project1.'#13
+              +' in the project.'#13
-              +'Plz choose different name';
+              +'Plz choose a different name';
           Result:=MessageDlg(ACaption,AText,mtError,[mbRetry,mbAbort],0);
           if Result=mrAbort then exit;
           continue; // try again
@@ -6170,6 +6175,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.261  2002/03/28 00:11:04  lazarus
+  MG: removed unused
+
   Revision 1.260  2002/03/27 11:35:56  lazarus
   MG: removed ide_debugger.inc
 

ide/project.pp

@@ -1208,10 +1208,10 @@ end;
 procedure TProject.SetProjectInfoFile(const NewFilename:string);
 begin
   if NewFilename='' then exit;
-  fProjectInfoFile:=NewFilename;
   if (AnsiCompareText(fTitle,ExtractFileNameOnly(fProjectInfoFile))=0)
-  or (fProjectInfoFile='') then
+  or (fProjectInfoFile='') or (fTitle='') then
     fTitle:=ExtractFileNameOnly(NewFilename);
+  fProjectInfoFile:=NewFilename;
 
   Modified:=true;
 end;
@@ -1355,6 +1355,9 @@ end.
 
 {
   $Log$
+  Revision 1.57  2002/03/28 00:11:06  lazarus
+  MG: removed unused
+
   Revision 1.56  2002/03/25 16:48:26  lazarus
   MG: clean ups for main.pp, many minor fixes
 

ide/uniteditor.pp

@@ -466,7 +466,7 @@ implementation
 
 
 uses
-  LCLType, LCLLinux, TypInfo, LResources, LazConf, EnvironmentOpts, UnitInfoDlg;
+  LCLType, LCLLinux, TypInfo, LResources, LazConf, EnvironmentOpts;
 
 type
   TCompletionType = (ctNone, ctWordCompletion, ctTemplateCompletion,
@@ -1001,7 +1001,6 @@ Function TSourceEditor.ccParse(Texts : String) : TStrings;
 const
   symtable = '---Symtable ';
   Level1 = '  ***';
-  Level2 = '    ***';
 
   kdClass = 1;
   kdProcedure = 2;