Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show waitCursor while collecting
authorClaus Gittinger <cg@exept.de>
Tue, 06 Feb 1996 21:55:20 +0100
changeset 350 68c5fed6c9bc
parent 349 a927f39271d5
child 351 27d229f6bfdb
show waitCursor while collecting
MemMonitor.st file | annotate | diff | comparison | revisions
MemoryMonitor.st file | annotate | diff | comparison | revisions 
--- a/MemMonitor.st	Tue Feb 06 21:30:12 1996 +0100
+++ b/MemMonitor.st	Tue Feb 06 21:55:20 1996 +0100
@@ -658,30 +658,42 @@
 and the systems response time suffers from paging.
 
 Compress anyway ?') ifTrue:[
-        Smalltalk compressSources.
-        ObjectMemory markAndSweep
+        windowGroup withWaitCursorDo:[
+            Smalltalk compressSources.
+            ObjectMemory markAndSweep
+        ]
     ]
 
-    "Modified: 23.12.1995 / 17:21:57 / cg"
+    "Modified: 2.1.1996 / 12:17:23 / cg"
 !
 
 compressingGarbageCollect
     "perform a blocking compressing garbage collect."
 
-    ObjectMemory verboseGarbageCollect
+    windowGroup withWaitCursorDo:[
+        ObjectMemory verboseGarbageCollect
+    ]
 !
 
 garbageCollect
     "perform a blocking (non compressing) garbage collect"
 
-    ObjectMemory markAndSweep
+    windowGroup withWaitCursorDo:[
+        ObjectMemory markAndSweep
+    ]
+
+    "Modified: 2.1.1996 / 12:17:33 / cg"
 !
 
 garbageCollectAndSymbols
     "perform a blocking (non compressing) garbage collect
      and reclaim unreferenced symbols."
 
-    ObjectMemory reclaimSymbols
+    windowGroup withWaitCursorDo:[
+        ObjectMemory reclaimSymbols
+    ]
+
+    "Modified: 2.1.1996 / 12:17:36 / cg"
 !
 
 incrementalCollect
@@ -733,5 +745,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.30 1995-12-23 17:43:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.31 1996-02-06 20:55:20 cg Exp $'
 ! !
--- a/MemoryMonitor.st	Tue Feb 06 21:30:12 1996 +0100
+++ b/MemoryMonitor.st	Tue Feb 06 21:55:20 1996 +0100
@@ -658,30 +658,42 @@
 and the systems response time suffers from paging.
 
 Compress anyway ?') ifTrue:[
-        Smalltalk compressSources.
-        ObjectMemory markAndSweep
+        windowGroup withWaitCursorDo:[
+            Smalltalk compressSources.
+            ObjectMemory markAndSweep
+        ]
     ]
 
-    "Modified: 23.12.1995 / 17:21:57 / cg"
+    "Modified: 2.1.1996 / 12:17:23 / cg"
 !
 
 compressingGarbageCollect
     "perform a blocking compressing garbage collect."
 
-    ObjectMemory verboseGarbageCollect
+    windowGroup withWaitCursorDo:[
+        ObjectMemory verboseGarbageCollect
+    ]
 !
 
 garbageCollect
     "perform a blocking (non compressing) garbage collect"
 
-    ObjectMemory markAndSweep
+    windowGroup withWaitCursorDo:[
+        ObjectMemory markAndSweep
+    ]
+
+    "Modified: 2.1.1996 / 12:17:33 / cg"
 !
 
 garbageCollectAndSymbols
     "perform a blocking (non compressing) garbage collect
      and reclaim unreferenced symbols."
 
-    ObjectMemory reclaimSymbols
+    windowGroup withWaitCursorDo:[
+        ObjectMemory reclaimSymbols
+    ]
+
+    "Modified: 2.1.1996 / 12:17:36 / cg"
 !
 
 incrementalCollect
@@ -733,5 +745,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.30 1995-12-23 17:43:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.31 1996-02-06 20:55:20 cg Exp $'
 ! !
hg/stx-libtool