GUI component interaction: Difference between revisions
Content added Content deleted
Line 669: | Line 669: | ||
#field txtNumber. |
#field txtNumber. |
||
// Contains the number as showed in TextBox |
|||
#field number. |
#field number. |
||
Line 712: | Line 711: | ||
[ |
[ |
||
number := number + 1. |
number := number + 1. |
||
$self changeTextBoxValue. |
$self $changeTextBoxValue. |
||
] |
] |
||
Line 720: | Line 719: | ||
[ |
[ |
||
number := randomGenerator eval:99999999. |
number := randomGenerator eval:99999999. |
||
$self changeTextBoxValue. |
$self $changeTextBoxValue. |
||
]. |
]. |
||
] |
] |
||
#method changeTextBoxValue |
#method $changeTextBoxValue |
||
[ |
[ |
||
txtNumber set &caption:(number literal). |
txtNumber set &caption:(number literal). |