summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-06-11 16:08:00 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-06-11 16:08:00 +0000
commitd036040823c01ce0d140271618f1fbbb9f2f8f51 (patch)
tree24b118407e8d6408c11627f7cdad42f0593cbcc7 /perl-install/ugtk2.pm
parent884bae7c56507266844a7f8a29bb99f778219dde (diff)
downloaddrakx-backup-do-not-use-d036040823c01ce0d140271618f1fbbb9f2f8f51.tar
drakx-backup-do-not-use-d036040823c01ce0d140271618f1fbbb9f2f8f51.tar.gz
drakx-backup-do-not-use-d036040823c01ce0d140271618f1fbbb9f2f8f51.tar.bz2
drakx-backup-do-not-use-d036040823c01ce0d140271618f1fbbb9f2f8f51.tar.xz
drakx-backup-do-not-use-d036040823c01ce0d140271618f1fbbb9f2f8f51.zip
bug fixed in upstream gtk2
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index feff51df3..d49bdaa40 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1238,8 +1238,7 @@ sub ask_browse_tree_info_given_widgets {
$w->{tree}->signal_connect(key_press_event => sub {
my $c = chr($_[1]->keyval & 0xff);
if ($_[1]->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ') {
- Gtk2->update_ui; #- ultra dirty hackish so that gtk
- Gtk2->timeout_add(1, sub { $toggle->(0), 0 }) #- will not loop forever
+ $toggle->(0);
}
0;
});
@@ -1259,8 +1258,8 @@ sub ask_browse_tree_info_given_widgets {
#- two changed events, the first being on a different row :/ (is it a bug in gtk2?) - that
#- happens in rpmdrake when doing a "search" and directly trying to select a found package
if ($mouse_toggle_pending eq $model->get($iter, 0)) {
- Gtk2->update_ui;
- Gtk2->timeout_add(1, sub { $toggle->(1), $mouse_toggle_pending = 0 });
+ $toggle->(1);
+ $mouse_toggle_pending = 0;
}
0;
});