Skip Menu |

This queue is for tickets about the Tk-MListbox CPAN distribution.

Report information
The Basics
Id: 35235
Status: open
Priority: 0/
Queue: Tk-MListbox

People
Owner: Nobody in particular
Requestors: jrs [...] san.rr.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.11
Fixed in: (no value)



Tk::MListbox-1.11 fails under Windows XP SP2 as well as Vista: http://community.activestate.com/forum-topic/tk-mlistbox-vista with the message error: Not a CODE reference... I think this is related to a MListbox with scrolling, both Scrolled and Scrollbars. I'm using: ActiveState perl v5.8.8 build 820. Windows XP Version 2002 Service Pack 2. TK 804.027-r6, and 804.028
Subject: mlistbox-no-code-ref.pl
#!/usr/bin/perl -w use strict; use Tk; use Tk::MListbox; my $mw = Tk::MainWindow->new(-title => 'MListbox - Not a CODE reference'); my $mlb = $mw->Scrolled( 'MListbox', -scrollbars=>'se', -selectmode=>'extended', )->pack( -expand=>'true', -fill=>'both', -side=>'top', ); $mlb->columnInsert('end', -text=>'Test'); MainLoop;
Thanks for the report, doing the following should fix the problem: Change the following calls in the CListbox internal widget that are like this: $w->Callback(-updatecommand=>$w->can('SUPER::selectionAnchor'),@_); To: $w->Callback(-updatecommand=>$w->can('Tk::Listbox::selectionAnchor'),@_); That should fix the problem. On Sat Apr 19 20:05:33 2008, jrs@san.rr.com wrote: Show quoted text
> Tk::MListbox-1.11 fails under Windows XP SP2 as well as Vista: > > http://community.activestate.com/forum-topic/tk-mlistbox-vista > > with the message > error: Not a CODE reference... > > I think this is related to a MListbox with scrolling, both Scrolled and > Scrollbars. > > I'm using: > ActiveState perl v5.8.8 build 820. > Windows XP Version 2002 Service Pack 2. > TK 804.027-r6, and 804.028
This should be fixed in my derivitive module "Tk::SMListbox v1.11 (Tk::MListbox derivitive which adds tiny little up-down arrows to the column header showing which column the list is sorted by (ascending/descending)! Jim Turner