#!/usr/sbin/install-menu
#I need menu-1.4!
# 
# This is menu method for XFwm of XFce. It is fvwm method by Julian 
# Gilbey <jdg@debian.org> modified by Peter Novodvorsky <petya@logic.ru>.
#
# This version of the fvwm menu method is based on
# /usr/doc/menu/examples/fvwm2, and has been modified for the new fvwm
# package (containing FVWM 2.2) by Julian Gilbey <jdg@debian.org>,
# partially based on Austin Donnelly's version.

compat="menu-1"

!include menu.h

function start($var,$com)= ifeqelse(title(), "XFwm/XFce","",\
            "+ \"" escfirst(title(),$hotkey,"&") \
            "\" " $var " " $com "\n")
supported 
  wm=          start("Restart",$command)
  x11=         start("Exec exec",   $command)
  text=        start("Exec exec",   term())
endsupported

function print_main_menu()=\
	 "DestroyMenu \"__debian_menu__\"\n" \
	 "AddToMenu \"__debian_menu__\"\n" \
         "Read /etc/X11/xfce/main-menu-pre.hook Quiet\n" \
         "Read .xfce/main-menu-pre.hook Quiet\n" \
	 "AddToMenu \"__debian_menu__\"\n"	 

function print_common_menu()=\
	 "DestroyMenu \""   $section      "\"\n" \
         "AddToMenu \"" $section "\" \"" title() "\" Title Top\n"	 	 

startmenu=  ifeqelse($section, "/Debian", \
		     print_main_menu(), print_common_menu())
endmenu=     "\n"

submenutitle= "+ \"" escfirst(title(),$hotkey,"&") \
           cond_surr(icon(),"%","%") "\" Popup " $section "\n"
genmenu=   "debian.menu"
rootprefix="/etc/X11/xfce/"
userprefix="/.xfce/"
treewalk="c(m)"
mainmenutitle="Debian Menu"
