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;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
