in reply to Re: Select all/Select None option in the perl check box
in thread Select all/Select None option in the perl check box

This node falls below the community's minimum standard of quality and will not be displayed.
  • Comment on Re^2: Select all/Select None option in the perl check box

Replies are listed 'Best First'.
Re^3: Select all/Select None option in the perl check box
by marto (Cardinal) on Jan 23, 2012 at 10:54 UTC

    You are still being short. Is this a program you've written yourself? If so post a short working example of what you have. If not do you mean you're trying to automate a third party GUI program? Read and understand I know what I mean. Why don't you?.

      Please find the code snippet which I tried :

      sub TabulateModules{ print "TabulateModules\n"; print "=================\n"; my $paneModules = $_[0]; my $Index = 0; my $ModuleButtonReference = 0; if (@ModuleButtonarray){ foreach my $array (@ModuleButtonarray){ $array->packForget(); } } @ModuleButtonarray = (); @cbvalue = (); ###Debug : To remove @aModules = ("tt", "kl"); unshift(@aModules, "Select all"); foreach my $Modules (@aModules){ $ModuleButtonReference = $paneModules->Checkbutton( -text => "$Modules", -variable => \$cbvalue[$Index], -onvalue => 1, -offvalue => 0, -font => 'big', -foreground=>'black', -bg => 'DimGray', )->pack(-side=>'top',-anchor=>'sw' ); $Index++; push(@ModuleButtonarray, $ModuleButtonReference); } }

      Please Note : The "paneModules" is a scrolled pane. Description : In this snippet, Im creating a list of check button. For selecting all the check button at one go, I added one more item to the list say "Select all". My query is : if the check button "Select all" is selected, all other check box should also get selected and I want the checked items in a list.How can this be done?

Re^3: Select all/Select None option in the perl check box
by moritz (Cardinal) on Jan 23, 2012 at 10:54 UTC