blob: f12f29f4fc0817891d6b8b1967d2cd845fed7983 (
plain)
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
|
#!/usr/bin/install-menu
# -*- mode: shell-script; -*-
#I need menu-1!
#
#NOTE: the first line of this script _must_ be
# equal to "#!/usr/bin/install-menu", otherwise update-menus
# will feed this script old-compat-mode data.
#
#More info: /usr/share/doc/menu/html.
#
compat="menu-1"
!include menu.h
compat="menu-2"
function f($com)=" \"" title() "\" f.exec \""$com " &\"\n";
#This doens't seem to be possible with twm: wm="f.restart \"${title}\"\\n"
supported;
x11= f($command);
text=f(esc(term(),"\""));
# x11 = " \"" $title "\" f.exec \""$command " &\"\n";
# text= " \"" $title "\" f.exec \"xterm -title \\\""
# $title "\\\" -e " esc($command,"\"") " &\"\n";
endsupported;
startmenu= "menu \"" $section "\"\n{\n";
endmenu= "}\n";
submenutitle=" \"" title() "\" f.menu \"" $section "\"\n";
genmenu= "menudefs.hook";
rcfile= "system.twmrc";
examplercfile="system.twmrc-menu";
rootprefix= "/etc/X11/twm/";
userprefix= "/.twm/";
|
