Avoid icon change to default on winspector save
[wmaker-crm.git] / debian / wmaker.menu-method
blob4c1bd33cfc1c723306efb016634b35f84f2f71ac
1 #!/usr/bin/install-menu
3 # Generates Window Maker menus for all registered applications.
5 !include menu.h
6 compat="menu-1";
7 outputencoding="UTF-8"
8 outputlanguage="C"
10 genmenu="menu.hook"
11 rootprefix="/etc/GNUstep/Defaults"
12 userprefix=shell("echo -n /${GNUSTEP_USER_ROOT-GNUstep}") "/Library/WindowMaker/"
13 treewalk="(M)"
14 rootsection="/Debian"
16 function mytitle()=replacewith(title(),"\"","'")
18 function exec($action,$com)= \
19         "  \"" translate(,mytitle()) "\" " ifnempty($shortcut, "SHORTCUT " $shortcut " ") $action " " esc($com,"*") "\n"
21 supported
22 x11=    exec("SHEXEC",$command) 
23 wm=     exec("RESTART",$command) 
24 text=   exec("SHEXEC",term())
25 wmaker= exec("",$command ifnempty($arg," " $arg))
26 endsupported
28 preoutput= "/* Automatically generated file. Do not edit (see /usr/share/doc/menu/menu.txt.gz) */\n\n#include \"wmmacros\"\n"
30 mainmenutitle=""
31 submenutitle= ""
33 startmenu= "\n" \
34            ifelse( \
35                 title(), \
36                 ifneq(mytitle(), "Applications", "\"" translate(,mytitle()) "\" MENU"), \
37                 "Debian MENU\n\n" \
38            ) \
39            "\n"
40 endmenu=   ifelse( \
41                 title(), \
42                 ifneq(mytitle(), "Applications", "\"" translate(,mytitle()) "\" END"), \
43                 "\n\nDebian END" \
44            ) \
45            "\n"