SVN: vfmg/trunk/VFMG/e17-desktop_out.pm

[sparky]

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;