diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-23 15:02:56 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-23 15:02:56 +0000 |
commit | 4753fd8706b5a560751583e39dff9469c1c34a5e (patch) | |
tree | 454ec30b521352b5a5890dcac51783926e83a7d0 /perl-install | |
parent | 2d896c9aef5a1d20790a03835c1b13cb2c23c0f0 (diff) | |
download | drakx-4753fd8706b5a560751583e39dff9469c1c34a5e.tar drakx-4753fd8706b5a560751583e39dff9469c1c34a5e.tar.gz drakx-4753fd8706b5a560751583e39dff9469c1c34a5e.tar.bz2 drakx-4753fd8706b5a560751583e39dff9469c1c34a5e.tar.xz drakx-4753fd8706b5a560751583e39dff9469c1c34a5e.zip |
workaround bug introduced by new pixel focus managment
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 168cf7f45..d8285dd60 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -630,7 +630,7 @@ sub ask_fromW { @widgets && ($common->{focus_first} || @widgets == 1 && member(ref $widgets[0]{focus_w}, "Gtk2::TreeView", "Gtk2::RadioButton")) ? $widgets[0]{focus_w} : $mainw->{ok}; - $widget_to_focus->grab_focus(); + $widget_to_focus->grab_focus() if $widget_to_focus; my $check = sub { my ($f) = @_; |