summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-03 13:12:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-03 13:12:01 +0000
commit5d3903d31de512391136aa05e77de530baceb64a (patch)
tree4a5c8c81f5969eec00cfeccf592b990e5edfdd16 /perl-install/ugtk2.pm
parent8bd2384e3650933c8a17946a5a51e3c6e8529bce (diff)
downloaddrakx-5d3903d31de512391136aa05e77de530baceb64a.tar
drakx-5d3903d31de512391136aa05e77de530baceb64a.tar.gz
drakx-5d3903d31de512391136aa05e77de530baceb64a.tar.bz2
drakx-5d3903d31de512391136aa05e77de530baceb64a.tar.xz
drakx-5d3903d31de512391136aa05e77de530baceb64a.zip
add gtktext_append() and uses it
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 857ddcfd8..25f12fc54 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -8,8 +8,8 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus
%EXPORT_TAGS = (
wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_
gtkpack2__ gtkpowerpack gtkcombo_setpopdown_strings gtkset_editable gtkset_selectable gtkentry
- gtkset_text gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief
- gtkadd gtkexpand gtkput gtktext_insert gtkset_size_request gtksize gtkset_justify gtkset_active
+ gtkset_text gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief
+ gtkadd gtkexpand gtkput gtktext_append gtktext_insert gtkset_size_request gtksize gtkset_justify gtkset_active
gtkset_sensitive gtkset_visibility gtkset_modal gtkset_border_width gtkmove gtkresize gtkshow
gtkhide gtkdestroy gtkflush gtkset_mousecursor gtkset_mousecursor_normal gtkset_markup
gtkset_mousecursor_wait gtkappend_text gtkprepend_text gtkinsert_text gtkroot gtksetstyle) ],
@@ -490,6 +490,8 @@ sub gtkcreate_pixbuf {
return Gtk2::Gdk::Pixbuf->new_from_file(_find_imgfile(@_));
}
+sub gtktext_append { gtktext_insert(@_, { 'append' => 1 }) }
+
# choose one of the two styles:
# - gtktext_insert($textview, "My text..");
# - gtktext_insert($textview, [ [ 'first text', { 'foreground' => 'blue', 'background' => 'green', ... } ],