Tcl & Tk/확장 패키지 (Extension Package)
collapseframe
티클러
2025. 8. 5. 09:28
홈페이지: https://github.com/ch32n/collapseframe
A Tcl/Tk collapsable frame megawidget.
접을 수 있는 프레임 메가위젯입니다.
package require collapseframe
proc createExampleEntry {path text args} {
set Frame [$path add {*}$args -text $text]
puts "Entry Frame: $Frame"
grid columnconfigure $Frame 0 -weight 10
ttk::label $Frame.l1 -text "Ex1 $text"
ttk::label $Frame.l2 -text "Ex2 $text"
grid $Frame.l1 -sticky nw
grid $Frame.l2 -sticky nw
return $Frame
}
font create LargerBold -family "Segoe UI" -size 10 -weight bold -slant italic
grid columnconfig . 0 -weight 10
grid rowconfig . 0 -weight 10
set CollapseFrame [collapseW::create .colFrame]
grid $CollapseFrame -row 0 -column 0 -sticky nesw
createExampleEntry $CollapseFrame Devices -font LargerBold
createExampleEntry $CollapseFrame Layout -font LargerBold
createExampleEntry $CollapseFrame Neighbors -font LargerBold
createExampleEntry $CollapseFrame Maps maps -font LargerBold
createExampleEntry $CollapseFrame Junk junk -font LargerBold