use strict; use warnings; use Tk; use Tk::widgets qw/CollapsableFrame Pane/; my $mw = MainWindow->new; my $pane = $mw->Scrolled( qw/Pane -width 250 -height 50 -scrollbars osow -sticky nw/, )->pack; my $cf = $pane->CollapsableFrame(-title => 'Frame1 ', -height => 50); $cf->pack(qw/-fill x -expand 1/); $cf->toggle; my $colf = $cf->Subwidget('colf'); my $but = $colf->Button(-text => 'Close Frame 1!'); $but->pack; $but->bind('<Button-1>' => [sub {$_[1]->close}, $cf]); MainLoop;
In reply to Re: Scrollbar within a Collapsable Frame
by Anonymous Monk
in thread Scrollbar within a Collapsable Frame
by lil_v
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |