summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/diskdrake2
-rwxr-xr-xperl-install/standalone/drakclock2
-rw-r--r--perl-install/standalone/drakedm2
-rwxr-xr-xperl-install/standalone/drakfirewall2
-rwxr-xr-xperl-install/standalone/drakfloppy1
-rwxr-xr-xperl-install/standalone/drakperm1
-rwxr-xr-xperl-install/standalone/drakproxy1
-rwxr-xr-xperl-install/standalone/draksec1
-rwxr-xr-xperl-install/standalone/drakxservices1
-rwxr-xr-xperl-install/standalone/drakxtv2
-rwxr-xr-xperl-install/standalone/keyboarddrake1
-rwxr-xr-xperl-install/standalone/logdrake1
-rwxr-xr-xperl-install/standalone/mousedrake1
-rwxr-xr-xperl-install/standalone/net_monitor2
14 files changed, 20 insertions, 0 deletions
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/;