* add Status when loading/saving files

ide/text/fpdesk.pas

@@ -18,7 +18,7 @@ unit FPDesk;
 interface
 
 const
-     DesktopVersion     = $0003; { <- if you change any Load&Store methods,
+     DesktopVersion     = $0004; { <- if you change any Load&Store methods,
                                       then you should also change this }
 
      ResDesktopFlags    = 'FLAGS';
@@ -414,7 +414,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.13  1999-09-20 15:37:59  pierre
+  Revision 1.14  1999-11-25 00:25:43  pierre
+   * add Status when loading/saving files
+
+  Revision 1.13  1999/09/20 15:37:59  pierre
    * ReadOpenWindows and ReadSymobls was missing, still does not work correctly :(
 
   Revision 1.12  1999/09/17 16:41:10  pierre

ide/text/fpviews.pas

@@ -1187,18 +1187,23 @@ end;
 
 constructor TSourceWindow.Load(var S: TStream);
 begin
+  Title:=S.ReadStr;
+  PushStatus('Loading '+GetStr(Title));
   inherited Load(S);
-
   GetSubViewPtr(S,Indicator);
   GetSubViewPtr(S,Editor);
+  PopStatus;
 end;
 
 procedure TSourceWindow.Store(var S: TStream);
 begin
+  S.WriteStr(Title);
+  PushStatus('Storing '+GetStr(Title));
   inherited Store(S);
 
   PutSubViewPtr(S,Indicator);
   PutSubViewPtr(S,Editor);
+  PopStatus;
 end;
 
 destructor TSourceWindow.Done;
@@ -2850,7 +2855,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.48  1999-11-22 16:02:12  pierre
+  Revision 1.49  1999-11-25 00:25:43  pierre
+   * add Status when loading/saving files
+
+  Revision 1.48  1999/11/22 16:02:12  pierre
    * TryToOpenFile failed tofind a sourcewindow if it has no number
 
   Revision 1.47  1999/11/18 13:39:24  pierre