/*
** $VER: Menu_Files.edge 1.12 (Sunday 08-Aug-93 02:41:52)
**
** Show available files in Edge, and activate the first window of the
** file selected.
**
** Written by Thomas liljetoft
*/


options results

'getenvvar' _ge_errlevel	/* get the users error report level */
errlevel = result

'requestfile' title '"Select file to activate.."' path "EDGE:" file '""' getdir
name = ''
if RC == 0 then
	do
	parse var result t ':' name
	'select' filename name
	address value result
	window front
	end

if RC >= errlevel then
	do

	/* something went wrong enought to be reported so report */

	'fault'
	'requestnotify' '"'result'"'
	exit(10)
	end

exit(name)