summaryrefslogtreecommitdiff
path: root/examples/ctwm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/ctwm')
-rwxr-xr-xexamples/ctwm32
1 files changed, 32 insertions, 0 deletions
diff --git a/examples/ctwm b/examples/ctwm
new file mode 100755
index 0000000..eea8bcc
--- /dev/null
+++ b/examples/ctwm
@@ -0,0 +1,32 @@
+#!/usr/bin/install-menu
+# -*- mode: shell-script; -*-
+#I need menu-1.4!
+#
+#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(),"\""));
+endsupported;
+
+startmenu= "menu \"" $section "\"\n{\n";
+endmenu= "}\n";
+submenutitle=" \"" title() "\" f.menu \"" $section "\"\n";
+genmenu= "menudefs.hook";
+rcfile= "system.ctwmrc";
+examplercfile="system.ctwmrc-menu";
+rootprefix= "/etc/X11/ctwm/";
+userprefix= "/.ctwm/";