Author: sparky Date: Fri Dec 1 22:38:13 2006 GMT
Module: vfmg Tag: HEAD
---- Log message:
- fbpanel backend
---- Files affected:
vfmg/VFMG:
fbpanel_out.pm (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: vfmg/VFMG/fbpanel_out.pm
diff -u /dev/null vfmg/VFMG/fbpanel_out.pm:1.1
--- /dev/null Fri Dec 1 23:38:13 2006
+++ vfmg/VFMG/fbpanel_out.pm Fri Dec 1 23:38:08 2006
@@ -0,0 +1,36 @@
+package VFMG::Output;
+
+use strict;
+use warnings;
+
+sub fbpanel {
+ my ($no, $level)[EMAIL PROTECTED];
+ my $apps = "";
+ foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
+ my $d = $main::desktop[$entry];
+ my $icon = "";
+ $icon = main::scale_icon($$d{Icon}) if $main::opt{icons};
+ if($main::menu[$no]{$entry}<0) {
+ $apps .=
+ "${level}item {\n".
+ "${level} name = $$d{Name}\n".
+ "${level} action = $$d{Exec}\n";
+ $apps .= "${level} image = $icon\n" if length
$icon;
+ $apps .= "${level}}\n";
+ } else {
+ print "${level}menu {\n";
+ print "${level} name = $$d{Name}\n";
+ print "${level} image = $icon\n" if length $icon;
+ fbpanel($main::menu[$no]{$entry}, $level."\t");
+ print "${level}}\n";
+ }
+ }
+ print $apps;
+}
+
+
+sub do_menu() {
+ fbpanel($main::opt{strip},"");
+}
+
+1;
================================================================
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
