From 218965b57bbf49af6455d036f18f86dc7b7df64f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Apr 2001 16:53:12 +0000 Subject: use gtkset_tip (choosePackagesTree): fix "Show automatically selected packages" --- perl-install/install_steps_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index e2bfcf8ab..d872ba977 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -336,7 +336,7 @@ sub choosePackagesTree { ) )); gtkpack__($l, my $toolbar = new Gtk::Toolbar('horizontal', 'icons')); - gtkpack__($l, gtksignal_connect(new Gtk::CheckButton(_("Show automatically selected packages")), clicked => sub { invbool \$auto_deps })); + gtkpack__($l, gtksignal_connect(gtkset_active(new Gtk::CheckButton(_("Show automatically selected packages")), $auto_deps), clicked => sub { invbool \$auto_deps })); $l->pack_end($w_size = new Gtk::Label(''), 0, 1, 20); $w->{window}->set_usize(map { $_ - 2 * $my_gtk::border - 4 } $::windowwidth, $::windowheight); -- cgit v1.2.1