link gui
class TestDialog : _Dialog(b)
   method dialog_event(ev)
      if ev.get_component() === b &
         ev.get_code() > 0 then dispose()
   end
initially
   local l
   self$_Dialog.initially()
   l := Label("label=Click to close","pos=50%,33%",
	      "align=c,c")
   add(l)
   b := TextButton("label=Button","pos=50%,66%",
                   "align=c,c")
   add(b)
   attrib("size=215,150", "bg=light gray",
	  "font=serif", "resize=on")
   show_modal()
end

#
# Program entry point.
#
procedure main()
   TestDialog()
end