Stricter file handling when following Read statements (fvwm-convert-2.6).
[fvwm.git] / debian / fvwm.menu-method
blob1968400f46b1eaf79c3046c2934390f2ea7c80f9
1 #!/usr/sbin/install-menu
3 # Usage:
4 #   Read /etc/X11/fvwm/DebianMenu
5 #   Popup /Debian
7 compat="menu-1"
8 !include menu.h
10 function start($var, $com) = \
11         "+ \"" escfirst(title(), $hotkey, "&") \
12         cond_surr(icon(), "%", "%") "\" " $var " " $com "\n"
14 supported
15         fvwmmodule =  start("Module",    $command)
16         fvwmother =   start("",          $command)
17         wm =          start("Restart",   $command)
18         x11fvwm2 =    start("Exec exec", $command)
19         x11fvwm =     start("Exec exec", $command)
20         x11 =         start("Exec exec", $command)
21         text =        start("Exec exec", term())
22 endsupported
24 startmenu = \
25         "DestroyMenu \"" replacewith($section, " ", "_") "\"\n" \
26         "AddToMenu \"" replacewith($section, " ", "_") "\" \"" \
27                 title() "\" Title Top\n"
28 endmenu = "\n"
30 submenutitle = \
31         "+ \"" escfirst(title(), $hotkey, "&") \
32         cond_surr(icon(), "%", "%") "\" Popup \"" \
33         replacewith($section, " ", "_") "\"\n"
35 genmenu = "DebianMenu"
36 rootprefix = "/etc/X11/fvwm/"
37 userprefix = "/.fvwm/"
38 treewalk = "c(m)"
39 mainmenutitle = "Debian Menu"