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
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
#!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>
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>
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
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>
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>
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 -------- ...
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 -------- > ...