$addRefdesListbox = $addRefdesFrame2->BrowseEntry(-variable=>\$searchString,
-fg=> 'black',
-bg=> 'white',
-exportselection => 0,
-browsecmd => sub{$addRefdesEntry->insert('end',$refdesMaxValue{$searchString}+1)},
-listcmd=> \&doSearch,
)->pack(-side=>'left');

##</code><code>##

$refdesListbox->see($addRefdesListbox->Subwidget('slistbox')->curselection());

##</code><code>##

Tk::Error: wrong # args: should be ".toplevel.frame.frame.frame.frame.frame1.frame.listbox see index" at C:/Perl/site/lib/Tk.pm line 228.
 Tk callback for .toplevel.frame.frame.frame.frame.frame1.frame.listbox
 [\&tepsTools::__ANON__]
 (menu invoke)