RosettaCodeData/Task/Hello-world-Graphical/BaCon/hello-world-graphical-1.bacon

OPTION GUI TRUE

gui = GUIDEFINE("{ type=window name=window XtNtitle=\"Graphical\" } \
    { type=labelWidgetClass name=label parent=window XtNlabel=\"Goodbye, World!\" } ")

CALL GUIEVENT$(gui)