From 93c3c7b163c881c6e0b3e3c559bdd2cdafb59298 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 12 Dec 2002 09:18:10 +0000 Subject: add gtkmodify_font() and gtkset_property() --- perl-install/ugtk2.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index d346b5df2..fb338dbc0 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -11,7 +11,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus 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 + gtkhide gtkdestroy gtkflush gtkset_mousecursor gtkset_mousecursor_normal gtkset_markup gtkmodify_font gtkset_property gtkset_mousecursor_wait gtkappend_text gtkprepend_text gtkinsert_text gtkroot gtksetstyle) ], helpers => [ qw(add2notebook add_icon_path n_line_size fill_tiled fill_tiled_coords string_size get_text_coord gtkcolor gtkset_background gtkfontinfo gtkcreate_img gtkcreate_pixbuf set_back_pixbuf) ], @@ -531,6 +531,18 @@ sub gtkfontinfo { %fontinfo; } +sub gtkmodify_font { + my ($w, $arg) = @_; + $w->modify_font($arg); + $w; +} + +sub gtkset_property { + my ($w, $property, $value) = @_; + $w->set_property($property, $value); + $w; +} + sub set_back_pixbuf { my ($widget, $pixbuf) = @_; my $window = $widget->window; -- cgit v1.2.1