Subversion Repositories or1k_old

#!/bin/sh

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

#  DEMO: scrolledlistbox in [incr Widgets]

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

#\

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

package require Iwidgets 3.0

# itkwish interprets the rest...

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

option add *textBackground seashell

. configure -background white

iwidgets::scrolledlistbox .slb -labeltext "Scrolledlistbox" \

    -vscrollmode dynamic -hscrollmode none \

    -selectmode single \

    -labelpos nw -selectioncommand {

        puts "click: [.slb getcurselection]"

    }

pack .slb -padx 4 -pady 4

.slb insert 0 Hello World! Cruel

.slb delete "Hello"

.slb insert 0 "Goodbye"

button .add -text "Add" -command {

    .slb insert end "Goodbye!"

}

pack .add -padx 4 -pady 4

button .del -text "Delete" -command {

    .slb delete 0

}

pack .del -padx 4 -pady 4