diff options
| -rw-r--r-- | perl-install/standalone/drakhelp | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/printerdrake | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/scannerdrake | 1 |
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)) || |