1
0
Fork 0
This repository has been archived on 2019-12-23. You can view files and clone it, but you cannot make any changes to it's state, such as pushing and creating new issues, pull requests or comments.
arduinisten/arduino-0018-windows/hardware/tools/avr/share/iwidgets4.0.1/demos/scrolledframe
2010-03-30 21:53:44 +02:00

29 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