Anonymous user
GUI component interaction: Difference between revisions
→{{header|Tcl}}
Line 1,380:
}
}</lang>
=={{header|Smalltalk}}==
{{works with|Smalltalk/X}}
<lang smalltalk>|top input vh incButton rndButton|
vh := ValueHolder with:0.
top := StandardSystemView label:'Rosetta GUI interaction'.
top extent:300@100.
top add:((Label label:'Value:') origin: 0 @ 10 corner: 100 @ 40).
top add:(input := EditField origin: 102 @ 10 corner: 1.0 @ 40).
input model:(TypeConverter onNumberValue:vh).
input acceptOnLostFocus:true; acceptOnReturn:true.
top add:((incButton := Button label:'Inc') origin: 10 @ 50 corner: 100 @ 80).
top add:((rndButton := Button label:'Rnd') origin: 110 @ 50 corner: 210 @ 80).
incButton action:[ vh value: (vh value + 1) ].
rndButton action:[ vh value: Random nextInteger ].
top open</lang>Output:
<p>
[[File:Guiintsmalltalkx.png]]
=={{header|Tcl}}==
| |||