summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-10-05 09:27:49 +0000
committerThierry Vignaud <tv@mandriva.org>2009-10-05 09:27:49 +0000
commit1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2 (patch)
treed016fbed136550f63a38ebe92710ea5d5e53f561 /perl-install/interactive/gtk.pm
parenta1e8fb98d4f56ef5256582fabb894780eaaa8594 (diff)
downloaddrakx-1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2.tar
drakx-1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2.tar.gz
drakx-1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2.tar.bz2
drakx-1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2.tar.xz
drakx-1e9fb1574ec27a9c8be8d03d3a4a5455a23744c2.zip
(create_widget) remember real kind thus fixing crash on clicking
Up/Down buttons (#54077) ; remember we use some stock icon so that we keep arrows on the same horizontal bar
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 12aeccebb..6cfedf766 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -459,7 +459,8 @@ sub create_widget {
my $button = /^gtk-/ ? gtknew('Button', image => gtknew('Image', stock => $_))
: Gtk2::Button->new(translate($_));
my $kind = $_;
- { kind => lc $kind, action => $actions->{$kind}, button => $button };
+ $kind =~ s/^gtk-go-//;
+ { kind => lc $kind, action => $actions->{$kind}, button => $button, real_kind => $_ };
} @buttons;
my $modify = find { $_->{kind} eq 'modify' } @buttons;
@@ -476,7 +477,7 @@ sub create_widget {
}
add_modify_remove_sensitive(\@buttons, $e);
- my ($images, $real_buttons) = partition { $_->{kind} =~ /^gtk-/ } @buttons;
+ my ($images, $real_buttons) = partition { $_->{real_kind} =~ /^gtk-/ } @buttons;
$real_w = gtkpack_(Gtk2::HBox->new(0,0),
1, create_scrolled_window($w),
0, gtkpack__(Gtk2::VBox->new(0,0),