From 9081484aaf892c5c2f3a980a3a116a21d2ea4220 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 11 Jun 2001 16:03:41 +0000 Subject: no icon if wizard --- perl-install/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 55b4e58ae..6c3558301 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -68,7 +68,7 @@ sub vnew { eval { require interactive_gtk }; if (!$@) { my $o = interactive_gtk->new; - $icon and $o->{icon} = $icon; + $icon && !$::isWizard and $o->{icon} = $icon; return $o; } } -- cgit v1.2.1