summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-30 16:39:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-30 16:39:41 +0000
commit9478e0e4744c1fd4cc5e2d5bab82b124191b93fd (patch)
treebf66db4205fa590618cbdda4f82adf21502faab5 /perl-install/mygtk2.pm
parent482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf (diff)
downloaddrakx-backup-do-not-use-9478e0e4744c1fd4cc5e2d5bab82b124191b93fd.tar
drakx-backup-do-not-use-9478e0e4744c1fd4cc5e2d5bab82b124191b93fd.tar.gz
drakx-backup-do-not-use-9478e0e4744c1fd4cc5e2d5bab82b124191b93fd.tar.bz2
drakx-backup-do-not-use-9478e0e4744c1fd4cc5e2d5bab82b124191b93fd.tar.xz
drakx-backup-do-not-use-9478e0e4744c1fd4cc5e2d5bab82b124191b93fd.zip
make MagicWindow re-entrant again (was broken due to only one banner, eg. for drakx summary)
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm21
1 files changed, 12 insertions, 9 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 8abaf1046..504325003 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -506,11 +506,14 @@ sub _gtk__MagicWindow {
$w = $::WizardWindow;
- $::Banner->destroy if $::Banner;
- gtkadd($::WizardTable, children_tight => [ $::Banner = $provided_banner ]) if $provided_banner;
+ gtkadd($::WizardTable, children_tight => [ $provided_banner ]) if $provided_banner;
gtkadd($::WizardTable, children_loose => [ $sub_child ]);
}
- bless { real_window => $w, child => $sub_child, pop_it => $pop_it }, 'mygtk2::MagicWindow';
+ bless {
+ real_window => $w,
+ child => $sub_child, pop_it => $pop_it,
+ if_($provided_banner, banner => $provided_banner),
+ }, 'mygtk2::MagicWindow';
}
sub _gtk__FileSelection {
@@ -670,19 +673,19 @@ sub mygtk2::MagicWindow::AUTOLOAD {
my ($meth) = $mygtk2::MagicWindow::AUTOLOAD =~ /mygtk2::MagicWindow::(.*)/;
- my ($s1, $s2) = $meth eq 'show'
- ? ('real_window', 'child') :
+ my @l = $meth eq 'show'
+ ? ('banner', 'child', 'real_window') :
+ $meth eq 'destroy' || $meth eq 'hide' ?
+ ($w->{pop_it} ? 'real_window' : ('banner', 'child')) :
$meth eq 'get' && $args[0] eq 'window-position' ||
- $w->{pop_it} && ($meth eq 'destroy' || $meth eq 'hide') ||
$for_real_window{$meth} ||
!$w->{child}->can($meth)
? 'real_window'
: 'child';
-#- warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on $s1 (@args)\n";
+#- warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on @l (@args)\n";
- $w->{$s2}->$meth(@args) if $s2;
- $w->{$s1}->$meth(@args);
+ $w->{$_} && $w->{$_}->$meth(@args) foreach @l;
}
sub _create_Window {