[racket] list-box%: cannot click on first item

[Laurent]

In a list-box% containing only 1 item, clicking on the item does not
trigger the callback (Ubuntu 13.04).

Is it the same on other platforms?
Does anyone know any way around this, or a way to fix this?

Thanks,
Laurent


Example:
#lang racket/gui
(define my-frame (new frame% [label "my-frame"]
                      [min-width 200] [min-height 200]))

(define lb (new list-box% [parent my-frame]
                [label "values"]
                [choices '("a")]
                [callback (λ(lb ev)
                            (displayln "Callback called."))]))

(send my-frame show #t)

; Then try to click on "a"

____________________
  Racket Users list:
  http://lists.racket-lang.org/users