links to this page:    
View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide
StringMorph and SimpleButtonMorph example -- another counter
Last updated at 8:41 pm UTC on 21 August 2019
Source: http://forum.world.st/Just-playin-around-tp5102323p5102327.html

Paste the following code snippet into a Workspace and execute the code.

Since all variables {s,bp,bm} are workspace shared you can also run the lines one at a time and see what happens into the Workspace.

s := StringMorph new.
s openInWorld .
s contents: '0'.
s position: 100@100.

bp := SimpleButtonMorph new.
bp openInWorld .
bp label: 'Plus-1'.
bp position: 150@100.

bm := SimpleButtonMorph new.
bm openInWorld .
bm label: 'Minus-1'.
bm position: 250@100.

"------ Add actions to buttons ------------ "
bp target: [ s contents: (s contents asInteger + 1) asString ].
bp actionSelector: #value.

bm target: [ s contents: (s contents asInteger - 1) asString ].
bm actionSelector: #value.