Perl TK 서랍 식 구성 요소
:http://bbs.chinaunix.net/thread-3591026-1-1.html
#!perl -w
use Tk;
$mw = MainWindow->new;
$mw->title( 'Tk' );
$FRAME_L = $mw->Frame->pack(qw/-side left -fill both/);
$WIDGET_F = $FRAME_L->Labelframe()->pack(qw/-side top -fill both -expand 1/);
my %section = (
A => [1,2,3],
B => [4,5,6],
C => [7,8,9],
);
my (@frames,@button);
for my $sect_name (sort keys %section) {
my $b;
my $f = $WIDGET_F->Frame(
-bg => 'green',
-relief => 'sunken',
-borderwidth => 1
);
$b = $WIDGET_F->Radiobutton(
-text => $sect_name,
-indicatoron => 0,
-value => $sect_name,
-width => 25,
-bg => '#af1a3c6a6872',
-fg => 'white',
-command => sub {
$_->packForget for @frames;
$f->pack(
-after => $b,
qw/-side top -fill both -expand 1 -padx 1 -pady 1/
);
}
)->pack(qw/-fill x -side top -padx 1 -pady 1/);
for my $par_tmp (@{ $section{$sect_name} }) {
$f->Button(
-text => "$par_tmp",
-relief => 'ridge',
-bg => '#8189ce14cf5b',
-fg => 'black',
)->pack(qw/-side top -fill x -padx 4 /);
}
push @frames,$f;
push @button,$b;
}
$FRAME_L->Button(
-text => "CLOSE",
-relief => 'sunken',
-borderwidth => 1,
-bg => "white",
-fg => "black",
-command => sub { exit; },
)->pack(qw/-side bottom -fill x -padx 1 -pady 2 /);
MainLoop;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.