diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-08 18:41:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-08 18:41:06 +0000 |
| commit | db4013c2a40eaeb3752cc69623037e4bb274693b (patch) | |
| tree | 673a8af442a819373d5ef1a12960622ed03fe7e6 /perl-install/my_gtk.pm | |
| parent | 76e650b30ec0a17c0e3647cab46386744e837281 (diff) | |
| download | drakx-backup-do-not-use-db4013c2a40eaeb3752cc69623037e4bb274693b.tar drakx-backup-do-not-use-db4013c2a40eaeb3752cc69623037e4bb274693b.tar.gz drakx-backup-do-not-use-db4013c2a40eaeb3752cc69623037e4bb274693b.tar.bz2 drakx-backup-do-not-use-db4013c2a40eaeb3752cc69623037e4bb274693b.tar.xz drakx-backup-do-not-use-db4013c2a40eaeb3752cc69623037e4bb274693b.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index e5f7a6f26..7ebbd0fda 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -7,7 +7,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border); @ISA = qw(Exporter); %EXPORT_TAGS = ( helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title) ], - wrappers => [ qw(gtksignal_connect gtkpack gtkpack_ gtkappend gtkadd gtkset_usize gtkset_justify gtkset_active gtkshow gtkdestroy gtkset_mousecursor gtkset_background) ], + wrappers => [ qw(gtksignal_connect gtkpack gtkpack_ gtkappend gtkadd gtkset_usize gtkset_justify gtkset_active gtkshow gtkdestroy gtkset_mousecursor gtkset_background gtkset_default_fontset) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_from_list ask_file) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -159,6 +159,14 @@ sub gtkset_background { $root->draw_rectangle($gc, 1, 0, 0, $w, $h); } +sub gtkset_default_fontset($) { + my ($fontset) = @_; + + my $style = Gtk::Widget->get_default_style; + my $f = Gtk::Gdk::Font->fontset_load($fontset) or die; + $style->font($f); + Gtk::Widget->set_default_style($style); +} ################################################################################ |