Posted to tcl by de at Thu Apr 21 18:45:51 GMT 2022view pretty

# On linux the <Double-1> event will be delivered to the app (despite
# the <<ListboxSelect>> needs some time to return.) On windows (at
# least on my windows 10 box) no <Double-1> will be delivered to the
# app.

set data {one two tree}

proc listboxselect {args} {
    puts "listboxselect called"
    after 1500
}

proc double {args} {
    puts "double called"
}

listbox .l -listvariable data
bind .l <<ListboxSelect>> listboxselect
bind .l <Double-1> double
pack .l