summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakhelp1
-rwxr-xr-xperl-install/standalone/printerdrake1
-rwxr-xr-xperl-install/standalone/scannerdrake1
3 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index 2b24cab6b..224d1bc37 100644
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -28,6 +28,7 @@ Usage:
my ($opt, $idlabel) = @ARGV;
@ARGV == 2 && ($opt eq '--id' || $opt eq '--doc' || $opt eq '--help') or usage();
+$ugtk2::wm_icon = "help";
my $in = interactive->vnew;
my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel);
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 9d386d34a..d6fa7984b 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -47,6 +47,7 @@ local $_ = join '', @ARGV;
my $printer;
+$ugtk2::wm_icon = "printerdrake";
my $in = 'interactive'->vnew('su', if_(!$::isEmbedded, 'printer-mdk'));
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 9cd4b64d3..f23d4d201 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -41,6 +41,7 @@ foreach (@ARGV) {
/^--dynamic=(.*)$/ and do { dynamic(); exit() };
}
+$ugtk2::wm_icon = "scannerdrake";
my $in = 'interactive'->vnew('su');
if (!files_exist(qw(/usr/bin/scanimage
/etc/sane.d/dll.conf)) ||