summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-05-02 08:32:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-05-02 08:32:57 +0000
commitae728969f2c0c4d6e4d0c6845f434bdead7c22df (patch)
tree128d087484045167f28c93149ed8faebd1532e2e /perl-install
parent68490488f56ca52e8189795c90c9212df12824a5 (diff)
downloaddrakx-ae728969f2c0c4d6e4d0c6845f434bdead7c22df.tar
drakx-ae728969f2c0c4d6e4d0c6845f434bdead7c22df.tar.gz
drakx-ae728969f2c0c4d6e4d0c6845f434bdead7c22df.tar.bz2
drakx-ae728969f2c0c4d6e4d0c6845f434bdead7c22df.tar.xz
drakx-ae728969f2c0c4d6e4d0c6845f434bdead7c22df.zip
embedding cleanups resulting in reusing main window icon in sub dialogs
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakboot2
-rwxr-xr-xperl-install/standalone/drakfloppy2
-rwxr-xr-xperl-install/standalone/drakfont3
-rwxr-xr-xperl-install/standalone/drakperm2
-rwxr-xr-xperl-install/standalone/draksec4
-rwxr-xr-xperl-install/standalone/drakups2
-rwxr-xr-xperl-install/standalone/harddrake210
-rwxr-xr-xperl-install/standalone/logdrake3
-rwxr-xr-xperl-install/standalone/printerdrake2
9 files changed, 15 insertions, 15 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 12ab176a4..4229be543 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -64,7 +64,7 @@ sub run_boot_window {
my $w = ugtk2->new($title);
my $window = $w->{window};
- $::main_window = $w->{real_window} if !$::isEmbedded;
+ $::main_window = $w->{real_window};
$window->signal_connect(delete_event => sub { ugtk2->exit(0) });
unless ($::isEmbedded) {
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 8c09bd013..9cdfb3e82 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -115,7 +115,7 @@ my $remove_but;
sub pref_dialog() {
my $dialog = gtkset_modal(gtkset_size_request(_create_dialog(N("Advanced preferences")), 600, -1), 1);
- $dialog->set_transient_for($window->{real_window}) unless $::isEmbedded;
+ $dialog->set_transient_for($window->{real_window});
# Create root tree:
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index ad9b17d09..4f31f3c67 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -469,8 +469,7 @@ sub interactive_mode() {
$interactive = 1;
$window1 = ugtk2->new('drakfont');
$window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
- if ($::isEmbedded) {
- } else {
+ if (!$::isEmbedded) {
$window1->{rwindow}->set_position('center');
$window1->{rwindow}->set_title(N("DrakFont"));
}
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 6352f003f..2b0ee0900 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -236,7 +236,7 @@ sub row_setting_dialog {
my ($title, $o_iter) = @_;
my $dlg = Gtk2::Dialog->new;
- $dlg->set_transient_for($w->{real_window}) unless $::isEmbedded;
+ $dlg->set_transient_for($w->{real_window});
$dlg->set_title($title);
$dlg->set_modal(1);
# $dlg->set_resizable(0);
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index a65a5ecf0..6bbbd817b 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -65,7 +65,7 @@ my %inv_fields = reverse %fields;
# factorize this with rpmdrake and harddrake2
sub wait_msg {
- my $mainw = ugtk2->new(N("Please wait"), (modal => 1, if_(!$::isEmbedded, transient => $w->{real_window})));
+ my $mainw = ugtk2->new(N("Please wait"), (modal => 1, transient => $w->{real_window}));
$mainw->{window}->add(Gtk2::WrappedLabel->new($_[0]));
$mainw->{rwindow}->show_all;
gtkset_mousecursor_wait($mainw->{rwindow}->window);
@@ -343,7 +343,7 @@ gtkpack_($vbox,
]
),
{ use_markup => 1,
- if_(!$::isEmbedded, transient => $w->{real_window}),
+ transient => $w->{real_window},
height => 400,
width => 600,
scroll => 1,
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 5dbd6f6de..ca2d7f1bf 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -200,7 +200,7 @@ sub edit_row {
# create new item if needed (that is when adding a new one) at end of list
$iter ||= $model->append;
my $dialog = Gtk2::Dialog->new;
- $dialog->set_transient_for($w->{real_window}) unless $::isEmbedded;
+ $dialog->set_transient_for($w->{real_window});
$dialog->set_modal(1);
gtkpack_($dialog->vbox,
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 8a832d155..6125dfb8c 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -209,10 +209,10 @@ my @menu_items =
my $info = lookup_field($_);
if_($info->[0], formatAlaTeX(qq(<span foreground="royalblue3">$info->[0]:</span> $info->[1])));
} sort keys %$current_device),
- { use_markup => 1, if_(!$::isEmbedded, transient => $w->{real_window}), height => 400, scroll => 1 });
+ { use_markup => 1, transient => $w->{real_window}, height => 400, scroll => 1 });
} else {
- create_dialog(N("Select a device!"), N("Once you've selected a device, you'll be able to see the device information in fields displayed on the right frame (\"Information\")"), { if_(!$::isEmbedded, transient => $w->{real_window}) });
+ create_dialog(N("Select a device!"), N("Once you've selected a device, you'll be able to see the device information in fields displayed on the right frame (\"Information\")"), { transient => $w->{real_window} });
}
},
undef, '<Item>'
@@ -225,7 +225,7 @@ my @menu_items =
#-PO: Do not alter the <span ..> and </span> tags
N("This is HardDrake, a %s hardware configuration tool.\n<span foreground=\"royalblue3\">Version:</span> %s
<span foreground=\"royalblue3\">Author:</span> Thierry Vignaud &lt;tvignaud\@mandriva.com&gt;\n\n", $distro_name, $harddrake::data::version) . "\n" .
- formatAlaTeX($::license), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{real_window}) });
+ formatAlaTeX($::license), { use_markup => 1, transient => $w->{real_window} });
}, undef, '<Item>'
]
);
@@ -256,7 +256,7 @@ $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0),
0, $menubar,
0, Gtk2::Banner->new("/usr/share/mcc/themes/default/harddrake-mdk.png", translate("Hardware")),
1, create_hpaned(gtkadd(Gtk2::Frame->new(N("Detected hardware")),
- create_scrolled_window(gtkset_size_request(my $tree = Gtk2::TreeView->new_with_model($tree_model), $::isEmbedded ? 250 : 350, -1), ['automatic', 'automatic'])),
+ create_scrolled_window(gtkset_size_request(my $tree = Gtk2::TreeView->new_with_model($tree_model), 350, -1), ['automatic', 'automatic'])),
gtkpack_(0, Gtk2::VBox->new(0, 0),
1, gtkadd(my $frame = Gtk2::Frame->new(N("Information")),
create_scrolled_window(my $text = Gtk2::TextView->new)),
@@ -544,7 +544,7 @@ sub popup_menu {
sub upload() {
my $dialog = _create_dialog(N("Upload the hardware list"),
- { if_(!$::isEmbedded, transient => $w->{real_window}) }); #, height => 400
+ { transient => $w->{real_window} }); #, height => 400
gtkpack($dialog->vbox,
gtkset_markup(Gtk2::Label->new, qq(<span weight="bold">) . N("Upload the hardware list") . "</span>\n"),
create_packtable({ col_spacings => 10, row_spacings => 5, mcc => 1 },
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index bf491f71d..6a188a04d 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -216,13 +216,14 @@ sub parse_file {
$file =~ s/\.gz$//;
my ($pbar, $win_pb);
unless ($::isEmbedded && $isExplain) {
+ local $::main_window = $my_win->{real_window};
gtkadd($win_pb = gtkset_modal(Gtk2::Window->new('toplevel'), 1),
gtkpack(Gtk2::VBox->new(2,0),
Gtk2::Label->new(" " . N("please wait, parsing file: %s", $descr) . " "),
$pbar = Gtk2::ProgressBar->new
)
);
- $win_pb->set_transient_for($my_win->{real_window}) unless $::isEmbedded;
+ $win_pb->set_transient_for($my_win->{real_window});
$win_pb->set_position('center');
$win_pb->realize;
$win_pb->show_all;
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 4172d3364..352406fa1 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -540,7 +540,7 @@ sub CreateTree {
sub NewDialog {
my ($title, $o_no_button) = @_;
my $dialog = gtkset_border_width(Gtk2::Dialog->new, 10);
- $dialog->set_transient_for($us->{wnd}{real_window}) if !$isEmbedded;
+ $dialog->set_transient_for($us->{wnd}{real_window});
$dialog->set_position('center-on-parent');
$dialog->set_title($title);
$dialog->action_area->pack_start(gtkadd(Gtk2::HButtonBox->new,