Anonymous user
Simple windowed application: Difference between revisions
→{{header|Tcl}}
m (omissions) |
|||
Line 1,597:
}
}</lang>
=={{header|Smalltalk}}==
{{works with|Smalltalk/X}}
<lang smalltalk>|top clickCount lh button|
clickCount := 0.
lh := ValueHolder with:'There have been no clicks yet'.
top := StandardSystemView label:'Rosetta Simple Window'.
top extent:300@100.
top add:((Label new labelChannel:lh) origin: 0 @ 10 corner: 1.0 @ 40).
top add:((button := Button label:'Eat Me') origin: 10 @ 50 corner: 100 @ 80).
button action:[
clickCount := clickCount + 1.
lh value: ('number of clicks: %1' bindWith:clickCount)
].
top open</lang>
=={{header|Tcl}}==
| |||