Skip Menu |
 

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 67889
Status: open
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: ASB [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 804.029
Fixed in: (no value)



Subject: [Win 7 x64] "Tk_FreeCursor received unknown cursor argument" while using Tk::HList
Download (untitled) / with headers
text/plain 820b
Hi! I get an error when using "large" amounts of data in a Tk::Hlist and closing the main window. It says: "Tk_FreeCursor received unknown cursor argument This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information." This happen on my windows machine, on mac it works fine. Here is all system info: OS: Windows 7 x64 Perl: Strawberry Perl 5.12.2 (64-bit) Tk: latest Please find attached an example script repoducing the error on my system. Once started, please select some various values by double-clicking on items in the list. Then, lcose the window using the [x] button in the right upper corner. Now, there should raise the error mentioned above. Maybe you have an idea what this is about - I don't :-s Kind regards, Alex
Subject: hlist_stresstest.pl
Download hlist_stresstest.pl
text/x-perl 1.4k
#!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(); =head2 put_hlist( $parent_frame ) Erstelle eine HList mit vielen Einträgen und einem Binding. =cut 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], ); } # /put_hlist
Subject: [rt.cpan.org #67889]
Date: Tue, 25 Aug 2015 12:10:33 +0100
To: bug-Tk [...] rt.cpan.org
From: luca nalesso <nalesso.luca [...] yahoo.it>
Download (untitled) / with headers
text/plain 267b
Hi. I want to confirm this problem. I'm using strawberry perl 5.22 64bit on win7 . I get the problem installing Tkpod, with a program written by me that uses tk::hlist and with the given example. Let me know if i can give you any other information or help. By. Luca.
Subject: [rt.cpan.org #67889]
Date: Sat, 29 Aug 2015 14:11:18 +0200
To: bug-Tk [...] rt.cpan.org
From: "nalesso.luca [...] yahoo.it" <nalesso.luca [...] yahoo.it>
Download (untitled) / with headers
text/plain 521b
Just to add this info : 1) I have the bug with tk 804.032 and 804.033 2) my program uses tk::tree (not directly tk:hlist). Bye. Luca. Hi. I want to confirm this problem. I'm using strawberry perl 5.22 64bit on win7 . I get the problem installing Tkpod, with a program written by me that uses tk::hlist and with the given example. Let me know if i can give you any other information or help. By. Luca. --- Questa e-mail è stata controllata per individuare virus con Avast antivirus. https://www.avast.com/antivirus
Download (untitled) / with headers
text/plain 788b
On 2015-08-29 08:11:34, nalesso.luca@yahoo.it wrote: Show quoted text
> Just to add this info : > 1) I have the bug with tk 804.032 and 804.033 > 2) my program uses tk::tree (not directly tk:hlist). > Bye. > Luca. > > > > > Hi. > I want to confirm this problem. > I'm using strawberry perl 5.22 64bit on win7 . > I get the problem installing Tkpod, with a program written by me that > uses tk::hlist and with the given example. > Let me know if i can give you any other information or help. > By. > Luca. > > --- > Questa e-mail è stata controllata per individuare virus con Avast > antivirus. > https://www.avast.com/antivirus
I checked the attached example script on an X11 system (FreeBSD 9.2) and there was no problem. It seems I'll have to check next time I have access to a Windows system...
Subject: Re: [rt.cpan.org #67889]
Date: Mon, 07 Sep 2015 14:18:19 +0200
To: bug-Tk [...] rt.cpan.org
From: Nalesso Luca <nalesso.luca [...] yahoo.it>
Download (untitled) / with headers
text/plain 922b
Hi. I've seen the answer of Srezic and i can confirm that on linux is ok both 32 and 64 bit. On windows it's all ok on Strawberry 32 bit and on ActiveState 32 and 64 bit. On windows the problem appears only on Strawberry 64 bit. Let me know if i can give any help. By. Luca. -- Inviato dal mio cellulare Android con K-9 Mail. Show quoted text
-------- Messaggio originale -------- Da: "nalesso.luca@yahoo.it" <nalesso.luca@yahoo.it> Inviato il: 29 agosto 2015 14:11:18 CEST A: bug-Tk@rt.cpan.org Oggetto: [rt.cpan.org #67889] Just to add this info : 1) I have the bug with tk 804.032 and 804.033 2) my program uses tk::tree (not directly tk:hlist). Bye. Luca. Hi. I want to confirm this problem. I'm using strawberry perl 5.22 64bit on win7 . I get the problem installing Tkpod, with a program written by me that uses tk::hlist and with the given example. Let me know if i can give you any other information or help. By. Luca.
Am Sa 29. Aug 2015, 11:53:01, SREZIC schrieb: Show quoted text
> On 2015-08-29 08:11:34, nalesso.luca@yahoo.it wrote:
> > Just to add this info : > > 1) I have the bug with tk 804.032 and 804.033 > > 2) my program uses tk::tree (not directly tk:hlist). > > Bye. > > Luca. > > > > > > > > > > Hi. > > I want to confirm this problem. > > I'm using strawberry perl 5.22 64bit on win7 . > > I get the problem installing Tkpod, with a program written by me that > > uses tk::hlist and with the given example. > > Let me know if i can give you any other information or help. > > By. > > Luca. > > > > --- > > Questa e-mail è stata controllata per individuare virus con Avast > > antivirus. > > https://www.avast.com/antivirus
> > I checked the attached example script on an X11 system (FreeBSD 9.2) > and there was no problem. It seems I'll have to check next time I have > access to a Windows system...
How can we solve the issue with the missing Windows OS? Would it be sufficient if you get a Windows license that you can use in a VM, e.g. WMware Player or VirtualBox?
Subject: Re: [rt.cpan.org #67889]
Date: Thu, 10 Sep 2015 11:04:58 +0200
To: bug-Tk [...] rt.cpan.org
From: Nalesso Luca <nalesso.luca [...] yahoo.it>
Download (untitled) / with headers
text/plain 364b
Hi, i don't understand your questions. At home on the pc of my wife i have win10 64bit (legal). At the office i have win7 64bit (legal). I can do any test you need limited only by my limited ability,knowledge and time. Is this an answer to your questions? Hi, Luca. -- Inviato dal mio cellulare Android con K-9 Mail. Show quoted text
-------- Messaggio originale -------- ...
Download (untitled) / with headers
text/plain 725b
Hi, sorry, there was a misunderstanding. I wanted to ask Slaven, if I could help him out with the WIndows license. @Slaven: if you need a Windows license for testing in a virtual machine, please tell me. I will provide you one (one of those legally purchased ones). Am Do 10. Sep 2015, 05:05:19, nalesso.luca@yahoo.it schrieb: Show quoted text
> Hi, > i don't understand your questions. > At home on the pc of my wife i have win10 64bit (legal). > At the office i have win7 64bit (legal). > I can do any test you need limited only by my limited > ability,knowledge and time. > Is this an answer to your questions? > Hi, Luca. > > > -- Inviato dal mio cellulare Android con K-9 Mail. > > > -------- Messaggio originale -------- > ...


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.