@foo = tlist_foo->curselection();
##</code><code>##

Tk::Error: Failed to AUTOLOAD 'Tk::TList::curselection' at c:/Perl/site/lib/Tk/Derived.pm line 461