Author: sparky
Date: Tue Dec 5 08:44:08 2006
New Revision: 8069
Added:
vfmg/trunk/VFMG/sawfish_out.pm (contents, props changed)
Modified:
vfmg/trunk/vfmgrc
Log:
- sawfish support
Added: vfmg/trunk/VFMG/sawfish_out.pm
==============================================================================
--- (empty file)
+++ vfmg/trunk/VFMG/sawfish_out.pm Tue Dec 5 08:44:08 2006
@@ -0,0 +1,34 @@
+package VFMG::Output;
+
+use strict;
+use warnings;
+
+sub sawfish($$);
+sub sawfish($$) {
+ my ($no, $file) = @_;
+ my $apps = "";
+ my $this_menu = "(defvar $file\n\t`(\n";
+
+ foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
+ my $d = $main::desktop[$entry];
+ if ($main::menu[$no]{$entry} < 0) {
+ ( my $name = $$d{Name} ) =~ s/\"/\\\"/g;
+ ( my $exec = $$d{Exec} ) =~ s/\"/\\\"/g;
+ $apps .= qq/\t\t("$name" (system "$exec &"))\n/;
+ } else {
+ ( my $fname = $$d{file} ) =~ s/\s+/_/g;
+ ( my $name = $$d{Name} ) =~ s/\"/\\\"/g;
+ $this_menu .= qq/\t\t("$name" . $file-$fname)\n/;
+ sawfish($main::menu[$no]{$entry}, "$file-$fname");
+ }
+ }
+ print $this_menu . $apps . "\t)\n)\n\n";
+}
+
+sub do_menu() {
+ sawfish($main::opt{strip}, "apps-menu");
+}
+
+1;
+
+# vi: ts=4 sw=4 noet fdm=marker
Modified: vfmg/trunk/vfmgrc
==============================================================================
--- vfmg/trunk/vfmgrc (original)
+++ vfmg/trunk/vfmgrc Tue Dec 5 08:44:08 2006
@@ -257,6 +257,17 @@
#strip = 1
+[sawfish]
+# no icons support
+icons = 0
+icons_full = 0
+icons_scale = 0
+# requires utf-8
+utf = 1
+# strip depends how you use it, normally usefull
+strip = 1
+
+
[qvwm]
# requires icons scaling
icons_scale = 1
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
