GUI component interaction: Difference between revisions
Content added Content deleted
Line 1,380: | Line 1,380: | ||
} |
} |
||
}</lang> |
}</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}}== |
=={{header|Tcl}}== |