diff options
| -rw-r--r-- | perl-install/mygtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 8f45e77b7..f799f57e0 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -346,7 +346,7 @@ sub _gtk__Entry { } sub _gtk__TextView { - my ($w, $opts) = @_; + my ($w, $opts, $_class, $action) = @_; if (!$w) { $w = Gtk2::TextView->new; @@ -355,7 +355,7 @@ sub _gtk__TextView { $w->set_cursor_visible(delete $opts->{cursor_visible}) if exists $opts->{cursor_visible}; } - _text_insert($w, delete $opts->{text}) if exists $opts->{text}; + _text_insert($w, delete $opts->{text}, append => $action eq 'gtkadd') if exists $opts->{text}; $w; } |