summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/resolution_and_depth.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm
index 444bba4e5..063a4b71a 100644
--- a/perl-install/Xconfig/resolution_and_depth.pm
+++ b/perl-install/Xconfig/resolution_and_depth.pm
@@ -274,6 +274,7 @@ sub choose_gtk {
$depth_combo->set_popdown_strings(map { translate($depth2text{$_}) } ikeys %depth2x_res);
$depth_combo->entry->set_size_request(220, 0);
$depth_combo->entry->signal_connect(changed => sub {
+ $depth_combo->entry->get_text eq '' and return; #- FIXME temporarily workaround gtk suckiness (set_text generates two 'change' signals, one when removing the whole, one for inserting the replacement..)
my %txt2depth = reverse %depth2text;
my $s = $depth_combo->entry->get_text;
$chosen_Depth = $txt2depth{untranslate($s, keys %txt2depth)};
@@ -288,6 +289,7 @@ sub choose_gtk {
$x_res_combo->entry->set_editable(0);
$x_res_combo->set_popdown_strings(uniq map { "$_->{X}x$_->{Y}" } sort { $a->{X} <=> $b->{X} } @resolutions);
$x_res_combo->entry->signal_connect(changed => sub {
+ $x_res_combo->entry->get_text eq '' and return; #- FIXME temporarily workaround gtk suckiness (set_text generates two 'change' signals, one when removing the whole, one for inserting the replacement..)
$x_res_combo->entry->get_text =~ /(\d+)x(\d+)/;
$set_chosen_x_res->($1, $2);