Skip to content

Instantly share code, notes, and snippets.

@PuercoPop

PuercoPop/scratch.st

Last active November 21, 2017 04:05
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 PuercoPop/4f5bf988212c215691026242d7379490 to your computer and use it in GitHub Desktop.
Save PuercoPop/4f5bf988212c215691026242d7379490 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
scratch.st
| win toolbar workspc workspcModel loadBtn saveBtn |
win _ SystemWindow new.
workspcModel _ Workspace withText: 'Transcript show: ''foo'''.
workspc _ TextModelMorph withModel: workspcModel.
toolbar _ LayoutMorph newRow.
loadBtn _ PluggableButtonMorph model: workspc
action: #switch
label: 'Run Code'.
saveBtn _ PluggableButtonMorph model: workspc
action: #switch
label: 'Save Code'.
toolbar addMorph: loadBtn.
toolbar addMorph: saveBtn.
win layoutMorph addMorph: toolbar proportionalHeight: 0.1.
win layoutMorph addMorph: workspc proportionalHeight: 1.
win openInWorld .
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment