From 5d3903d31de512391136aa05e77de530baceb64a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 3 Dec 2002 13:12:01 +0000 Subject: add gtktext_append() and uses it --- perl-install/standalone/logdrake | 2 +- perl-install/ugtk2.pm | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index d4e7e11b6..e71881ff9 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -360,7 +360,7 @@ sub logcolorize { # log_output (Gtk2::TextView, [ [ ... ] ]) sub log_output { - gtktext_insert($log_text, [ \@_ ], { 'append' => 1 }); + gtktext_append($log_text, [ \@_ ]); } 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', ... } ], -- cgit v1.2.1