Tk::CollapsableFrame - Kontainer zur Strukturierung des Programms

Das CollapsableFrame-Widget ist ein Frame, das per Button ein- und ausgeblendet werden kann. In jQuery würde man hierfür die toggle-Funktion verwenden, um beispielsweise ein DIV ein- und auszublenden.

#!perl

use strict;
use warnings;
use Tk;
use Tk::CollapsableFrame;
use Tk::Pane;

my $mw = MainWindow->new;

my $cf = $mw->CollapsableFrame(-title => 'Frame1 ', -height => 50);
$cf->pack(-fill => 'both', -expand => 1);
$cf->toggle;

my $colf = $cf->Subwidget('colf');
my $but = $colf->Button(-text => 'Close Frame 1!');
$but->pack;
$but->bind('' => [sub {$_[1]->close}, $cf]);

$mw->MainLoop;
exit(0);
Top