summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-22 17:17:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-22 17:17:41 +0000
commit74fb93802dbeddc4c8b9912511eea39a786656e0 (patch)
tree3f4455d8001ea92a8f59e92f1ac383d455e178a3 /perl-install
parentfe7ed41a9fcfd21eb1f900d1aeb84fe141a9e732 (diff)
downloaddrakx-74fb93802dbeddc4c8b9912511eea39a786656e0.tar
drakx-74fb93802dbeddc4c8b9912511eea39a786656e0.tar.gz
drakx-74fb93802dbeddc4c8b9912511eea39a786656e0.tar.bz2
drakx-74fb93802dbeddc4c8b9912511eea39a786656e0.tar.xz
drakx-74fb93802dbeddc4c8b9912511eea39a786656e0.zip
workaround set_active failing
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 489b006e5..1c2a3f770 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -829,7 +829,7 @@ sub chooseResolutionsGtk($$;$) {
#- the set function is usefull to toggle the CheckButton with the callback being ignored
my $ignore;
my $no_human; # is the w2_combo->entry changed by a human?
- my $set = sub { $ignore = 1; $_[0]->set_active(1); $ignore = 0; };
+ my $set = sub { $ignore = 1; $_[0] and $_[0]->set_active(1); $ignore = 0; };
my %monitor;
$monitor{$_} = [ gtkcreate_png("monitor-" . $_ . ".png") ] foreach (640, 800, 1024, 1280);