#!/bin/ksh
typeset -i CHOICE
typeset -L15 ADDRESS
typeset -L60 HOST
typeset -L256 FILE
typeset -L30 NAME
typeset -L10 OS

menu_func()
{
mmenu -noexit -name "toolTest" -geometry 135x233 "mselect" "mdisplay" "medit" \
 "myesno" "mlist" "menter" "Exit" | while read CHOICE
do
case $CHOICE in
    1)
	(grep -v ^# /etc/hosts |
	mselect -name toolTest -listlabel "Choose a Host:" |
	read ADDRESS HOST
	[[ -z "${ADDRESS%% *}" ]] && exit
	mmessage -geometry 190x115 -name toolTest -text \
		"You Chose:
${HOST%% *}"; exit)&;;
    2)
        (mfileselect -name "Pick a file" |read FILE
	[[ -z "${FILE%% *}" ]] && exit
	mdisplay -geometry 800x500 -name "Here's your file" < \
		"${FILE%% *}";exit)&;;
    3)
        (print "Dear Diary:\n\nI discovered the true meaning of life today!  And, you won't believe\nthis, it's <fill_in_the_blank>!!!\n\nYour Friend Always,\n\n<your_name_here>\n" | medit -geometry 800x500 -name "Edit your diary:"| mdisplay -name \
	"Here's your entry" -geometry 800x500 ;exit)&;;
    4)
	(if myesno -name toolTest -text "Do you like mshelltools so far?"
	    then
		mmessage -name toolTest -text "Well isn't that just ducky!"
            else
                mmessage -name toolTest -text "I don't like you, either!"
        fi; exit)& ;;
    5)
 	(ps -aux | mlist -name toolTest -list 10; exit)& ;;
    6)
	(menter -name toolTest "Enter your name:" "${USER}" \
		"Enter your favorite OS:" "UNIX" |
	( read NAME; read OS; case "${OS%% *}" in
	    VMS|vms)
		mmessage -name toolTest -text "VMS!!! Yeah, nice software in 1975, ${NAME%% *}!";;
	    UNIX)
		mmessage -name toolTest -text "UNIX, eh... You must be
some kinda spineless trend-follower,
${NAME%% *}.";;
	    MS-DOS|DOS|MSDOS|dos|ms-dos)
	        mmessage -name toolTest -text "MS-DOS!!!!  Yech... Arggghh... BAAAARRRRFFF!!!";;
	    *)
		mmessage -name toolTest -text "Hmmm, ${OS%% *}.
You're a refugee from the Computer Museum, ${NAME%% *}!";;
	esac );exit) &;;

    7)
	exit;;
esac
done
return
}

while :
do
menu_func
done