listbox .projlist -height 5
.projlist insert end "FIRST" "FAH" 1 2 3 4 5
pack .projlist -side top
#bind .projlist <Double-ButtonPress-1> "showSEL"
bind .projlist <<SelectionChanged>> "showSEL"

proc showSEL {} {
  set idx [.projlist curselection]
  puts "Selected $idx"
}

proc procCSEL {} {
  puts "selected"
}
set res "a"
jcombobox .combproj -variable $res
.combproj item append 1 2 3 4 5
bind .combproj <<ComboboxSelected>> "procCSEL"
pack .combproj -side left