From 7dd552286d4801c30d05f9d521700e9110744e26 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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/standalone') 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