diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 15:46:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-31 15:46:08 +0000 |
| commit | 3f1018b8d782e5d71e92a4f58ffe182d5f770f7f (patch) | |
| tree | d91829644e8fc09d7c7b9134bb196f0a2fa670e5 /perl-install/mygtk2.pm | |
| parent | 0a3ac67a7c22c2df28b7e8074ae0fc8529a2111a (diff) | |
| download | drakx-3f1018b8d782e5d71e92a4f58ffe182d5f770f7f.tar drakx-3f1018b8d782e5d71e92a4f58ffe182d5f770f7f.tar.gz drakx-3f1018b8d782e5d71e92a4f58ffe182d5f770f7f.tar.bz2 drakx-3f1018b8d782e5d71e92a4f58ffe182d5f770f7f.tar.xz drakx-3f1018b8d782e5d71e92a4f58ffe182d5f770f7f.zip | |
allow adding text to a TextView with gtkadd
Diffstat (limited to 'perl-install/mygtk2.pm')
| -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; } |