diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 14 |
1 files changed, 13 insertions, 1 deletions
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; |