summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2001-10-27 15:39:44 +0000
committerDaouda Lo <daouda@mandriva.com>2001-10-27 15:39:44 +0000
commita70239045e7e83eb7add099032cfd02d0011fea9 (patch)
treecc728fbe9bf9772ad54756de13be884fc4172735 /perl-install/my_gtk.pm
parent75cc8f9156b32fcf8c95b85635fbbfddf11f6d6b (diff)
downloaddrakx-a70239045e7e83eb7add099032cfd02d0011fea9.tar
drakx-a70239045e7e83eb7add099032cfd02d0011fea9.tar.gz
drakx-a70239045e7e83eb7add099032cfd02d0011fea9.tar.bz2
drakx-a70239045e7e83eb7add099032cfd02d0011fea9.tar.xz
drakx-a70239045e7e83eb7add099032cfd02d0011fea9.zip
return value at end of module
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 01dd81f47..f845d1de6 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -25,8 +25,6 @@ use common;
my $forgetTime = 1000; #- in milli-seconds
$border = 5;
-1;
-
#-###############################################################################
#- OO stuff
#-###############################################################################
@@ -45,7 +43,7 @@ sub new {
push @interactive::objects, $o if !$opts{no_interactive_objects};
$o->{rwindow}->set_position('center_always') if $::isStandalone;
$o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab};
-
+
if ($::isWizard && !$my_gtk::pop_it) {
my $rc = "/etc/gtk/wizard.rc";
-r $rc or $rc = dirname(__FILE__) . "/wizard.rc";
@@ -178,6 +176,7 @@ sub gtkpack__($@) {
my $box = shift;
gtkpack_($box, map {; 0, $_ } @_);
}
+
sub gtkpack_($@) {
my $box = shift;
for (my $i = 0; $i < @_; $i += 2) {
@@ -769,6 +768,8 @@ sub _ask_file {
$f->hide_fileop_buttons;
}
+1;
+
#-###############################################################################
#- rubbish
#-###############################################################################