summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 20:37:47 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 20:37:47 +0000
commit496d0f575ddd93af1c6b49c0044581abfc9c8aa5 (patch)
tree049da7dc65266717f88209d6f6a5365b1831e5bf /perl-install/interactive/gtk.pm
parent003d5e921e7e8b29a8d4d37f3e3728dfef1bc857 (diff)
downloaddrakx-496d0f575ddd93af1c6b49c0044581abfc9c8aa5.tar
drakx-496d0f575ddd93af1c6b49c0044581abfc9c8aa5.tar.gz
drakx-496d0f575ddd93af1c6b49c0044581abfc9c8aa5.tar.bz2
drakx-496d0f575ddd93af1c6b49c0044581abfc9c8aa5.tar.xz
drakx-496d0f575ddd93af1c6b49c0044581abfc9c8aa5.zip
(ask_fromW) gc prefers ->isa()
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 73376389d..21b9550c6 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -588,7 +588,7 @@ sub ask_fromW {
my (@widgets) = @_;
gtkpack__(Gtk2::VBox->new,
map {
- $_->{real_w} =~ /Gtk2::CheckButton/ && !$_->{icon_w} && !$_->{e}{label} ?
+ $_->{real_w}->isa("Gtk2::CheckButton") && !$_->{icon_w} && !$_->{e}{label} ?
$_->{real_w} : gtkpack_(Gtk2::HBox->new,
0, $_->{icon_w},
0, gtkadd_widget($label_sizegrp, $_->{e}{label}),