note
Anonymous Monk
<p> Where do you see "Tool completed with exit code 255"????
<p> When you use this [href://https://rt.cpan.org/Public/Bug/Display.html?id=67889|tk-hlist_stresstest.pl], do you also the error? What line exactly triggers the error ( use [mod://Devel::Trace] )?
<c>
#!/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
],
);
}
</c>
<p> What happens when you use <c> use Win32API::File(); Win32API::File::SetErrorMode(2); </c>
<P> What happens if you end program with <c> POSIX::_exit(0); </c>?
11121324
11121324
9