OPTION GUI TRUE
PRAGMA GUI uil

PRAGMA LDFLAGS -Wl,--no-as-needed TRUE

SETENVIRON "UIDPATH", DIRNAME$(ME$) & "/%U.uid"

id = GUIDEFINE("{ type=window name=window map=quit,demo callback=stop uid=hello_world XmNtitle=\"Demo\" XmNwidth=300 XmNheight=50 }")

WHILE TRUE
	event$ = GUIEVENT$(id)

	SELECT event$
		CASE "my_button"
			PRINT "Button clicked!"
		CASE "bye_button"
			PRINT "Bye"
		CASE "stop"
			PRINT "stop"
	ENDSELECT
WEND