From 2008cf8543126df42dacf0ed7e4860d961b41e96 Mon Sep 17 00:00:00 2001 From: Eugeni Dodonov Date: Thu, 14 May 2009 00:50:56 +0000 Subject: Added support for toggling 'hidden' parameter on widgets. --- perl-install/interactive/gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index c144700de..5b9200ed8 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -661,6 +661,7 @@ sub create_widgets { my @all = all_entries($l); $_->{set}->(${$_->{val}}, $_) foreach @all; #- nb: the parameter "$_" is needed for create_boxradio $_->{disabled} and $_->{real_w}->set_sensitive(!$_->{disabled}()) foreach @all; + $_->{hidden} and $_->{w}->set_visibility(!$_->{hidden}()) foreach @all; $mainw->{ok}->set_sensitive(!$common->{ok_disabled}()) if $common->{ok_disabled}; $ignore = 0; }; -- cgit v1.2.1