Browse Source

* fixed uppercase filenames
* savetostream did twice a -1 on the linecount, so the lastline of a
file wasn't saved correctly

peter 26 years ago
parent
commit
8830a9fb4a
2 changed files with 18 additions and 9 deletions
  1. 12 7
      ide/text/fpconst.pas
  2. 6 2
      ide/text/weditor.pas

+ 12 - 7
ide/text/fpconst.pas

@@ -34,12 +34,12 @@ const
      SwitchesName         = 'fp.cfg';
      SwitchesName         = 'fp.cfg';
      DesktopName          = 'fp.dsk';
      DesktopName          = 'fp.dsk';
 
 
-     ToolCaptureName      = '__TOOL__.OUT'; { all '$' signs replaces with '_'s }
-     FilterCaptureName    = '_FILTER_.OUT';
-     FPOutFileName        = 'FP___.OUT';
-     FPErrFileName        = 'FP___.ERR';
-     GDBOutFileName       = 'GDB___.OUT';
-     GDBOutPutFileName    = 'GDB___.txt';
+     ToolCaptureName      = '__tool__.out'; { all '$' signs replaces with '_'s }
+     FilterCaptureName    = '_filter_.out';
+     FPOutFileName        = 'fp___.out';
+     FPErrFileName        = 'fp___.err';
+     GDBOutFileName       = 'gdb___.out';
+     GDBOutPutFileName    = 'gdb___.txt';
 
 
      HelpFileExts         = '*.tph;*.htm*';
      HelpFileExts         = '*.tph;*.htm*';
 
 
@@ -365,7 +365,12 @@ implementation
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.29  1999-10-27 12:10:42  pierre
+  Revision 1.30  1999-11-03 09:39:23  peter
+    * fixed uppercase filenames
+    * savetostream did twice a -1 on the linecount, so the lastline of a
+      file wasn't saved correctly
+
+  Revision 1.29  1999/10/27 12:10:42  pierre
     + With DebugUndo added 3 menu items
     + With DebugUndo added 3 menu items
       "Dump Undo" "Undo All" and "Redo All"
       "Dump Undo" "Undo All" and "Redo All"
       for Undo checks
       for Undo checks

+ 6 - 2
ide/text/weditor.pas

@@ -4326,7 +4326,6 @@ begin
     begin
     begin
       if EndP.Y>0 then
       if EndP.Y>0 then
         begin
         begin
-          Dec(EndP.Y);
           EndP.X:=length(GetDisplayText(EndP.Y));
           EndP.X:=length(GetDisplayText(EndP.Y));
         end
         end
       else
       else
@@ -4928,7 +4927,12 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.58  1999-10-28 15:14:22  pierre
+  Revision 1.59  1999-11-03 09:39:23  peter
+    * fixed uppercase filenames
+    * savetostream did twice a -1 on the linecount, so the lastline of a
+      file wasn't saved correctly
+
+  Revision 1.58  1999/10/28 15:14:22  pierre
    * get it to compile with debug conditional
    * get it to compile with debug conditional
 
 
   Revision 1.56  1999/10/27 13:32:58  pierre
   Revision 1.56  1999/10/27 13:32:58  pierre