5 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index d8f35ce49..97bbaad0c 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -79,6 +79,7 @@ unless ($::isEmbedded) {
     $window1->{rwindow}->set_position('center');
     $window1->{rwindow}->set_title(N("Network configuration (%d adapters)", scalar @all_cards));
     $window1->{rwindow}->set_size_request(-1, -1);
+    $window1->{rwindow}->set_icon(gtkcreate_pixbuf("drakconnect"));
 }
 $window1->{rwindow}->set_border_width(10);
 
@@ -191,6 +192,12 @@ sub manage {
     my $p = {};
     my ($interface_menu, $selected, $apply_button);
     my $window = ugtk2->new('Manage Connection');
+    unless ($::isEmbedded) {
+        $window->{rwindow}->set_position('center');
+        $window->{rwindow}->set_title(N("Manage connections")); # translation availlable in mcc domain => we need merging
+        $window->{rwindow}->set_icon(gtkcreate_pixbuf("drakconnect"));
+    }
+
     my $notebook = Gtk2::Notebook->new;
     $notebook->set_property('show-tabs', 0);
     $notebook->set_property('show-border', 0);
@@ -894,6 +901,7 @@ Please run \"Internet access\" in control center."));
         $dialog->{rwindow}->set_position('center');
         $dialog->{rwindow}->set_title(N("Internet connection configuration"));
         $dialog->{rwindow}->set_size_request(-1, -1);
+        $dialog->{rwindow}->set_icon(gtkcreate_pixbuf("drakconnect"));
     }
     $dialog->{rwindow}->signal_connect(delete_event => $exit_dialogsub);
 
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 0b8fc2440..f26252ed4 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -472,6 +472,7 @@ sub interactive_mode() {
     unless ($::isEmbedded) {
         $window1->{rwindow}->set_position('center');
         $window1->{rwindow}->set_title(N("DrakFont"));
+        $window1->{window}->set_icon(gtkcreate_pixbuf("drakfont"));
     }
     
     my $button = {};
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index c3252425b..7f8c7a83b 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -297,6 +297,8 @@ $w = ugtk2->new(N("DrakUPS"));
 if (!$::isEmbedded) {
     $::main_window = $w->{rwindow};
     $w->{window}->set_size_request(500, 550);
+    $w->{rwindow}->set_title(N("DrakUPS"));
+    $w->{rwindow}->set_icon(gtkcreate_pixbuf("drakups"));
 }
 
 #------------------------------------------------------------------
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 8120f025b..658b03571 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -148,6 +148,7 @@ if ($::isEmbedded) {
     $::main_window = $w->{rwindow};
     ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items);
     $w->{window}->set_size_request(805, 550);
+    $w->{window}->set_icon(gtkcreate_pixbuf("harddrake"));
 }
 
 my $tree_model = Gtk2::TreeStore->new("Gtk2::Gdk::Pixbuf", "Glib::String", "Glib::Int");
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 1d421eeb9..7b3484712 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -53,6 +53,7 @@ my $my_win = ugtk2->new($isExplain ? $explain_title : N("Logdrake"));
 unless ($::isEmbedded) {
     $my_win->{window}->set_border_width(5);
     #$my_win->{window}->set_default_size(540,460);
+    $my_win->{window}->set_icon(gtkcreate_pixbuf("logdrake"));
 }
 $my_win->{window}->signal_connect(delete_event => \&quit);