equal
deleted
inserted
replaced
90 |
90 |
91 "Modified: 14.10.1997 / 21:30:23 / cg" |
91 "Modified: 14.10.1997 / 21:30:23 / cg" |
92 ! ! |
92 ! ! |
93 |
93 |
94 !MemoryUsageView methodsFor:'menu actions'! |
94 !MemoryUsageView methodsFor:'menu actions'! |
|
95 |
|
96 browseClass |
|
97 |class| |
|
98 |
|
99 list selection notNil ifTrue:[ |
|
100 class := (info at:(list selection)) at:1. |
|
101 UserPreferences current systemBrowserClass openInClass:class. |
|
102 ] |
|
103 ! |
95 |
104 |
96 collectGarbageAndUpdate |
105 collectGarbageAndUpdate |
97 self withWaitCursorDo:[ |
106 self withWaitCursorDo:[ |
98 ObjectMemory tenure. |
107 ObjectMemory tenure. |
99 ObjectMemory compressingGarbageCollect. |
108 ObjectMemory compressingGarbageCollect. |
447 ('Inspect with Search' inspectInstancesWithSearch ) |
456 ('Inspect with Search' inspectInstancesWithSearch ) |
448 ('Inspect Owners' inspectOwners ) |
457 ('Inspect Owners' inspectOwners ) |
449 ('Ref Chains' displayGlobalRefChainsToInsts ) |
458 ('Ref Chains' displayGlobalRefChainsToInsts ) |
450 ('Clear (nil) Instances' nilInstances ) |
459 ('Clear (nil) Instances' nilInstances ) |
451 ('-') |
460 ('-') |
|
461 ('Browse Class' browseClass ) |
|
462 ('-') |
452 ('Update' update ) |
463 ('Update' update ) |
453 ('Collect Garbage & Update' collectGarbageAndUpdate ) |
464 ('Collect Garbage & Update' collectGarbageAndUpdate ) |
454 ) |
465 ) |
455 resources:resources. |
466 resources:resources. |
456 |
467 |
665 ! ! |
676 ! ! |
666 |
677 |
667 !MemoryUsageView class methodsFor:'documentation'! |
678 !MemoryUsageView class methodsFor:'documentation'! |
668 |
679 |
669 version |
680 version |
670 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.52 2010-01-20 21:05:44 cg Exp $' |
681 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.53 2010-03-09 14:44:55 cg Exp $' |
671 ! |
682 ! |
672 |
683 |
673 version_CVS |
684 version_CVS |
674 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.52 2010-01-20 21:05:44 cg Exp $' |
685 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.53 2010-03-09 14:44:55 cg Exp $' |
675 ! ! |
686 ! ! |