From d9f9d08218ca75ad72b5a16f4521b84f31093466 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 2 Sep 2004 08:05:20 +0000
Subject: reuse icon for windows

---
 perl-install/standalone/drakhelp     | 1 +
 perl-install/standalone/printerdrake | 1 +
 perl-install/standalone/scannerdrake | 1 +
 3 files changed, 3 insertions(+)

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)) ||
-- 
cgit v1.2.1