MemoryUsageView.st
changeset 18306 4ac6223153b1
parent 18303 df3059da7260
child 18308 4432821a4e1f
equal deleted inserted replaced
18305:0a918ffa75f3 18306:4ac6223153b1
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1992 by Claus Gittinger
     4  COPYRIGHT (c) 1992 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
   200 
   202 
   201     (class := self selectedClass) isNil ifTrue:[ ^ self ].
   203     (class := self selectedClass) isNil ifTrue:[ ^ self ].
   202     class browserClass openInClass:class.
   204     class browserClass openInClass:class.
   203 
   205 
   204     "Modified: / 11-05-2011 / 14:34:38 / cg"
   206     "Modified: / 11-05-2011 / 14:34:38 / cg"
       
   207 !
       
   208 
       
   209 browseReferencesToClass
       
   210     |class|
       
   211 
       
   212     (class := self selectedClass) isNil ifTrue:[ ^ self ].
       
   213     SystemBrowser default browseReferendsOf:class name
       
   214 
       
   215     "Created: / 29-07-2018 / 15:22:11 / Claus Gittinger"
   205 !
   216 !
   206 
   217 
   207 collectGarbageAndUpdate
   218 collectGarbageAndUpdate
   208     self withWaitCursorDo:[
   219     self withWaitCursorDo:[
   209 	ObjectMemory tenure.
   220 	ObjectMemory tenure.
   595                      ('Sort by Maximum Size'            sortByMaxSize                           )
   606                      ('Sort by Maximum Size'            sortByMaxSize                           )
   596                      ('Sort by Inst Allocation Rate'    sortByInstanceAllocationRate            )
   607                      ('Sort by Inst Allocation Rate'    sortByInstanceAllocationRate            )
   597                      ('Sort by Byte Allocation Rate'    sortByMemoryAllocationRate              )
   608                      ('Sort by Byte Allocation Rate'    sortByMemoryAllocationRate              )
   598                      ('-')
   609                      ('-')
   599                      ('Inspect Instances'               inspectInstances                        )
   610                      ('Inspect Instances'               inspectInstances                        )
   600                      ('Inspect Largest Instances'       inspectLargestInstances                        )
   611                      ('Inspect Largest Instances'       inspectLargestInstances                 )
   601                      ('Inspect with Search'             inspectInstancesWithSearch              )
   612                      ('Inspect with Search'             inspectInstancesWithSearch              )
   602                      ('Inspect Owners'                  inspectOwners                           )
   613                      ('Inspect Owners'                  inspectOwners                           )
   603                      ('-')
   614                      ('-')
   604                      ('Ref Chains'                      displayGlobalRefChainsToInsts           )
   615                      ('Ref Chains'                      displayGlobalRefChainsToInsts           )
   605                      ('Clear (nil) Instances'           nilInstances                            )
   616                      ('Clear (nil) Instances'           nilInstances                            )
   606                      ('-')
   617                      ('-')
   607                      ('Browse Class'                    browseClass                             )
   618                      ('Browse Class'                    browseClass                             )
   608                      ('Size Histogram'                  showSizeHistogram                             )
   619                      ('Browse References to Class'      browseReferencesToClass                 )
       
   620                      ('Size Histogram'                  showSizeHistogram                       )
   609                      ('-')
   621                      ('-')
   610                      ('Collect Garbage & Update'        collectGarbageAndUpdate                 )
   622                      ('Collect Garbage & Update'        collectGarbageAndUpdate                 )
   611                      ('Start Autoupdate'                startAutoUpdateProcess                  )
   623                      ('Start Autoupdate'                startAutoUpdateProcess                  )
   612                      ('Autoupdate Interval...'          openAutoUpdateIntervalDialog            )
   624                      ('Autoupdate Interval...'          openAutoUpdateIntervalDialog            )
   613                      ('Update'                          update                                  )
   625                      ('Update'                          update                                  )
   629         m disableAll:#(removeFilter)
   641         m disableAll:#(removeFilter)
   630     ].
   642     ].
   631     ^ m
   643     ^ m
   632 
   644 
   633     "Modified: / 08-05-2011 / 12:38:47 / cg"
   645     "Modified: / 08-05-2011 / 12:38:47 / cg"
       
   646     "Modified: / 29-07-2018 / 15:21:18 / Claus Gittinger"
   634 !
   647 !
   635 
   648 
   636 withInstancesOfSelectedClassDo:aBlock
   649 withInstancesOfSelectedClassDo:aBlock
   637     |class insts|
   650     |class insts|
   638 
   651