31 lines
733 B
Text
31 lines
733 B
Text
import gui
|
|
$include "guih.icn"
|
|
|
|
class SimpleApp : Dialog (label)
|
|
|
|
# -- automatically called when the dialog is created
|
|
method component_setup()
|
|
# create and add the label
|
|
label := Label("label=There have been no clicks yet","pos=50%,33%", "align=c,c")
|
|
add (label)
|
|
|
|
# create and add the button
|
|
button := TextButton("label=Click me", "pos=50%,66%", "align=c,c")
|
|
button.connect(self, "clicked", ACTION_EVENT)
|
|
add (button)
|
|
|
|
# some cosmetic settings for the window
|
|
attrib("size=180,70", "bg=light gray")
|
|
end
|
|
|
|
method clicked ()
|
|
static count := 0
|
|
count +:= 1
|
|
label.set_label ("Clicked " || count || " times")
|
|
end
|
|
end
|
|
|
|
procedure main()
|
|
local d := SimpleApp ()
|
|
d.show_modal()
|
|
end
|