menu-system/fvwm_themes.in

   1 #!/usr/sbin/install-menu
   2 compat="menu-1"
   3 !include menu.h
   4 !include fvwm_themes.h
   5
   6 #
   7 # You may want to edit (in fvwm_themes.h) the ftFindBestIcon and
   8 # ftFindBestSectionIcon as well as the ftFindSystemMiniIcon.
   9 #
  10
  11 #function ltitle()=translate(lang(),title())
  12 function ltitle()=translate($lang,title())
  13
  14 supported
  15   wm =  "+ \"" escfirst(ltitle(), $hotkey,"&") \
  16     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  17         "%","%") \
  18     "\" Restart " $command "\n"
  19   FvwmModule =  "+ \"" escfirst(ltitle(),$hotkey,"&") \
  20     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  21               "%","%") \
  22     "\" Module " $command "\n"
  23   FvwmThemes =  "+ \"" escfirst(ltitle(),$hotkey,"&") \
  24     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  25               "%","%") \
  26     "\" " $command "\n"
  27   fvwm2=  "+ \"" escfirst(ltitle(),$hotkey,"&") \
  28     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  29         "%","%") \
  30     "\" " $command "\n"
  31   x11 = "+ \"" escfirst(ltitle(),$hotkey,"&") \
  32     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  33               "%","%") \
  34     "\" Exec    " $command  "\n"
  35   text = "+ \"" escfirst(ltitle(),$hotkey,"&") \
  36     cond_surr(ftFindBestIcon($icon,$package,$section,$command,$title,"menu/"),\
  37               "%","%") \
  38     "\""  " Exec /usr/bin/X11/xterm -T \"" ltitle() "\" -e " $command "\n"
  39 endsupported
  40
  41 startmenu=   "DestroyMenu \"" replacewith($section, " ", "_") "\"" "\n" \
  42              "AddToMenu \"" replacewith($section, " ", "_") "\"" \
  43              " \"" ltitle() "\" Title" "\n"
  44 endmenu=     "\n"
  45
  46 #
  47 submenutitle= "+ \"" escfirst(ltitle() ,$hotkey,"&") \
  48         cond_surr(ftFindBestSectionIcon($section,$icon,"menu/"),"%","%") \
  49         "\" PopUp \"" replacewith($section, " ", "_") "\"\n"
  50
  51 rootprefix="xFT_DATADIRx/menu-system"
  52 userprefix="/.fvwm/menu-system"
  53 treewalk="c(m)"
  54 genmenu="ft-menu"
  55 rootsection="MenuFvwmMenuSystem"