Skip Menu |

This queue is for tickets about the vptk_w CPAN distribution.

Report information
The Basics
Id: 41612
Status: patched
Worked: 30 min
Priority: 0/
Queue: vptk_w
People
Owner: FELIXL [...] cpan.org
Requestors: james.sarasin [...] gmail.com
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Wed Dec 10 20:45:13 2008 james.sarasin [...] gmail.com - Ticket created
Subject: Bug Report!
Date: Wed, 10 Dec 2008 18:44:51 -0700
To: bug-vptk_w [...] rt.cpan.org
From: "James Sarasin" <james.sarasin [...] gmail.com>
I have the same bug as this except it's on a Windows system. http://rt.cpan.org/Public/Bug/Display.html?id=40534 I get: C:\Perl\site\lib\vptk>perl vptk_w.pl Can't call method "Subwidget" on an undefined value at C:/Perl/site/lib/Tk/Widget.pm line 779. I am running ActivePerl 5.10.0 Build 1004 TK 804.028
  Tue Oct 13 16:50:36 2009 FELIXL [...] cpan.org - Correspondence added
RT-Send-CC: felixl [...] rambler.ru
Worked for me at ActiveState Perl 5.008.008, Tk 8.004.027 Yes, obviously something goes wrong with latest Perl versions and my inheritance tricks. I'll try to install your version on some virtual machine (it could take some time to get one).
  Tue Oct 13 16:50:37 2009 The RT System itself - Status changed from 'new' to 'open'
  Thu Oct 22 12:25:40 2009 FELIXL [...] cpan.org - Correspondence added 30 min
On Wed Dec 10 20:45:13 2008, james.sarasin@gmail.com wrote: Show quoted text
> I have the same bug as this except it's on a Windows system. > > http://rt.cpan.org/Public/Bug/Display.html?id=40534 > > I get: > C:\Perl\site\lib\vptk>perl vptk_w.pl > Can't call method "Subwidget" on an undefined value at > C:/Perl/site/lib/Tk/Widget.pm line 779. > > I am running > ActivePerl 5.10.0 Build 1004 > TK 804.028
Well, the solution is primitive: apply the following patch & enjoy till official release of next version. --- vptk_w/EditorServices.pm 2006-12-11 16:58:57.000000000 +0200 +++ vptk_w/EditorServices_fixed.pm 2009-10-22 20:04:30.000000000 +0200 @@ -28,7 +28,11 @@ $mwPalette = $mw->Palette; my %new = (background=>$bg_color,foreground=>$fg_color); - $mw->RecolorTree(\%new); + # function available for Perl 5.08 - not available for 5.10 !!! + if($] <= 5.008008) + { + $mw->RecolorTree(\%new); + } # Save the options in the global variable Tk::Palette, for use the # next time we change the options. foreach my $option (keys %new)
--- vptk_w/EditorServices.pm 2006-12-11 16:58:57.000000000 +0200 +++ vptk_w/EditorServices_fixed.pm 2009-10-22 20:04:30.000000000 +0200 @@ -28,7 +28,11 @@ $mwPalette = $mw->Palette; my %new = (background=>$bg_color,foreground=>$fg_color); - $mw->RecolorTree(\%new); + # function available for Perl 5.08 - not available for 5.10 !!! + if($] <= 5.008008) + { + $mw->RecolorTree(\%new); + } # Save the options in the global variable Tk::Palette, for use the # next time we change the options. foreach my $option (keys %new)
  Thu Oct 22 12:25:46 2009 FELIXL [...] cpan.org - Status changed from 'open' to 'patched'
  Thu Oct 22 12:25:47 2009 FELIXL [...] cpan.org - Given to FELIXL