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