Bug #26238 for Tk-Tree: Tk::DirTree has a wrong ISA list

Tue Apr 10 17:09:50 2007 SREZIC [...] cpan.org - Ticket created

Subject:

Tk::DirTree has a wrong ISA list

In Tk::DirTree, the use base line should be changed from use base qw(Tk::Widget Tk::Derived Tk::Tree); to use base qw(Tk::Derived Tk::Tree); otherwise things won't work (same change was needed for Tk::Tree some weeks ago). Also, make sure that $VERSION is changed, as the current Tk::DirTree version is the same as the version of the module in the Tk distribution, but both files are not the same, so must not have the same $VERSION. Maybe this also applies to Tk::Tree, but I did not check this. Regards, Slaven

Wed Sep 19 13:32:40 2007 MTHURN [...] cpan.org - Correspondence added

Attached is a test file that you can use to check this. In its broken state, the test dies with Bad option `-directory' at c:/Perl/lib/Tk/Widget.pm line 205. If you fix DirTree.pm, you'll see the widget. -- - - Martin 'Kingpin' Thurn

use ExtUtils::testlib; use Test::More 'no_plan'; use Tk; BEGIN { use_ok('Tk::DirTree'); } # end of BEGIN block my $mw = new MainWindow; isa_ok($mw, 'MainWindow'); $mw->Button( -text => 'exit', -command => sub { pass('use clicked exit'); exit; }, )->pack(qw( -side bottom -pady 6 )); my $f = $mw->Scrolled('DirTree', -width => 55, -height => 33, -directory => 'C:/', )->pack(qw( -fill both -expand 1 )); pass('after create, with -directory option'); my $tree = $f->Subwidget(); isa_ok($tree, 'Tk::DirTree'); $mw->update; $mw->after( 500, sub { pass('Tk::After'); exit }, ); pass('before MainLoop'); MainLoop; pass('after MainLoop'); __END__

Wed Sep 19 13:32:48 2007 The RT System itself - Status changed from 'new' to 'open'

Sat Nov 03 17:35:42 2007 SREZIC [...] cpan.org - Correspondence added

This is resolved in Tk-Tree-4.71 and was never a problem in the Tk::DirTree version which lived in the core Tk distribution. A tweaked version of the test script will also be in the Tk distribution. Regards, Slaven

Sat Nov 03 17:35:45 2007 SREZIC [...] cpan.org - Status changed from 'open' to 'resolved'