14 lines
397 B
Plaintext
14 lines
397 B
Plaintext
Reg_Set(10, "There have been no clicks yet")
|
|
#1 = 0
|
|
repeat (ALL) {
|
|
#2 = Dialog_Input_1(3, "`Simple Windowed Application`,
|
|
`|@(10)`,
|
|
`[&Click me]`,`[&Exit]`",
|
|
APP+CENTER, 0, 0)
|
|
if (#2 != 1) { break } // ESC or Exit
|
|
#1++
|
|
Num_Str(#1, 10)
|
|
Reg_Set(10, "Clicked", INSERT)
|
|
Reg_Set(10, " times", APPEND)
|
|
}
|