1# ---------------------------------------------------------------------- 2# DEMO: new collapsablewidget 3# ---------------------------------------------------------------------- 4package require Iwidgets 4.0 5source ../src/collapsablewidget.itk 6 7. configure -background white 8 9iwidgets::collapsablewidget .cw -labeltext "Label Text:" 10pack .cw -padx 4 -pady 4 11 12set win [.cw childsite] 13label $win.ex -text "(put your widgets here)" \ 14 -background black -foreground white \ 15 -width 30 -height 3 16pack $win.ex -expand yes -fill both -padx 4 -pady 4 17 18button .toggle -text "Toggle display of collapsed region" -command { 19 .cw toggle 20} 21pack .toggle -padx 4 -pady 4 22