+ fill the Now field for Editor actions

ide/wcedit.pas

@@ -742,6 +742,7 @@ begin
   dec(UndoList^.GroupLevel);
   if UndoList^.GroupLevel=0 then
     begin
+      UndoList^.CurrentGroupedAction^.TimeStamp:=now;
       UndoList^.Insert(UndoList^.CurrentGroupedAction);
       UndoList^.CurrentGroupedAction:=nil;
       UpdateUndoRedo(cmUndo,AAction);
@@ -2046,7 +2047,10 @@ end;
 END.
 {
  $Log$
- Revision 1.9  2002-04-20 20:27:44  pierre
+ Revision 1.10  2002-08-26 13:01:39  pierre
+  + fill the Now field for Editor actions
+
+ Revision 1.9  2002/04/20 20:27:44  pierre
   * avoid considering grouped action if StoreUnfo is false
 
  Revision 1.8  2002/04/16 08:27:01  pierre

ide/weditor.pas

@@ -977,7 +977,7 @@ begin
   upper[0]:=s[0];
 end;
 
-type TPosOfs = {$ifdef TP}longint{$endif}{$ifdef FPC}comp{$endif};
+type TPosOfs = {$ifdef TP}longint{$endif}{$ifdef FPC}int64{$endif};
 
 function PosToOfs(const X,Y: sw_integer): TPosOfs;
 type TPosRec = record LoI, HiI: sw_integer; end;
@@ -6693,6 +6693,7 @@ begin
   Text:=NewStr(txt);
   ActionCount:=0;
   Flags:=AFlags;
+  TimeStamp:=Now;
   IsGrouped:=false;
 end;
 
@@ -7103,7 +7104,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.22  2002-06-13 14:50:35  pierre
+  Revision 1.23  2002-08-26 13:01:38  pierre
+   + fill the Now field for Editor actions
+
+  Revision 1.22  2002/06/13 14:50:35  pierre
    * try to improove tabs handling in DelChar and InsertLine methods
 
   Revision 1.21  2002/06/06 07:04:00  pierre