17 lines
401 B
Plaintext
17 lines
401 B
Plaintext
nomainwin
|
|
button #demo.btn, "Click Me", [btnClick], UL, 20, 50
|
|
statictext #demo.num, "There have been no clicks yet.", 20, 100, 240, 30
|
|
open "Rosetta Task: Simple windowed application" for window as #demo
|
|
#demo "trapclose [quit]"
|
|
nClicks = 0
|
|
wait
|
|
|
|
[quit]
|
|
close #demo
|
|
end
|
|
|
|
[btnClick]
|
|
nClicks = nClicks + 1
|
|
#demo.num "The button has been clicked ";nClicks;" times."
|
|
wait
|