From 7dd552286d4801c30d05f9d521700e9110744e26 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 2 Sep 2004 08:05:36 +0000
Subject: reuse mcc icons (if availlable) for windows

---
 perl-install/standalone/diskdrake     | 2 ++
 perl-install/standalone/drakclock     | 2 ++
 perl-install/standalone/drakedm       | 2 ++
 perl-install/standalone/drakfirewall  | 2 ++
 perl-install/standalone/drakfloppy    | 1 +
 perl-install/standalone/drakperm      | 1 +
 perl-install/standalone/drakproxy     | 1 +
 perl-install/standalone/draksec       | 1 +
 perl-install/standalone/drakxservices | 1 +
 perl-install/standalone/drakxtv       | 2 ++
 perl-install/standalone/keyboarddrake | 1 +
 perl-install/standalone/logdrake      | 1 +
 perl-install/standalone/mousedrake    | 1 +
 perl-install/standalone/net_monitor   | 2 ++
 14 files changed, 20 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 74787fc21..d55968d81 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -34,6 +34,8 @@ use fs;
 use log;
 use c;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/diskdrake_hd.png";
+
 my %options;
 my @l = @ARGV;
 while (my $e = shift @l) {
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index fce13c510..a71e695ae 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -20,6 +20,8 @@ my $timer;
 my $first = 1;
 my $its_reset = 0;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/time-mdk.png";
+
 #my $conffile = '/etc/sysconfig/ntpclock';
 my $ntpfile = '/etc/ntp.conf';
 my $ntpdlock = '/var/lock/subsys/ntpd';
diff --git a/perl-install/standalone/drakedm b/perl-install/standalone/drakedm
index 9a63d177d..b5fb82ae4 100644
--- a/perl-install/standalone/drakedm
+++ b/perl-install/standalone/drakedm
@@ -25,6 +25,8 @@ use any;
 use interactive;
 use services;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakedm-mdk.png";
+
 my $in = 'interactive'->vnew('su');
 
 my $cfg_file = '/etc/sysconfig/desktop';
diff --git a/perl-install/standalone/drakfirewall b/perl-install/standalone/drakfirewall
index 8f0f0b3da..afd5abd13 100755
--- a/perl-install/standalone/drakfirewall
+++ b/perl-install/standalone/drakfirewall
@@ -23,6 +23,8 @@ use standalone;     #- warning, standalone must be loaded very first, for 'expla
 use interactive;
 use network::drakfirewall;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/firewall-mdk.png";
+
 my $in = 'interactive'->vnew('su');
 
 network::drakfirewall::main($in, undef);
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 5f0fbd007..e94ee0225 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -32,6 +32,7 @@ use common;
 use ugtk2 qw(:create :dialogs :helpers :wrappers);
 use detect_devices;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakfloppy-mdk.png";
 require_root_capability();
 
 my $window = ugtk2->new('drakfloppy');
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 8d9270889..10c6bf077 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -8,6 +8,7 @@ use standalone;
 use common;
 use ugtk2 qw(:helpers :wrappers :create);
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakperm-mdk.png";
 require_root_capability();
 local $_ = join '', @ARGV;
 
diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy
index aa48ae272..622c61859 100755
--- a/perl-install/standalone/drakproxy
+++ b/perl-install/standalone/drakproxy
@@ -26,6 +26,7 @@ use network::network;
 use any;
 use common;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakproxy-mdk.png";
 my $u = { getVarsFromSh('/etc/profile.d/proxy.sh') };
 my $in = 'interactive'->vnew('su');
 network::network::miscellaneous_choose($in, $u);
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index faeaacb06..5014008cd 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -38,6 +38,7 @@ use security::l10n;
 #/^-?-(\S+)$/ and $options{$1} = 1 foreach @ARGV;
 
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/draksec-mdk.png";
 my ($w, %fields);
 
 ############################    I18N     ###################################
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index 5da4b4464..91317d1f4 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -10,6 +10,7 @@ use interactive;
 use services;
 use log;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/service-mdk.png";
 my $in = 'interactive'->vnew('su');
 begin:
 my $l = services::ask($in);
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index 345c75349..709c13309 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -29,6 +29,8 @@ use detect_devices;
 use lang;
 use log;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png";
+
 my $in = 'interactive'->vnew;
 
 sub scan4channels() {
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index c45d70a34..cef005041 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -11,6 +11,7 @@ use common;
 use any;
 use c;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/keyboard-mdk.png";
 my $in;
 my $keyboard = keyboard::read();
 if (my ($kb) = grep { !/^-/ } @ARGV) {
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index b21004e2d..eca83ced2 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -29,6 +29,7 @@ use interactive;
 use ugtk2 qw(:create :dialogs :helpers :wrappers);
 use vars qw(*F);
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/logdrake-mdk.png";
 my $in = 'interactive'->vnew('su');
 
 my ($isExplain, $Explain, $isFile, $File, $isWord, $Word);
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index e78ecb2e8..2f6d0dd87 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -11,6 +11,7 @@ use mouse;
 use c;
 
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/mousedrake-mdk.png";
 my $in = 'interactive'->vnew('su');
 
 my $modules_conf = modules::any_conf->read;
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 41acdc186..0cc59aed2 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -34,6 +34,8 @@ use network::tools;
 use MDK::Common::Globals "network", qw($in);
 use POSIX;
 
+$ugtk2::wm_icon = "/usr/share/mcc/themes/default/net_monitor-mdk.png";
+
 if ("@ARGV" =~ /--status/) { print connected(); exit(0) }
 my $force = "@ARGV" =~ /--force/;
 my $quiet = "@ARGV" =~ /--quiet/;
-- 
cgit v1.2.1