summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-12 09:18:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-12 09:18:10 +0000
commit93c3c7b163c881c6e0b3e3c559bdd2cdafb59298 (patch)
tree16a0c1fa2227c1d5831e37f2eeecd19d7cec8764 /perl-install
parentb0c24131955e647b816ce7905ba37421d4a34494 (diff)
downloaddrakx-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.pm14
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;