GUI component interaction: Difference between revisions
Content added Content deleted
(add Perl 6) |
|||
Line 656: | Line 656: | ||
</lang> |
</lang> |
||
=={{header|Elena}}== |
|||
<lang elena>#import system. |
|||
#import forms. |
|||
#import extensions. |
|||
#class Window |
|||
{ |
|||
#field form. |
|||
#field btmIncrement. |
|||
#field btmRandom. |
|||
#field txtNumber. |
|||
// Contains the number as showed in TextBox |
|||
#field number. |
|||
#constructor new |
|||
[ |
|||
form := SDIDialog new. |
|||
btmIncrement := Button new. |
|||
btmRandom := Button new. |
|||
txtNumber := Edit new. |
|||
number := 0. |
|||
form controls |
|||
+= btmIncrement |
|||
+= btmRandom |
|||
+= txtNumber. |
|||
form set &caption:"Rosseta Code". |
|||
form set &x:100 &y:100. |
|||
form set &width:160 &height:120. |
|||
txtNumber set &x:7 &y:7. |
|||
txtNumber set &width:140 &height:25. |
|||
txtNumber set &caption:(number literal). |
|||
btmIncrement set &x:7 &y:35. |
|||
btmIncrement set &width:140 &height:25. |
|||
btmIncrement set &caption:"Increment". |
|||
btmIncrement set &onClick:args |
|||
[ $self $onButtonIncrementClick. ]. |
|||
btmRandom set &x:7 &y:65. |
|||
btmRandom set &width:140 &height:25. |
|||
btmRandom set &caption:"Random". |
|||
btmRandom set &onClick:args |
|||
[ $self $onButtonRandomClick. ]. |
|||
] |
|||
#method $onButtonIncrementClick |
|||
[ |
|||
number := number + 1. |
|||
$self changeTextBoxValue. |
|||
] |
|||
#method $onButtonRandomClick |
|||
[ |
|||
(messageDialog open &caption:"Inf" &question:"Really reset to random value?")? |
|||
[ |
|||
number := randomGenerator eval:99999999. |
|||
$self changeTextBoxValue. |
|||
]. |
|||
] |
|||
#method changeTextBoxValue |
|||
[ |
|||
txtNumber set &caption:(number literal). |
|||
] |
|||
#method => form. |
|||
}</lang> |
|||
=={{header|Fantom}}== |
=={{header|Fantom}}== |