#!/usr/sbin/install-menu
#   -*- mode: shell-script; -*-
#I need menu-1.4!
#
#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 indent()="  "
function f($com)=indent() "\"" title() "\"    f.exec  \"" esc($com, "\"") " &\"\n"

#This doens't seem to be possible with twm:  wm="f.restart \"${title}\"\\n"
supported 
  x11= f($command)
  text=f(term())
endsupported
startmenu=  "menu \"" $section "\"\n{\n" indent() "\"" ifelse(title(),title(),"Debian",) "\"  f.title\n" 
endmenu=     indent() "\"Pin menu\"   f.pin\n}\n"
submenutitle=indent() "\"" title() "\" f.menu \"" $section "\"\n"
genmenu=      "menudefs.hook"
rootprefix=   "/etc/X11/ctwm/"
userprefix=   "/.ctwm/"
