Skip to content

Instantly share code, notes, and snippets.

@philippeback

philippeback/clearwin.st

Created December 11, 2018 21:03
Show Gist options
  • Save philippeback/132ccc8a1aa0726048419410a24da372 to your computer and use it in GitHub Desktop.
Save philippeback/132ccc8a1aa0726048419410a24da372 to your computer and use it in GitHub Desktop.
Download ZIP
Clear SystemWindows
Raw
clearwin.st
RubFindReplaceService cleanUp.
EditorFindReplaceDialogWindow cleanUp.
SystemWindow allSubInstances do: [ :each | (each privateOwner: World) ].
SystemWindow allInstances do: [ :w | w openInWorld ].
100 timesRepeat: [ World doOneCycle ].
SystemWindow allInstances do: [ :w | Halt now. w delete ].
100 timesRepeat: [ World doOneCycle ].
SystemWindow allInstances.
Smalltalk garbageCollect
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment