GUI component interaction: Difference between revisions

<lang elena>#import systemforms.

#import formsextensions.

#class Window

#fieldobject form.

#fieldobject btmIncrement.

#fieldobject btmRandom.

#fieldobject txtNumber.

#constructor new

form controls ;

+= append:btmIncrement;

+= append:btmRandom;

+= append: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:"0".

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

#var number := txtNumber value; toInt.

#method $onButtonRandomClick

if(messageDialog open &caption:"Inf" &question:"Really reset to random value?")?

$self $changeTextBoxValue:(randomGenerator eval:99999999).

].

#method $changeTextBoxValue : number

txtNumber set &caption:(number literal).

#methoddispatch => form.