diff options
author | damien <damien@mandriva.com> | 2001-08-07 20:58:32 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-08-07 20:58:32 +0000 |
commit | 80f0191de2b1a16ae666f039450d53fd37d3ee38 (patch) | |
tree | ac666a52147759a64ce1533ba2d8934ab8dfc2f1 /perl-install/my_gtk.pm | |
parent | 6907585cf10bf56cc1d1124a6a909956c31e4139 (diff) | |
download | drakx-backup-do-not-use-80f0191de2b1a16ae666f039450d53fd37d3ee38.tar drakx-backup-do-not-use-80f0191de2b1a16ae666f039450d53fd37d3ee38.tar.gz drakx-backup-do-not-use-80f0191de2b1a16ae666f039450d53fd37d3ee38.tar.bz2 drakx-backup-do-not-use-80f0191de2b1a16ae666f039450d53fd37d3ee38.tar.xz drakx-backup-do-not-use-80f0191de2b1a16ae666f039450d53fd37d3ee38.zip |
added gtkset_relief
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r-- | perl-install/my_gtk.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 12e8de640..bd4684446 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -10,7 +10,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 create_treeitem) ], - wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng write_on_pixmap gtkcreate_xpm gtkcreate_png) ], + wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng write_on_pixmap gtkcreate_xpm gtkcreate_png) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -250,6 +250,11 @@ sub gtkset_layout { $_[0]; } +sub gtkset_relief { + $_[0]->set_relief($_[1]); + $_[0]; +} + sub gtkadd($@) { my $w = shift; foreach (@_) { |