Rosetta Code

GUI component interaction: Difference between revisions

Page Discussion

GUI component interaction (view source)

Revision as of 21:01, 7 September 2017

4 bytes removed ,  6 years ago
→‎{{header|Elena}}
Line 792:
 
class Window
 
{
object form.
Line 811 ⟶ 810:
append:txtNumber.
form set caption:"Rosseta Code".
form set xcaption:100"Rosseta y:100.Code";
form set widthx:160100 heighty:120.100;
set width:160 height:120.
txtNumber set x:7 y:7.
txtNumber set widthx:1407 heighty:25.7;
txtNumber set captionwidth:140 height:"0".25;
set caption:"0".
btmIncrement set x:7 y:35.
btmIncrement set widthx:1407 heighty:25.35;
btmIncrement set captionwidth:140 height:"Increment".25;
btmIncrement set onClick: ( set caption:args)"Increment";
set onClick: (:args)
 
[ $self $onButtonIncrementClick ].
btmRandom set x:7 y:65.
btmRandom set widthx:1407 heighty:25.65;
btmRandom set captionwidth:140 height:"Random".25;
btmRandom set onClick: ( set caption:args)"Random";
set onClick(:args)
 
[ $self $onButtonRandomClick ]
]
Line 846 ⟶ 849:
if(messageDialog open caption:"Inf" question:"Really reset to random value?")
[
$self $changeTextBoxValue:(randomGenerator eval:99999999)
]
]
Line 852 ⟶ 855:
$changeTextBoxValue : number
[
txtNumber set caption:(number literal).
]
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/155347"