Re^3: Select all/Select None option in the perl check box

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?.

Comment on Re^3: Select all/Select None option in the perl check box

Replies are listed 'Best First'.
Re^4: Select all/Select None option in the perl check box by priyaviswam (Sexton) on Jan 23, 2012 at 11:10 UTC
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); } } [download] 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?	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Select all/Select None option in the perl check box
by priyaviswam (Sexton) on Jan 23, 2012 at 11:10 UTC

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);
    }
}
[download]

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?

[reply]
[d/l]