diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-17 18:16:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-17 18:16:14 +0000 |
| commit | 234a6c88588be9def268f57bf43f9fae9b6317cf (patch) | |
| tree | 11394785c30b3bb0700c02526bccb0bef1d4828a /perl-install/interactive/gtk.pm | |
| parent | 346c27514bbb20b6a9b54fc8e46377add6a4daa6 (diff) | |
| download | drakx-234a6c88588be9def268f57bf43f9fae9b6317cf.tar drakx-234a6c88588be9def268f57bf43f9fae9b6317cf.tar.gz drakx-234a6c88588be9def268f57bf43f9fae9b6317cf.tar.bz2 drakx-234a6c88588be9def268f57bf43f9fae9b6317cf.tar.xz drakx-234a6c88588be9def268f57bf43f9fae9b6317cf.zip | |
simplify with gtkshow()
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index b202cf2e4..c0d14530c 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -33,9 +33,8 @@ sub ask_fileW { sub create_boxradio { my ($e, $may_go_to_next, $changed, $double_click) = @_; - my $boxradio = gtkpack2__(Gtk2::VBox->new(0, 0), - my @radios = gtkradio('', @{$e->{formatted_list}})); - $boxradio->show; + my $boxradio = gtkshow(gtkpack2__(Gtk2::VBox->new(0, 0), + my @radios = gtkradio('', @{$e->{formatted_list}}))); my $tips = Gtk2::Tooltips->new; mapn { my ($txt, $w) = @_; @@ -314,8 +313,7 @@ sub create_list { &$may_go_to_next if $event->keyval < 0x100 ? $c eq ' ' : $c eq "\r" || $c eq "\x8d"; 0; }); - $list->append_items($item); - $item->show; + $list->append_items(gtkshow($item)); if ($e->{help}) { gtkset_tip($tips, $item, ref($e->{help}) eq 'HASH' ? $e->{help}{$_} : @@ -399,8 +397,7 @@ sub ask_fromW { $e->{icon} = -e $f ? gtkcreate_img($f) : Gtk2::Label->new(may_apply($e->{format}, $_[0])); - $w->add($e->{icon}); - $e->{icon}->show; + $w->add(gtkshow($e->{icon})); }; $w->signal_connect(clicked => sub { $set->(${$e->{val}} = next_val_in_array(${$e->{val}}, $e->{list})); @@ -648,15 +645,14 @@ sub ask_fromW { }, 1 ]); my $buttons_pack = ($common->{ok} || !exists $common->{ok}) && $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @help, if_(@$l2, $advanced_button)); - $pack->pack_start($always_pack, 1, 1, 0); $always_pack->show; + $pack->pack_start(gtkshow($always_pack), 1, 1, 0); $pack->pack_start($advanced_pack, 1, 1, 0); if ($buttons_pack) { if ($::isWizard && !$mainw->{pop_it} && $::isInstall) { $buttons_pack->set_size_request($::windowwidth * 0.9 - 20, -1); $buttons_pack = gtkpack__(Gtk2::HBox->new(0,0), $buttons_pack); } - $pack->pack_start($buttons_pack, 0, 0, 0); - $buttons_pack->show; + $pack->pack_start(gtkshow($buttons_pack), 0, 0, 0); } gtkadd($mainw->{window}, $pack); $set_default_size->() if $has_scroll_always; |