628 <resource: #programMenu> |
628 <resource: #programMenu> |
629 |
629 |
630 |m items moreItems specialMenu| |
630 |m items moreItems specialMenu| |
631 |
631 |
632 items := #( |
632 items := #( |
633 ('scavenge' scavenge) |
633 ('background collect now' backgroundCollect) |
634 ('tenure' tenure) |
634 ('hi prio incremental collect' incrementalCollect) |
635 ('hi prio incremental collect' incrementalCollect) |
|
636 ('-') |
635 ('-') |
637 ('cleanup memory' cleanupMemory) |
636 ('scavenge' scavenge) |
638 ('flush method history' cleanupMethodHistory) |
637 ('tenure' tenure) |
639 ('unload autoloaded classes' unloadAllAutoloadedClasses) |
|
640 ('-') |
638 ('-') |
641 ('compress sources' compressSources) |
639 ('cleanup memory' cleanupMemory) |
|
640 ('flush method history' cleanupMethodHistory) |
|
641 ('unload autoloaded classes' unloadAllAutoloadedClasses) |
|
642 ('-') |
|
643 ('compress sources' compressSources) |
642 ). |
644 ). |
643 |
645 |
644 ObjectMemory backgroundCollectorRunning ifFalse:[ |
646 ObjectMemory backgroundCollectorRunning ifFalse:[ |
645 moreItems := #( |
647 moreItems := #( |
646 ('background collect now' backgroundCollect ) |
|
647 ('start background collector' restartBackgroundCollector ) |
648 ('start background collector' restartBackgroundCollector ) |
648 ('-') |
|
649 ) |
649 ) |
650 ] ifTrue:[ |
650 ] ifTrue:[ |
651 (ObjectMemory backgroundCollectProcess priorityRange notNil) |
651 (ObjectMemory backgroundCollectProcess priorityRange notNil) |
652 ifTrue:[ |
652 ifTrue:[ |
653 moreItems := #( |
653 moreItems := #( |
654 ('background collect now' backgroundCollect ) |
|
655 ('background collect with fix priority' backgroundCollectWithFixPrio ) |
654 ('background collect with fix priority' backgroundCollectWithFixPrio ) |
656 ('stop background collector' stopBackgroundCollector ) |
655 ('stop background collector' stopBackgroundCollector ) |
657 ('-') |
|
658 ) |
656 ) |
659 ] ifFalse:[ |
657 ] ifFalse:[ |
660 moreItems := #( |
658 moreItems := #( |
661 ('background collect now' backgroundCollect ) |
|
662 ('background collect with dynamic priority' backgroundCollectWithDynamicPrio ) |
659 ('background collect with dynamic priority' backgroundCollectWithDynamicPrio ) |
663 ('stop background collector' stopBackgroundCollector ) |
660 ('stop background collector' stopBackgroundCollector ) |
664 ('-') |
|
665 ) |
661 ) |
666 ]. |
662 ]. |
667 ]. |
663 ]. |
668 items := moreItems , items. |
664 items := moreItems , items. |
669 |
665 |