2010-07-16 20:45

/*
GUIBEGIN
WINDOW , 0, 0, 400, 200, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , Link button demo
	FONT 8, 400, MS Shell Dlg
	PUSH 5, 11, 75, 12, TABSTOP, LINK, MyURL, , REXX User's Page
DEND
GUIEND
*/

LIBRARY rexxgui
guierr = "SYNTAX"
guiheading = 1
guicreatewindow('NORMAL')

/* Set the variable associated with our "Hyperlink" button
 * to the URL we wish to display when the user clicks on
 * the PUSH button.
 */
myurl = "http://home.roadrunner.com/~jgglatt/rexx/rexxuser.htm"

again:
DO FOREVER
	guigetmsg()
	CATCH SYNTAX
			CONDITION('M')
			SIGNAL again
	CATCH HALT
	FINALLY
		guidestroywindow()
END
RETURN

2010-07-16 20:45