30 lines
812 B
Text
30 lines
812 B
Text
|
# ----------------------------------------------------------------------
|
||
|
|
# 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
|