diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-14 21:51:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-14 21:51:43 +0000 |
| commit | 76d7ccd56dc978a37b6068d5db45b47dbb80c8b9 (patch) | |
| tree | 71b5f95e20824d760eeeec966d4a6717606fb020 /perl-install/my_gtk.pm | |
| parent | a93e62d784e881146d533f917309416796766e19 (diff) | |
| download | drakx-backup-do-not-use-76d7ccd56dc978a37b6068d5db45b47dbb80c8b9.tar drakx-backup-do-not-use-76d7ccd56dc978a37b6068d5db45b47dbb80c8b9.tar.gz drakx-backup-do-not-use-76d7ccd56dc978a37b6068d5db45b47dbb80c8b9.tar.bz2 drakx-backup-do-not-use-76d7ccd56dc978a37b6068d5db45b47dbb80c8b9.tar.xz drakx-backup-do-not-use-76d7ccd56dc978a37b6068d5db45b47dbb80c8b9.zip | |
remove ask_file (was unused)
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 030bf4521..43c4e9e29 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -11,7 +11,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border); %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 gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive 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 gtkbuttonset) ], - ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ], + ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; @@ -666,7 +666,6 @@ sub ask_warn { my $w = my_gtk->new(shift @_); $w->_ask_warn(@_); main($w); sub ask_yesorno { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, _("Yes"), _("No")); main($w); } sub ask_okcancel { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, _("Is this correct?"), _("Ok"), _("Cancel")); main($w); } sub ask_from_entry { my $w = my_gtk->new(shift @_); $w->_ask_from_entry(@_); main($w); } -sub ask_file { my $w = my_gtk->new(''); $w->_ask_file(@_); main($w); } sub _ask_from_entry($$@) { my ($o, @msgs) = @_; |