diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 8 | ||||
| -rw-r--r-- | perl-install/mygtk3.pm | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 1886cfd45..ffe3d96e4 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -49,7 +49,7 @@ sub create_boxradio { mapn { my ($txt, $w) = @_; # workaround infamous 6 years old gnome bug #101968: - $w->child->set_size_request(mygtk3::get_label_width(), -1) if $e->{alignment} ne 'right' && !$e->{label}; + $w->get_child->set_size_request(mygtk3::get_label_width(), -1) if $e->{alignment} ne 'right' && !$e->{label}; $w->signal_connect(button_press_event => $double_click) if $double_click; $w->signal_connect(key_press_event => $e->{may_go_to_next}); @@ -416,7 +416,7 @@ sub create_widget { $w = gtknew(($e->{install_button} ? 'Install_Button' : 'Button'), text => '', clicked => $e->{clicked_may_quit_cooked}); $set = sub { - my $w = $w->child; + my $w = $w->get_child; # handle Install_Buttons: if (ref($w) =~ /Gtk3::HBox/) { ($w) = find { ref($_) =~ /Gtk3::Label/ } $w->get_children; @@ -519,11 +519,11 @@ sub create_widget { if ($e->{not_edit}) { $real_w = $w = Gtk3::ComboBoxText->new; # FIXME: the following causes Gtk-CRITICAL but not solvable at realize time: - first($w->child->get_cells)->set_property('ellipsize', 'end') if !$e->{do_not_ellipsize}; + first($w->get_child->get_cells)->set_property('ellipsize', 'end') if !$e->{do_not_ellipsize}; $w->set_wrap_width($e->{gtk}{wrap_width}) if exists $e->{gtk}{wrap_width}; } else { $w = Gtk3::ComboBoxEntry->new_text; - ($real_w, $w) = ($w, $w->child); + ($real_w, $w) = ($w, $w->get_child); } $real_w->set_popdown_strings(@formatted_list); } else { diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index ccbd23e27..55bc12884 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -666,7 +666,7 @@ sub _gtk__ScrolledWindow { $child->set_left_margin(6) if ref($child) =~ /Gtk3::TextView/ && $child->get_left_margin <= 6; $child->show; - $w->child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type}; + $w->get_child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type}; if (ref($child) eq 'Gtk3::TextView' && delete $opts->{to_bottom}) { $child->{to_bottom} = _allow_scroll_TextView_to_bottom($w, $child); @@ -909,7 +909,7 @@ sub _gtk__MagicWindow { if ($previous_popped_and_reuse_window && $pop_and_reuse) { $w = $previous_popped_and_reuse_window; - $w->remove($w->child); + $w->remove($w->get_child); gtkadd($w, child => $sub_child); %$opts = (); |