Author: sparky
Date: Sat Dec 2 23:43:28 2006
New Revision: 8045
Modified:
vfmg/trunk/VFMG/e17-desktop_out.pm
Log:
- use VFMG::Icons
Modified: vfmg/trunk/VFMG/e17-desktop_out.pm
==============================================================================
--- vfmg/trunk/VFMG/e17-desktop_out.pm (original)
+++ vfmg/trunk/VFMG/e17-desktop_out.pm Sat Dec 2 23:43:28 2006
@@ -3,6 +3,7 @@
use strict;
use warnings;
use File::Path qw(mkpath);
+use VFMG::Icons;
sub decode_tags() {
return qw(GenericName Comment);
@@ -42,8 +43,7 @@
foreach my $entry (sort main::cmpdname keys %{$main::menu[$no]}) {
my $icon_exists = 0;
my $d = $main::desktop[$entry];
- my $icon = "";
- $icon = main::scale_icon($$d{Icon}) if $main::opt{icons};
+ my $icon = &$VFMG::Icons::scale_icon($$d{Icon});
my $common_desk = "[Desktop Entry]\n" .
"Encoding=UTF-8\n" .
@@ -83,6 +83,8 @@
}
sub do_menu() {
+ VFMG::Icons::init();
+
=to implement later
$main::opt{wcnt_file} = "" unless defined $main::opt{wcnt_file};
$DR{wcnt} = {};
@@ -108,6 +110,7 @@
=cut
e17($main::opt{strip}, $main::opt{destdir}, "");
+ VFMG::Icons::do_fork();
}
1;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
