Subversion Repositories or1k_old

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: scrolledframe in [incr Widgets]

# ----------------------------------------------------------------------

#\

exec itkwish "$0" ${1+"$@"}

package require Iwidgets 3.0

# itkwish interprets the rest...

# ----------------------------------------------------------------------

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