summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-19 15:16:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-19 15:16:12 +0000
commit980edfdf254947ae60534f97551be7018f0b75bb (patch)
tree458b7d77c31e6cd1468933f07c48907bb2c7be8c /perl-install
parent63f4f397d563d61ab8d876e8c8c3755e4d308d41 (diff)
downloaddrakx-980edfdf254947ae60534f97551be7018f0b75bb.tar
drakx-980edfdf254947ae60534f97551be7018f0b75bb.tar.gz
drakx-980edfdf254947ae60534f97551be7018f0b75bb.tar.bz2
drakx-980edfdf254947ae60534f97551be7018f0b75bb.tar.xz
drakx-980edfdf254947ae60534f97551be7018f0b75bb.zip
- remove debugging code
- document menu building
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/ui.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index a468fc1ee..e49e86d5c 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -272,9 +272,8 @@ sub new {
foreach (['PRINTERS_DETECTION', N("/Autodetect printers")], ['MODEMS_DETECTION', N("/Autodetect modems")]) {
$check_boxes{$_->[0]} = $menubar->{factory}->get_widget("<main>".N("/Options").$_->[1]);
- print "$_->[0] : value=$options{$_->[0]}, defined=" , defined($options{$_->[0]}), "\n";
- $options{$_->[0]} = 0 unless defined($options{$_->[0]});
- $check_boxes{$_->[0]}->set_active($options{$_->[0]});
+ $options{$_->[0]} = 0 unless defined($options{$_->[0]}); # force detection by default
+ $check_boxes{$_->[0]}->set_active($options{$_->[0]}); # restore saved values
}
foreach ($module_cfg_button, $config_button) { $_->hide };
@@ -287,7 +286,7 @@ sub quit_global {
kill(15, $pid) if $pid;
setVarsInSh($conffile, \%options);
$w->{rwindow}->destroy;
- $in->exit;
+ my_gtk->exit(0);
}
# remove a signal handler from a button & hide it if needed