Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Tk_FreeCursor received unknown cursor argument

by Anonymous Monk
on Sep 04, 2020 at 00:45 UTC ( #11121342=note: print w/replies, xml ) Need Help??


in reply to Tk_FreeCursor received unknown cursor argument

Where do you see "Tool completed with exit code 255"????

When you use this tk-hlist_stresstest.pl, do you also the error? What line exactly triggers the error ( use Devel::Trace )?

#!/usr/bin/perl -- #!perl use strict; use warnings; use Tk; use Tk::HList; my $mw = tkinit(); my $left = $mw->Frame( -bg => 'blue', -width => 210 ) ->pack( -side => 'left', -fill => 'x', -expand => 1, ); put_hlist($left); my $right = $mw->Frame( -bg => 'yellow' ) ->pack( -side => 'left', -fill => 'both', -expand => 1, ); my $info = $right->Label()->pack( -fill => 'x' ); $mw->MainLoop(); sub put_hlist { my $parent = shift; my $hlist = $parent->Scrolled( 'HList', -scrollbars => 'osoe', -selectmode => 'single', -columns => 2, -header => 1, -width => 100, -height => 30, -background => 'GhostWhite', )->pack( -fill => 'both', -expand => 1 ); $hlist->header( 'create', 0, -text => '#id', ); $hlist->header( 'create', 1, -text => 'Eintrag', ); foreach my $cnt ( 0 .. 10000 ) { $hlist->add($cnt); $hlist->item( 'create', $cnt, 0, -text => $cnt ); $hlist->item( 'create', $cnt, 1, -text => "Eintrag Nr. $cnt" ) +; } $hlist->configure( -command => [ sub { my $hlist = shift; my $info_label = shift; my $selected_item_no = $hlist->info('selection'); return 0 unless defined $selected_item_no; # -- get selected text id my $text_id = $hlist->itemCget( $selected_item_no, 0, +'-text' ); # -- display name in right frame $info->configure( -text => $text_id ); return 1; }, $hlist, $info ], ); }

What happens when you use  use Win32API::File(); Win32API::File::SetErrorMode(2);

What happens if you end program with  POSIX::_exit(0);?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11121342]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2020-10-20 15:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (210 votes). Check out past polls.

    Notices?