/*
  hsearch
  
*!  VERSION 1.0.1  05may2006

*/

VERSION 9.0
POSITION . . 360 90

OK ok1, label("OK")
CANCEL can1, label("Cancel")
SUBMIT sub1, label("Submit")
HELP hlp1, view("help hsearch")
RESET res1

DIALOG main, title("hsearch - Search help files")
BEGIN
	TEXT 	tx_text		10	10	340	.,	///
		label("Search terms:")
	EDIT	ed_text		@	+20	@	.,	///
		label("Search terms") default(global HSEARCH_QUERY)
END

PROGRAM command
BEGIN
	require main.ed_text
	put "hsearch " main.ed_text
END
