Simple windowed application: Difference between revisions

Vedit macro language
(added RapidQ)
(Vedit macro language)
Line 580:
form.ShowModal
 
 
=={{header|Tcl}}==
Line 588 ⟶ 587:
pack [button .b -text " Click Me " -command upd]
proc upd {} {.l configure -text "Number of clicks: [incr ::count]."}
 
=={{header|Vedit macro language}}==
<pre>
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)
}
</pre>
Anonymous user