diff options
Diffstat (limited to 'iwidgets/demos/scrolledframe')
-rw-r--r-- | iwidgets/demos/scrolledframe | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/iwidgets/demos/scrolledframe b/iwidgets/demos/scrolledframe new file mode 100644 index 00000000000..6a227c9195d --- /dev/null +++ b/iwidgets/demos/scrolledframe @@ -0,0 +1,29 @@ +# ---------------------------------------------------------------------- +# DEMO: scrolledframe in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell + +iwidgets::scrolledframe .sf -width 4i -height 2i -labeltext "Scrolledframe" +pack .sf + +set win [.sf childsite] + +set all "" +foreach option [.sf configure] { + if {[llength $option] == 5} { + set name [lindex $option 0] + set val [lindex $option end] + + set entry [iwidgets::entryfield $win.#auto] + pack $entry -fill x + + $entry configure -labeltext $name \ + -command ".sf configure $name \[$entry get\]" + $entry insert 0 $val + + lappend all $entry + } +} +eval iwidgets::Labeledwidget::alignlabels $all |