diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-08-30 16:34:06 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:36 +0100 |
| commit | c55ce2a4f9967518bc736102a29afa8181815f6c (patch) | |
| tree | 1f5aae4f11cc8e569ed24cb57781e6c6bc1c589e /perl-install/mygtk3.pm | |
| parent | 3af428310c36de7529b6742a305f56b57caa4d70 (diff) | |
| download | drakx-c55ce2a4f9967518bc736102a29afa8181815f6c.tar drakx-c55ce2a4f9967518bc736102a29afa8181815f6c.tar.gz drakx-c55ce2a4f9967518bc736102a29afa8181815f6c.tar.bz2 drakx-c55ce2a4f9967518bc736102a29afa8181815f6c.tar.xz drakx-c55ce2a4f9967518bc736102a29afa8181815f6c.zip | |
->child() => ->get_child()
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 = (); |