Skip Menu |
 

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

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

People
Owner: Nobody in particular
Requestors: djibrilo [...] yahoo.fr
Cc:
AdminCc:

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



CC: RobSeegel [...] comcast.net
Subject: Tk::MListbox and Config::Std (CODE reference at ...)
Date: Thu, 12 Mar 2009 20:37:42 +0000 (GMT)
To: bug-Tk-MListbox [...] rt.cpan.org
From: djibrilo <djibrilo [...] yahoo.fr>
Dear, I have try to use Tk::MListbox and it's work fine. Nevertheless, there is a bug when I use this module in a script which use Config::Std (by use or require). The error message is : Not a CODE reference at C:/Perl/site/lib/Tk/MListbox.pm line 703. My configuration : ActivePerl 5.8.8 Build 822 Tk : Tk-804.028 Tk-MListbox-1.11 OS : WinXP Example : #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::MListbox; use Config::Std; my $mw = MainWindow->new; $mw->title('Simple MListbox'); my $Frame2 = $mw->Frame( -background => "red", )->pack( qw/ -fill both -expand 1/ ); my $ml = $Frame2->Scrolled('MListbox', -scrollbars => 'osoe', -background => 'white', -foreground => 'blue', -textwidth => 10, -highlightthickness => 2, -width => 0, -selectmode => 'browse', -bd=>2, -relief=>'sunken', -separatorwidth => 0, -columns=>[ [qw/-text Mode -textwidth 10 /], [qw/-text NLink -textwidth 5/, -comparecmd => sub {$_[0] <=> $_[1]}], [qw/-text UID/, ], [qw/-text GID/, ], [qw/-text Size/, -comparecmd => sub {$_[0] <=> $_[1]}], [qw/-text Mtime/, -comparecmd => \&compareDate], [qw/-text Name/, ], [qw/-text Djibril/, ], ], -separatorcolor => "red", )->pack(-expand=>1, -fill=>'both', -anchor=>'w'); $ml->insert('end', [1..5] ); $ml->insert('end', [10,9,8,7,6,5,4] ); MainLoop; ============================================================ Tk::Error: Not a CODE reference at C:/Perl/site/lib/Tk/MListbox.pm line 703. Tk::Widget::Callback at C:/Perl/site/lib/Tk/Widget.pm line 1149 Tk::CListbox::yview at C:/Perl/site/lib/Tk/MListbox.pm line 63 Tk::Derived::Delegate at C:/Perl/site/lib/Tk/Derived.pm line 463 Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm line 322 Tk::MListbox::_yscrollCallback at C:/Perl/site/lib/Tk/MListbox.pm line 737 <Configure> (command bound to event) error:Not a CODE reference at C:/Perl/site/lib/Tk/MListbox.pm line 703. ============================================================ Best Regards, Djibril
Download (untitled) / with headers
text/plain 136b
Try my derivitive "Tk::SMListbox" module, your test program seems to work there, but still fails in Tk::MListbox! Jim Turner (TURNERJW)
Download (untitled) / with headers
text/plain 263b
Le Mer 29 Avr 2015 02:02:49, TURNERJW a écrit : Show quoted text
> Try my derivitive "Tk::SMListbox" module, your test program seems to > work there, but still fails in Tk::MListbox! > > Jim Turner (TURNERJW)
It is work fine with "Tk::SMListbox" module. Best Regards, djibel


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.