From d395ae2a71b98db10cd5db7210a9b200b98980ef Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 23 Dec 2002 15:07:29 +0000 Subject: workaround gtk bug in gtk_entry_set_text --- perl-install/Xconfig/resolution_and_depth.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/Xconfig/resolution_and_depth.pm') 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); -- cgit v1.2.1