summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-10 16:35:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-10 16:35:20 +0000
commit9c03b485510efd23bbe8a8081b0f8929ae53e297 (patch)
tree99ba1a41035c5e11e1e3046602bdeab33deca075 /perl-install
parentea9bb377b25a6d76f2f21348f4098bdcf875a92d (diff)
downloaddrakx-9c03b485510efd23bbe8a8081b0f8929ae53e297.tar
drakx-9c03b485510efd23bbe8a8081b0f8929ae53e297.tar.gz
drakx-9c03b485510efd23bbe8a8081b0f8929ae53e297.tar.bz2
drakx-9c03b485510efd23bbe8a8081b0f8929ae53e297.tar.xz
drakx-9c03b485510efd23bbe8a8081b0f8929ae53e297.zip
create and use gtkset_tip
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/my_gtk.pm7
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($_) } @_;