equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libtool' }" |
14 "{ Package: 'stx:libtool' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 View subclass:#MemoryMonitorView |
18 View subclass:#MemoryMonitorView |
15 instanceVariableNames:'updateInterval updateBlock myProcess oldData newData freeData |
19 instanceVariableNames:'updateInterval updateBlock myProcess oldData newData freeData |
16 updateIndex org maxTotal minTotal dX newColor freeColor oldColor |
20 updateIndex org maxTotal minTotal dX newColor freeColor oldColor |
17 prevTotal prevLimit prevFree prevFree2 prevOld scale drawLock |
21 prevTotal prevLimit prevFree prevFree2 prevOld scale drawLock |
755 which is kept for all changed methods in the system. |
759 which is kept for all changed methods in the system. |
756 After that, the browsers cannot easily switch back to a methods |
760 After that, the browsers cannot easily switch back to a methods |
757 previous version. |
761 previous version. |
758 |
762 |
759 However, this is normally not a problem, since |
763 However, this is normally not a problem, since |
760 a methods previous code should still be accessable through |
764 a methods previous code should still be accessible through |
761 either the changes-file, the sourceCode repository or the classes original |
765 either the changes-file, the sourceCode repository or the classes original |
762 source file. |
766 source file. |
763 |
767 |
764 cleanup now ?') ifTrue:[ |
768 cleanup now ?') ifTrue:[ |
765 |
769 |
773 " |
777 " |
774 finally, compress |
778 finally, compress |
775 " |
779 " |
776 ObjectMemory verboseGarbageCollect. |
780 ObjectMemory verboseGarbageCollect. |
777 ] |
781 ] |
778 |
|
779 |
|
780 |
|
781 ! |
782 ! |
782 |
783 |
783 collectGarbage |
784 collectGarbage |
784 "perform a blocking (non compressing) garbage collect" |
785 "perform a blocking (non compressing) garbage collect" |
785 |
786 |
1044 ! ! |
1045 ! ! |
1045 |
1046 |
1046 !MemoryMonitorView class methodsFor:'documentation'! |
1047 !MemoryMonitorView class methodsFor:'documentation'! |
1047 |
1048 |
1048 version |
1049 version |
1049 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.24 2014-02-18 16:46:42 stefan Exp $' |
1050 ^ '$Header$' |
1050 ! |
1051 ! |
1051 |
1052 |
1052 version_CVS |
1053 version_CVS |
1053 ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.24 2014-02-18 16:46:42 stefan Exp $' |
1054 ^ '$Header$' |
1054 ! ! |
1055 ! ! |
1055 |
1056 |