diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-07 10:59:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-07 10:59:05 +0000 |
| commit | 984199eeca87dbdb64a17a82547c30aba43a611c (patch) | |
| tree | c7c4e4523d44c30494071fa83e59ba2fd2a119ee /perl-install/ugtk2.pm | |
| parent | a90958c07766976397d04eda6765bce9b84faaf6 (diff) | |
| download | drakx-984199eeca87dbdb64a17a82547c30aba43a611c.tar drakx-984199eeca87dbdb64a17a82547c30aba43a611c.tar.gz drakx-984199eeca87dbdb64a17a82547c30aba43a611c.tar.bz2 drakx-984199eeca87dbdb64a17a82547c30aba43a611c.tar.xz drakx-984199eeca87dbdb64a17a82547c30aba43a611c.zip | |
simplify using mygtk2
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 16 |
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 }); |