souci avec TkCombobox

[moi]

bonjour à toutes et à tous,

problème avec TkCombobox ( windows xp sp3 et ubuntu 11.04 )

==================== Source ====================
# coding: utf-8

require 'tk'

require 'tkextlib/tile'

root=TkRoot.new() do

title 'Exemple'

end

$lab=TkLabel.new do

text 'label'

pack

end

$cbx=TkCombobox.new do

values [1,2,3,4,5]

bind('<ComboboxSelected>') do

$lab.text=$cbx.current

end

pack

end

Tk.mainloop

========================================

si on choisit une option, cela fonctione, mais quand on quitte
l'application, le message suivant est affiché :

==================== message Erreur ====================
can't invoke "winfo" command: application has been destroyed while
executing

"winfo exists $w"

(procedure "ttk::entry::AutoScroll" line 3)

invoked from within

"ttk::entry::AutoScroll .w00001"

(in namespace inscope "::" script line 1)

invoked from within

"::namespace inscope :: {ttk::entry::AutoScroll .w00001}"

("uplevel" body line 1)

invoked from within

"uplevel #0 $Repeat(script)"

(procedure "ttk::Repeat" line 3)

invoked from within

"ttk::Repeat"

("after" script)

========================================

j'ai raté quelque chose ?
quelqu'un peut m'expliquer ?
merci d'avance