diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-12 09:18:10 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-12 09:18:10 +0000 |
| commit | 93c3c7b163c881c6e0b3e3c559bdd2cdafb59298 (patch) | |
| tree | 16a0c1fa2227c1d5831e37f2eeecd19d7cec8764 /perl-install | |
| parent | b0c24131955e647b816ce7905ba37421d4a34494 (diff) | |
| download | drakx-backup-do-not-use-93c3c7b163c881c6e0b3e3c559bdd2cdafb59298.tar drakx-backup-do-not-use-93c3c7b163c881c6e0b3e3c559bdd2cdafb59298.tar.gz drakx-backup-do-not-use-93c3c7b163c881c6e0b3e3c559bdd2cdafb59298.tar.bz2 drakx-backup-do-not-use-93c3c7b163c881c6e0b3e3c559bdd2cdafb59298.tar.xz drakx-backup-do-not-use-93c3c7b163c881c6e0b3e3c559bdd2cdafb59298.zip | |
add gtkmodify_font() and gtkset_property()
Diffstat (limited to 'perl-install')
| -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; |