Skip to content

Instantly share code, notes, and snippets.

@jacaetevha

jacaetevha/SqueakPersonalMenu.st

Created February 27, 2009 04:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jacaetevha/71287 to your computer and use it in GitHub Desktop.
Save jacaetevha/71287 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SqueakPersonalMenu.st
|spaceTallyPath|
spaceTallyPath := FileDirectory default fullPathFor: 'STSpace.text'.
aMenu addLine.
aMenu add: 'SpaceTally [', spaceTallyPath, ']' translated
target: SpaceTally new
action: #printSpaceAnalysis.
aMenu add: 'Empty Trash Can' translated
target: Utilities
action: #emptyScrapsBook.
aMenu add: 'Clear Command History'
target: CommandHistory
action: #resetAllHistory.
aMenu add: 'Collect Garbage'
target: Smalltalk
action: #garbageCollect.
aMenu add: 'Flush MC Caches (follow this with a GC)'
target: MCFileBasedRepository
action: #flushAllCaches.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment