File: asclassic.menu-method

package info (click to toggle)
asclassic 1.1b-26
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,828 kB
  • ctags: 2,019
  • sloc: ansic: 21,403; makefile: 407; sh: 276
file content (49 lines) | stat: -rw-r--r-- 1,220 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#!/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

compat="menu-2"

function mod($var,$com)=" " $var " \"" 
          title() ifnempty($hotkey,"&" toupper($hotkey)) 
          "\" exec " $com "\n";

function restart($var,$com)=" " $var " \"" 
          title() ifnempty($hotkey,"&" toupper($hotkey)) 
          "\" " $com "\n";

function ex($com)=mod("Exec",$com);

supported;
  asmodule=   mod("Module", $command);
  fvwmmodule= mod("Exec",   $command);
  wm=         restart("Restart",$command);
  x11fvwm=    ex($command);
  x11=        ex($command);
  text=       ex(term());
endsupported;

startmenu=   "PopUp \"" $section "\"\n  Title \"" title() "\"\n";

endmenu=  ifeq(level(), "0",
        "  Popup \"Exit\"      Quit-Verify\n" )
	"EndPopUp\n";

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

genmenu=      "menudefs.hook";
rootprefix="/etc/X11/asclassic/";
userprefix=".asclassic/";

mainmenutitle="Debian Menu";