summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect8
-rwxr-xr-xperl-install/standalone/drakfont1
-rwxr-xr-xperl-install/standalone/drakups2
-rwxr-xr-xperl-install/standalone/harddrake21
-rwxr-xr-xperl-install/standalone/logdrake1
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);