From 9c03b485510efd23bbe8a8081b0f8929ae53e297 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Apr 2001 16:35:20 +0000 Subject: create and use gtkset_tip --- perl-install/install_steps_gtk.pm | 2 +- perl-install/my_gtk.pm | 7 ++++++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 6fb6f87a2..e2bfcf8ab 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -281,7 +281,7 @@ sub reallyChooseGroups { print "Size is now ", &$size_to_display, "\n"; $w_size->set(&$size_to_display); }); - $tips->set_tip($check, $help); + gtkset_tip($tips, $check, $help); my $old = $path; $path = $o->{compssUsers}{$e}{path}; diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index d05d7b09d..fba9604c3 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 gtkappenditems gtkappend gtkset_shadow_type 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 gtkcreate_xpm gtkcreate_png) ], + wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type 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 gtkcreate_xpm gtkcreate_png) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -215,6 +215,11 @@ sub gtksetstyle { $w; } +sub gtkset_tip { + my ($tips, $w, $tip) = @_; + $tips->set_tip($w, $tip) if $tip; +} + sub gtkappenditems { my $w = shift; map {gtkshow($_) } @_; -- cgit v1.2.1