#!/usr/sbin/install-menu
#   -*- mode: shell-script; -*-
#I need menu-1!
#
#NOTE: the first line of this script _must_ be
# equal to "#!/usr/sbin/install-menu", otherwise update-menus
# will feed this script old-compat-mode data.
#
#More info: /usr/doc/menu/html.
#
compat="menu-1"
!include menu.h

function mod($var,$com)=" " $var " \"" \
          title() ifnempty($hotkey,"&" toupper($hotkey)) "\" exec " $com "\n"
#               ^removed "", as I don't see what it's used for
function ex($com)      =mod("Exec",$com)


supported 
  asmodule=   mod("Module", $command)
  fvwmmodule= mod("Exec",   $command)
  wm=         mod("Restart",$command) 
  x11fvwm=    ex($command)
  x11=        ex($command)
  text=       ex(term())
endsupported
startmenu=   "PopUp \"" $section "\"\n" Title title() "\"\n"
#                                             ^removed iffelse(), do that
#                                             with mainmenutitle below
endmenu=  ifempty(title(), \
	"  Popup \"Exit\"      Quit-Verify\n" \
	)"EndPopUp\n"
#very clever endmenu! (hadn't thought of doing it like that myself).

submenutitle="  Popup \"" title() cond_surr(icon(),"%","%") "\""\
              $section "\n"

genmenu=      "menudefs.hook"
preoutput="#Automatically generated file. Do not edit (see /usr/doc/menu/html)\n\n"
#hotkeycase="insensitive"
#hey, that _must_ be a bug in menu-1.3! (it _should_ quit as soon as
#it sees something that it doesn't know).
#Anyway, do you agree with me that the toupper() function above is a
#better method? (menu-1.4 will not accept this BTW it will complain
#about unknown definition in /etc/menu-methods/afterstep.

rootprefix="/etc/X11/afterstep/"
userprefix=".afterstep/"
mainmenutitle="Debian Menu"
