19 lines
637 B
Plaintext
19 lines
637 B
Plaintext
OPTION GUI TRUE
|
|
PRAGMA GUI gtk3
|
|
|
|
gui = GUIDEFINE(" \
|
|
{ type=WINDOW name=window callback=delete-event title=\"Rosetta Code\" width-request=300 } \
|
|
{ type=BOX name=box parent=window orientation=GTK_ORIENTATION_VERTICAL } \
|
|
{ type=LABEL name=label parent=box height-request=50 label=\"There have been no clicks yet\" } \
|
|
{ type=BUTTON name=button parent=box callback=clicked label=\"Click Me\" }")
|
|
|
|
WHILE TRUE
|
|
SELECT GUIEVENT$(gui)
|
|
CASE "window"
|
|
BREAK
|
|
CASE "button"
|
|
INCR clicked
|
|
CALL GUISET(gui, "label", "label", "Button clicks: " & STR$(clicked))
|
|
ENDSELECT
|
|
WEND
|