/*
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://www.borg.com/~jglatt/rexx/rexxuser.htm"

Again:
DO FOREVER
	GuiGetMsg()
	CATCH SYNTAX
			CONDITION('M')
			SIGNAL Again
	CATCH HALT
	FINALLY
		GuiDestroyWindow()
END
RETURN