# labelframe.pl

use vars qw/$TOP/;

sub labelframe {

    # Create a top-level window that displays several Labelframe widgets.

    my($demo) = @_;
    $TOP = $MW->WidgetDemo(
        -geometry_manager => 'grid',
        -name             => $demo,
        -text             => 'Labelframes are used to group related widgets together. The label maybe either plain text or another widget.',
        -title            => 'Labelframe Demonstration',
        -iconname         => 'labelframe',
    );

    # A group of radiobuttons in a labelframe

    my $lf1 = $TOP->Labelframe(qw/-text Value -padx 2 -pady 2/);
    $lf1->grid(qw/-row 0 -column 0 -pady 2m -padx 2m/);

    my $lfdummy;
    foreach my $value (1 .. 4) {
	$lf1->Radiobutton(
            -text     => "This is value $value" ,
            -variable => \$lfdummy,
            -value    => $value,
        )->pack(qw/-side top -fill x -pady 2/);
    }

    # A label window controlling a group of options.

    my $lf2 = $TOP->Labelframe(qw/-pady 2 -padx 2/);
    $lf2->grid(qw/-row 0 -column 1 -pady 2m -padx 2m/);
    my $lfdummy2;
    my $cb;
    $cb = $lf2->Checkbutton(
        -text     => 'Use this option',
        -variable =>  \$lfdummy2,
        -command  => sub {&labelframe_buttons($lf2, $cb, \$lfdummy2)},
        -padx     => 0,
    );
    $lf2->configure(-labelwidget => $cb);

    foreach my $str (qw/Option1 Option2 Option3/) {
	$lf2->Checkbutton(-text => $str)->pack(qw/-side top -fill x -pady 2/);
    }

    &labelframe_buttons($lf2, $cb, \$lfdummy2);

    $TOP->gridColumnconfigure([0, 1], -weight => 1);

} # end labelframe

sub  labelframe_buttons {

    # The state of the sub-Checkbuttons is dependent upon the state of
    # the master -labelwidget Checkbutton.

    my ($lf, $cb, $var_ref) = @_;

    foreach my $child ($lf->children) {
        next if $child == $cb;
        if ($$var_ref) {
            $child->configure(qw/-state normal/);
        } else {
            $child->configure(qw/-state disabled/);
        }
    }

} # end labelframe_buttons

1;