#!/usr/local/bin/wish -f

# ***************************** #

# Tcl-script for binding #

# ***************************** #

 

listbox .lb1 -exportselection 1 -selectmode single -yscroll ".sb1 set"

 

pack .lb1

.lb1 insert 0 red orange yellow green blue indigo violet weiss black blue red red red red

bind .lb1 <ButtonRelease-1> {show}

#

scrollbar .sb1 -relief sunken -command ".lb1 yview"

#

pack .sb1 .lb1 -side right -fill y -expand yes proc show {} {

puts [.lb1 curselection]

}