summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-07 10:59:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-07 10:59:05 +0000
commit984199eeca87dbdb64a17a82547c30aba43a611c (patch)
treec7c4e4523d44c30494071fa83e59ba2fd2a119ee /perl-install/ugtk2.pm
parenta90958c07766976397d04eda6765bce9b84faaf6 (diff)
downloaddrakx-backup-do-not-use-984199eeca87dbdb64a17a82547c30aba43a611c.tar
drakx-backup-do-not-use-984199eeca87dbdb64a17a82547c30aba43a611c.tar.gz
drakx-backup-do-not-use-984199eeca87dbdb64a17a82547c30aba43a611c.tar.bz2
drakx-backup-do-not-use-984199eeca87dbdb64a17a82547c30aba43a611c.tar.xz
drakx-backup-do-not-use-984199eeca87dbdb64a17a82547c30aba43a611c.zip
simplify using mygtk2
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ef8888b6b..32b5edb26 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -863,10 +863,12 @@ sub new {
$::WizardTable ||= gtknew('VBox');
if (!$::Plug && $o->{isEmbedded}) {
- $::Plug = $::WizardWindow = gtkshow(Gtk2::Plug->new($::XID));
- may_set_icon($::Plug, wm_icon());
- flush();
- gtkadd($::Plug, $::WizardTable);
+ $::Plug = $::WizardWindow = gtknew('Plug',
+ socket_id => $::XID,
+ icon => wm_icon(),
+ child => $::WizardTable,
+ title => $title || '',
+ );
} elsif (!$::WizardWindow) {
$::WizardWindow = _create_window(title => $title);
gtkadd($::WizardWindow, gtknew('Frame', shadow_type => 'out', child => $::WizardTable));
@@ -878,11 +880,11 @@ sub new {
$::WizardWindow->set_position('center_always') if !$::isStandalone;
eval { gtkpack__($::WizardTable, Gtk2::Banner->new(wm_icon(), $::Wizard_title)) };
$@ and log::l("ERROR: missing wizard banner");
- may_set_icon($::WizardWindow, wm_icon());
+ may_set_icon($::WizardWindow, wm_icon());
}
- $::WizardWindow->show;
}
- $::WizardWindow->set_title($title || '');
+ $::WizardWindow->show;
+ flush();
gtkpack($::WizardTable, $o->{window});
}
$o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 });