#!/bin/sh
# \
        exec itkwish "$0" ${1+"$@"}

proc selectItem { item } {

	.l selection clear [.l curselection]
	.l selection set $item
	.l see $item
}

proc selectTab { y } {
	set whichItem [.l nearest $y]
	.ts select $whichItem
}

listbox .l -selectmode single -exportselection false
.l insert end one
.l insert end two
.l insert end three
.l insert end four
.l insert end five
.l insert end six
.l insert end seven
.l insert end eight
.l insert end nine
.l insert end ten
.l insert end eleven
.l insert end twelve
.l selection set 0
pack .l -fill both -expand yes
bind .l <ButtonPress-1> { selectTab %y }

tabset .ts -command selectItem
.ts add -label 1
.ts add -label 2
.ts add -label 3
.ts add -label 4
.ts add -label 5
.ts add -label 6
.ts add -label 7
.ts add -label 8
.ts add -label 9
.ts add -label 10
.ts add -label 11
.ts add -label 12
.ts select 0
pack .ts -fill x -expand no
