+ Use TEditorInputLine instead of TInputLine

ide/fpcodcmp.pas

@@ -20,7 +20,7 @@ unit FPCodCmp; { CodeComplete }
 interface
 
 uses Objects,Drivers,Dialogs,
-     WUtils,WViews;
+     WEditor,WUtils,WViews;
 
 type
      PCodeCompleteWordList = ^TCodeCompleteWordList;
@@ -36,7 +36,7 @@ type
       CodeCompleteLB : PAdvancedListBox;
       RB : PRadioButtons;
       CB : PCheckBoxes;
-      MinInputL,InputL : PInputLine;
+      MinInputL,InputL : PEditorInputLine;
       procedure Add;
       procedure Edit;
       procedure Delete;
@@ -69,8 +69,8 @@ uses App,Views,MsgBox,Validate,
      Commands,
 {$endif}
      systems, BrowCol,
-     WEditor, FPSwitch,
-     FPCompil, FPVars, FPSymbol,
+     FPSwitch, FPCompil,
+     FPVars, FPSymbol,
      FPConst,FPString,FPViews;
 
 {$ifndef NOOBJREG}
@@ -638,7 +638,10 @@ END.
 
 {
  $Log$
- Revision 1.11  2002-09-26 13:00:41  pierre
+ Revision 1.12  2002-12-18 01:19:20  pierre
+  + Use TEditorInputLine instead of TInputLine
+
+ Revision 1.11  2002/09/26 13:00:41  pierre
   * avoid RTE 213
 
  Revision 1.10  2002/09/11 13:12:42  pierre

ide/fpdebug.pas

@@ -183,9 +183,9 @@ type
       Breakpoint : PBreakpoint;
       TypeRB   : PRadioButtons;
       NameIL  : PEditorInputLine;
-      ConditionsIL: PInputLine;
-      LineIL    : PInputLine;
-      IgnoreIL  : PInputLine;
+      ConditionsIL: PEditorInputLine;
+      LineIL    : PEditorInputLine;
+      IgnoreIL  : PEditorInputLine;
     end;
 
     PWatch = ^TWatch;
@@ -3574,7 +3574,10 @@ end.
 
 {
   $Log$
-  Revision 1.42  2002-12-16 15:15:40  pierre
+  Revision 1.43  2002-12-18 01:20:12  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.42  2002/12/16 15:15:40  pierre
    * Added TBreakpointCollection.FindBreakpointAt method
 
   Revision 1.41  2002/12/16 09:05:28  pierre

ide/fpmopts.inc

@@ -66,7 +66,7 @@ var R,R2,R3,TabR,TabIR: TRect;
     CB1,CB2,CB3,CB4,CB5: PCheckBoxes;
     RB1,{RB2,}RB3,RB4,RB5,RB6: PRadioButtons;
     Items: PSItem;
-    IL: PInputLine;
+    IL: PEditorInputLine;
     Count : integer;
     I,L: longint;
     Tab: PTab;
@@ -445,9 +445,9 @@ var R,R2,R3: TRect;
     CB2: PCheckBoxes;
 {$endif win32}
 {$ifdef Unix}
-    IL: PInputLine;
+    IL: PEditorInputLine;
 {$endif Unix}
-    IL2: PInputLine;
+    IL2: PEditorInputLine;
     L,I: longint;
     Items: PSItem;
 const
@@ -556,7 +556,7 @@ end;
 procedure TIDEApp.DoRemote;
 
 var R,R2: TRect;
-    IL1,IL2,IL3,IL4,IL5,IL6: PInputLine;
+    IL1,IL2,IL3,IL4,IL5,IL6: PEditorInputLine;
     D: PCenterDialog;
 const
   FieldLines = 6;
@@ -638,7 +638,7 @@ end;
 procedure TIDEApp.Directories;
 var R,R2: TRect;
     D: PCenterDialog;
-    IL : array[0..11] of PInputLine;
+    IL : array[0..11] of PEditorInputLine;
     Count,I : integer;
 const
   LW = 25;
@@ -905,7 +905,7 @@ var D: PCenterDialog;
     R,R2,R3: TRect;
     CB: PCheckBoxes;
     ILTab,ILIdent: PIntegerLine;
-    ExtIL,TabExtIL: PInputLine;
+    ExtIL,TabExtIL: PEditorInputLine;
     TabSize,IndentSize: Integer;
     EFlags,EFValue: Longint;
     Title: string;
@@ -1367,7 +1367,10 @@ end;
 
 {
   $Log$
-  Revision 1.10  2002-11-28 12:56:23  pierre
+  Revision 1.11  2002-12-18 01:21:42  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.10  2002/11/28 12:56:23  pierre
    + Remote dialog added
 
   Revision 1.9  2002/11/21 00:37:56  pierre

ide/fpmrun.inc

@@ -294,7 +294,7 @@ end;
 procedure TIDEApp.Parameters;
 var R,R2: TRect;
     D: PCenterDialog;
-    IL: PInputLine;
+    IL: PEditorInputLine;
 begin
   R.Assign(0,0,round(ScreenWidth*54/80),4);
   New(D, Init(R, dialog_programparameters));
@@ -495,7 +495,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  2002-12-16 09:06:08  pierre
+  Revision 1.8  2002-12-18 01:21:42  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.7  2002/12/16 09:06:08  pierre
    * don't insert breakpoints in unsaved sources
 
   Revision 1.6  2002/10/12 19:43:07  hajny

ide/fpmsrch.inc

@@ -17,7 +17,7 @@
 function ProcedureDialog(S : string) : PDialog;
 var D: PDialog;
     R,R1,R2: TRect;
-    IL: PInputLine;
+    IL: PEditorInputLine;
 begin
   R.Assign(0,0,40,8);
   New(D, Init(R, dialog_proceduredialog));
@@ -189,7 +189,7 @@ end;
 function SymbolDialog(S : string) : PDialog;
 var D: PDialog;
     R,R1,R2: TRect;
-    IL: PInputLine;
+    IL: PEditorInputLine;
 begin
   R.Assign(0,0,40,8);
   New(D, Init(R, dialog_browsesymbol));
@@ -228,7 +228,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:44  peter
+  Revision 1.4  2002-12-18 01:21:42  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.3  2002/09/07 15:40:44  peter
     * old logs removed and tabs fixed
 
 }

ide/fpmtools.inc

@@ -210,7 +210,7 @@ var
   PGrepDialog : PCenterDialog;
   R,R1,R2 : TRect;
   Control : PView;
-  IL1,IL2 : PInputLine;
+  IL1,IL2 : PEditorInputLine;
   s : string;
   p,lineNb,GrepOutputLine : longint;
   error : word;
@@ -384,7 +384,10 @@ end;
 
 {
   $Log$
-  Revision 1.5  2002-09-07 15:40:44  peter
+  Revision 1.6  2002-12-18 01:21:42  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.5  2002/09/07 15:40:44  peter
     * old logs removed and tabs fixed
 
   Revision 1.4  2002/08/29 10:06:33  pierre

ide/fptools.pas

@@ -20,7 +20,7 @@ interface
 
 uses Objects,Drivers,Views,Dialogs,Validate,
      BrowCol,
-     WViews,
+     WEditor,WViews,
      FPViews;
 
 const
@@ -67,9 +67,9 @@ type
       function    Execute: Word; virtual;
     private
       Tool     : PTool;
-      TitleIL  : PInputLine;
-      ProgramIL: PInputLine;
-      ParamIL  : PInputLine;
+      TitleIL  : PEditorInputLine;
+      ProgramIL: PEditorInputLine;
+      ParamIL  : PEditorInputLine;
       HotKeyRB : PRadioButtons;
     end;
 
@@ -160,7 +160,7 @@ uses Dos,
      Commands,
 {$endif}
      App,MsgBox,
-     WConsts,WUtils,WINI,WEditor,
+     WConsts,WUtils,WINI,
      FPConst,FPString,FPVars,FPUtils;
 
 {$ifndef NOOBJREG}
@@ -896,7 +896,7 @@ var R: TRect;
     OK: boolean;
     I,J,MaxLen: integer;
     Memo: PFPMemo;
-    IL: PInputLine;
+    IL: PEditorInputLine;
     CB: PCheckBoxes;
     RB: PRadioButtons;
     LV: PLabel;
@@ -1621,7 +1621,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  2002-09-07 15:40:46  peter
+  Revision 1.5  2002-12-18 01:21:16  pierre
+   + Use TEditorInputLine instead of TInputLine
+
+  Revision 1.4  2002/09/07 15:40:46  peter
     * old logs removed and tabs fixed
 
   Revision 1.3  2002/08/29 10:05:01  pierre