* getheapstatus fix

fv/gadgets.pas

@@ -180,11 +180,28 @@ end;
 {  Update -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Nov99 LdB            }
 {---------------------------------------------------------------------------}
 PROCEDURE THeapView.Update;
+
+var
+{$ifdef HASGETHEAPSTATUS}
+  status : THeapStatus;
+  newmem : ptrint;
+{$else}
+  newmem : longint;
+{$endif}
 BEGIN
+  {$ifdef HASGETHEAPSTATUS}
+    getheapstatus(status);
+    If (OldMem <> status.CurrHeapFree) Then 
+    Begin                 { Memory differs }
+      OldMem := status.CurrHeapFree;                              { Hold memory avail }
+      DrawView;                                        { Now redraw }
+    End;
+  {$else}
    If (OldMem <> MemAvail) Then Begin                 { Memory differs }
      OldMem := MemAvail;                              { Hold memory avail }
      DrawView;                                        { Now redraw }
    End;
+  {$endif}
 END;
 
 {--THeapView----------------------------------------------------------------}
@@ -304,7 +321,10 @@ END;
 END.
 {
  $Log$
- Revision 1.7  2004-11-06 17:08:48  peter
+ Revision 1.8  2004-11-23 09:33:48  marco
+  * getheapstatus fix
+
+ Revision 1.7  2004/11/06 17:08:48  peter
    * drawing of tview merged from old fv code
 
 }