Anonymous user
GUI component interaction: Difference between revisions
→{{header|Elena}}
Line 668:
#field btmRandom.
#field txtNumber.
#constructor new
Line 677 ⟶ 675:
btmRandom := Button new.
txtNumber := Edit new.
number := 0.▼
form controls
Line 691 ⟶ 687:
txtNumber set &x:7 &y:7.
txtNumber set &width:140 &height:25.
txtNumber set &caption:
btmIncrement set &x:7 &y:35.
Line 710 ⟶ 706:
#method $onButtonIncrementClick
[
number := number + 1.
$self $changeTextBoxValue:number.
]
Line 718 ⟶ 716:
(messageDialog open &caption:"Inf" &question:"Really reset to random value?")?
[
].
]
#method $changeTextBoxValue : number
[
txtNumber set &caption:(number literal).
|