diff options
| author | Daouda Lo <daouda@mandriva.com> | 2001-10-27 15:39:44 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2001-10-27 15:39:44 +0000 |
| commit | a70239045e7e83eb7add099032cfd02d0011fea9 (patch) | |
| tree | cc728fbe9bf9772ad54756de13be884fc4172735 /perl-install/my_gtk.pm | |
| parent | 75cc8f9156b32fcf8c95b85635fbbfddf11f6d6b (diff) | |
| download | drakx-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.pm | 7 |
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 #-############################################################################### |