From 8eda95cfd17ba78c28e2e818b36a5ac8c26b1c1c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 22 Jan 2005 20:04:52 +0000 Subject: fix the various transient on {rwindow} (or even {window} ?) not working anymore on the MagicWindow (maybe the code could be simplified since it should now work even when embedded (?)) --- perl-install/diskdrake/hd_gtk.pm | 2 +- perl-install/standalone/drakboot | 2 +- perl-install/standalone/drakfloppy | 2 +- perl-install/standalone/drakfont | 2 +- perl-install/standalone/drakperm | 2 +- perl-install/standalone/draksec | 4 ++-- perl-install/standalone/draksplash | 2 +- perl-install/standalone/drakups | 4 ++-- perl-install/standalone/harddrake2 | 8 ++++---- perl-install/standalone/logdrake | 2 +- perl-install/standalone/printerdrake | 2 +- 11 files changed, 16 insertions(+), 16 deletions(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index a4ce1be77..036bfff85 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -53,7 +53,7 @@ sub main { local $in->{grab} = 1; $w = ugtk2->new('DiskDrake'); - $::main_window = $w->{rwindow} if !$::isEmbedded && !$::isInstall; + $::main_window = $w->{real_window} if !$::isEmbedded && !$::isInstall; my $rc = "/usr/share/libDrakX/diskdrake.rc"; -r $rc or $rc = dirname(__FILE__) . "/../diskdrake.rc"; -r $rc or $rc = dirname(__FILE__) . "/../share/diskdrake.rc"; diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 493a4c15b..02486a772 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -63,7 +63,7 @@ my $remove_theme = '/usr/share/bootsplash/scripts/remove-theme'; my $w = ugtk2->new($splash_working ? N("Graphical boot theme selection") : N("System mode")); my $window = $w->{window}; -$::main_window = $w->{rwindow} if !$::isEmbedded; +$::main_window = $w->{real_window} if !$::isEmbedded; $window->signal_connect(delete_event => sub { ugtk2->exit(0) }); unless ($::isEmbedded) { diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index 242b11c3a..16e86cad7 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->{rwindow}) unless $::isEmbedded; + $dialog->set_transient_for($window->{real_window}) unless $::isEmbedded; # Create root tree: diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 1576f54a1..11d46aa3c 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -624,7 +624,7 @@ sub exitdialog() { Gtk2->main_quit }; sub dialog { my ($title, $widgets, $buttons, $o_main_loop) = @_; - $dialog = _create_dialog($title, { transient => $::isEmbedded ? $::Plug : $window1->{window} }); + $dialog = _create_dialog($title, { transient => $window1->{real_window} }); $dialog->signal_connect(delete_event => \&exitdialog); gtkpack_($dialog->vbox, @$widgets); gtkpack($dialog->action_area, @$buttons) if $buttons; diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 3b680fe9a..d4c2a8ea6 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -236,7 +236,7 @@ sub row_setting_dialog { my ($iter) = @_; my $dlg = Gtk2::Dialog->new; - $dlg->set_transient_for($w->{rwindow}) unless $::isEmbedded; + $dlg->set_transient_for($w->{real_window}) unless $::isEmbedded; $dlg->set_modal(1); # $dlg->set_resizable(0); my $browse = Gtk2::Button->new(N("browse")); diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 371702303..7f9b87a9f 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->{rwindow}))); + my $mainw = ugtk2->new(N("Please wait"), (modal => 1, if_(!$::isEmbedded, 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->{window}), + if_(!$::isEmbedded, transient => $w->{real_window}), height => 400, width => 600, scroll => 1, diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 4a59407bd..072b593b6 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -165,7 +165,7 @@ $first{widgets}{combo}{res}->entry->signal_connect(changed => sub { #- image file selection for new theme $first{widgets}{button}{file}->signal_connect(clicked => sub { my $file_dialog = gtkset_modal(Gtk2::FileSelection->new(N("choose image")), 1); - $file_dialog->set_transient_for($window->{rwindow}); + $file_dialog->set_transient_for($window->{real_window}); $file_dialog->set_filename($img_file || '~/'); $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups index ee6aeedb1..6995377c5 100755 --- a/perl-install/standalone/drakups +++ b/perl-install/standalone/drakups @@ -196,7 +196,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->{rwindow}) unless $::isEmbedded; + $dialog->set_transient_for($w->{real_window}) unless $::isEmbedded; $dialog->set_modal(1); gtkpack_($dialog->vbox, @@ -324,7 +324,7 @@ if (member('--wizard', @ARGV)) { $w = ugtk2->new(N("DrakUPS")); if (!$::isEmbedded) { - $::main_window = $w->{rwindow}; + $::main_window = $w->{real_window}; $w->{window}->set_size_request(500, 550); $w->{rwindow}->set_title(N("DrakUPS")); } diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index bb9e5df32..8621622d2 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -204,10 +204,10 @@ my @menu_items = my $info = lookup_field($_); if_($info->[0], formatAlaTeX(qq($info->[0]: $info->[1]))); } sort keys %$current_device), - { use_markup => 1, if_(!$::isEmbedded, transient => $w->{rwindow}), height => 400, scroll => 1 }); + { use_markup => 1, if_(!$::isEmbedded, 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->{rwindow}) }); + 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}) }); } }, undef, '' @@ -220,7 +220,7 @@ my @menu_items = #-PO: Do not alter the and tags N("This is HardDrake, a %s hardware configuration tool.\nVersion: %s Author: Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $distro_name, $harddrake::data::version) . "\n" . - formatAlaTeX($::license), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{rwindow}) }); + formatAlaTeX($::license), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{real_window}) }); }, undef, '' ] ); @@ -241,7 +241,7 @@ my ($menubar, $factory); if ($::isEmbedded) { ($menubar, $factory) = create_factory_menu($::Plug, @menu_items); } else { - $::main_window = $w->{rwindow}; + $::main_window = $w->{real_window}; ($menubar, $factory) = create_factory_menu($w->{rwindow}, @menu_items); $w->{window}->set_size_request(805, 550); } diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index ed5a6a507..1e288e5f6 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -222,7 +222,7 @@ sub parse_file { $pbar = Gtk2::ProgressBar->new ) ); - $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded; + $win_pb->set_transient_for($my_win->{real_window}) unless $::isEmbedded; $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 a60e11255..ce3e7b3d7 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -538,7 +538,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}{rwindow}) if !$isEmbedded; + $dialog->set_transient_for($us->{wnd}{real_window}) if !$isEmbedded; $dialog->set_position('center-on-parent'); $dialog->set_title($title); $dialog->action_area->pack_start(gtkadd(Gtk2::HButtonBox->new, -- cgit v1.2.1