SVN: vfmg/trunk/VFMG/afterstep_out.pm

[sparky]

Author: sparky
Date: Sat Dec  2 23:04:24 2006
New Revision: 8043

Modified:
   vfmg/trunk/VFMG/afterstep_out.pm
Log:
- use VFMG::Icons


Modified: vfmg/trunk/VFMG/afterstep_out.pm
==============================================================================
--- vfmg/trunk/VFMG/afterstep_out.pm	(original)
+++ vfmg/trunk/VFMG/afterstep_out.pm	Sat Dec  2 23:04:24 2006
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 use File::Path qw(mkpath);
+use VFMG::Icons;
 
 sub destdir {
 	return "$ENV{'HOME'}/GNUstep/Library/AfterStep/start";
@@ -16,8 +17,7 @@
 		my $name = main::encode($main::opt{encoding},$$d{Name});
 		if ($main::menu[$no]{$entry} < 0) {
 			$name=~s/\"/\\\"/g;
-			my $icon = "";
-			$icon = main::scale_icon($$d{Icon}) if $main::opt{icons};
+			my $icon = &$VFMG::Icons::scale_icon($$d{Icon});
 			my $F_OUT;
 			open $F_OUT, ">> $dir/$$d{file}" or warn "$dir/$$d{file}: $!\n";
 			print $F_OUT qq(Exec "$name" exec $$d{Exec}\n);
@@ -32,7 +32,9 @@
 }
 
 sub do_menu() {
+	VFMG::Icons::init();
 	afterstep($main::opt{strip},$main::opt{destdir});
+	VFMG::Icons::do_fork();
 }
 
 1;