Have you tried tying the listbox to an array and filling the array?
my @lbarray ;
tie @lbarray, "Tk::Listbox", $listbox_widget ;
I use this and it works reasonably well. I use the same listbox to display to
two arrays, say @a and @b by simply setting @lbarray to either as desired.
if($desired eq 'a'){
@lbarray = @a ;
}
else{
@lbarray = @b ;
}
HL
--- [EMAIL PROTECTED] wrote:
> Dear all,
> I've a perl script uses Tk::Listbox. When I fill the listbox with new
> entries by $Listbox->insert('end',@list), the program hangs 30 seconds or
> longer.
> When I debug this line, the program hangs in the AUTOLOAD function of
> Tk::widgets.
>
> # This may fail, catch error and prevent user's __DIE__ handler
> # from triggering as well...
> eval {local $SIG{'__DIE__'}; require $name};
>
> $name is in this moment "/PerlApp/auto/Tk/Frame/insert.al"
>
> The program hangs at exactly this statement. If I insert more elements, it
> works without interruption. Even in new created listboxes.
> I've the impression that the module is not found.
>
> What can I do to fix that? 30 seconds as recreation time after a simple
> mouse click is not accaptable for the most users.
>
> Thanks a lot
> Torsten
>
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
