Simple windowed application: Difference between revisions
Content added Content deleted
m (omissions) |
|||
Line 1,597: | Line 1,597: | ||
} |
} |
||
}</lang> |
}</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}}== |
=={{header|Tcl}}== |