Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- | 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 .
Add Comment
Please, Sign In to add comment