Problem using Devel::Trace with Perl/Tk 
Author Message
 Problem using Devel::Trace with Perl/Tk

Hi,

I'm trying to use Devel::Trace with some Perl/Tk code and keep running
into the following error message:

Tk::Menubutton object version 800.022 does not match \
 $Tk::Menubutton::VERSION 3.025 at \
/pkg/perl/lib/5.6.0/sun4-solaris/DynaLoader.pm line 219.

This test script duplicates the error:

perl -w -d:Trace
use Tk;
my $mw = MainWindow->new;
my $f  = $mw->Frame->pack;
my $mb = $f->Menubutton->pack;

I've not made any changes to Perl/Tk during installation.
Any pointers would be much appreciated.

Thanks
Sameer

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Mon, 16 Jun 2003 04:43:34 GMT  
 Problem using Devel::Trace with Perl/Tk

Quote:

> Hi,

> I'm trying to use Devel::Trace with some Perl/Tk code and keep running
> into the following error message:

> Tk::Menubutton object version 800.022 does not match \
>  $Tk::Menubutton::VERSION 3.025 at \
> /pkg/perl/lib/5.6.0/sun4-solaris/DynaLoader.pm line 219.

> This test script duplicates the error:

> perl -w -d:Trace
> use Tk;
> my $mw = MainWindow->new;
> my $f  = $mw->Frame->pack;
> my $mb = $f->Menubutton->pack;

> I've not made any changes to Perl/Tk during installation.
> Any pointers would be much appreciated.

> Thanks
> Sameer

Interesting module - gave me far more stuff than I ever wanted to know (;
Works under Linux - perhaps a fresh Tk install will help ....

- Show quoted text -

Quote:




>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:353:      if (ref $ent)
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:359:        delete $w->{$ent};


>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:353:      if (ref $ent)
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:359:        delete $w->{$ent};

>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/MainWindow.pm:78:  delete $Windows{$top};
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:96:  my $w = shift;
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:97:  $w->destroy if ($w->IsWidget);
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/MainWindow.pm:134:    foreach my $top (values %Windows)
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:96:  my $w = shift;
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Widget.pm:97:  $w->destroy if ($w->IsWidget);
>> /usr/local/lib/perl5/site_perl/5.6.0/i686-linux/Tk/Event.pm:3: END { CleanupGlue() }


   1254    7623  129014 err

Steve

'other perl hacker';$z='createText';$c=$m->Canvas(-wi,$_[1],-he,25)->grid;$c->$
En'.
'ter>',sub{$y=int(rand($m->screenheight));$m->geometry("+$y+$y")});MainLoop;
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Mon, 16 Jun 2003 11:52:30 GMT  
 Problem using Devel::Trace with Perl/Tk

Quote:


> > Hi,

> > I'm trying to use Devel::Trace with some Perl/Tk code and keep running
> > into the following error message:

> > Tk::Menubutton object version 800.022 does not match \
> >  $Tk::Menubutton::VERSION 3.025 at \
> > /pkg/perl/lib/5.6.0/sun4-solaris/DynaLoader.pm line 219.

> > This test script duplicates the error:

> > perl -w -d:Trace
> > use Tk;
> > my $mw = MainWindow->new;
> > my $f  = $mw->Frame->pack;
> > my $mb = $f->Menubutton->pack;

> > I've not made any changes to Perl/Tk during installation.
> > Any pointers would be much appreciated.

> > Thanks
> > Sameer

> Interesting module - gave me far more stuff than I ever wanted to know (;
> Works under Linux - perhaps a fresh Tk install will help ....

I also thought it works (under FreeBSD), but the error message occured
several hundred lines before the end.

Regards,
        Slaven

--
use Tk;$c=tkinit->Canvas(-he,20)->grid;$x=5;map{s!\n!!g;map{create$c 'line'=>
map{$a=-43+ord;($x+($a>>3)*2=>5+($a&7)*2)}split''}split"!";$x+=12}split/_/=>'K
PI1_+09IPK_K;-OA1_+K!;A__1;Q!7G_1+QK_3CLPI90,_+K!;A_+1!KQ!.N_K+1Q!.F_1+KN.Q__1+
KN._K+1Q!.F_1+KN.Q_+1Q__+1!KQ!.N_1;Q!7G_K3,09Q_+1!K.Q_K+1Q!.F_1+KN.Q_';MainLoop

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Mon, 16 Jun 2003 19:30:12 GMT  
 Problem using Devel::Trace with Perl/Tk

Quote:

> Hi,

> I'm trying to use Devel::Trace with some Perl/Tk code and keep running
> into the following error message:

> Tk::Menubutton object version 800.022 does not match \
>  $Tk::Menubutton::VERSION 3.025 at \
> /pkg/perl/lib/5.6.0/sun4-solaris/DynaLoader.pm line 219.

> This test script duplicates the error:

> perl -w -d:Trace
> use Tk;
> my $mw = MainWindow->new;
> my $f  = $mw->Frame->pack;
> my $mb = $f->Menubutton->pack;

> I've not made any changes to Perl/Tk during installation.
> Any pointers would be much appreciated.

It works if you preload the used Tk widgets, e.g.

        use Tk::widgets qw(Menubutton);

or

        use Tk::Menubutton;

Regards,
        Slaven

--
use Tk;$c=tkinit->Canvas(-he,20)->grid;$x=5;map{s!\n!!g;map{create$c 'line'=>
map{$a=-43+ord;($x+($a>>3)*2=>5+($a&7)*2)}split''}split"!";$x+=12}split/_/=>'K
PI1_+09IPK_K;-OA1_+K!;A__1;Q!7G_1+QK_3CLPI90,_+K!;A_+1!KQ!.N_K+1Q!.F_1+KN.Q__1+
KN._K+1Q!.F_1+KN.Q_+1Q__+1!KQ!.N_1;Q!7G_K3,09Q_+1!K.Q_K+1Q!.F_1+KN.Q_';MainLoop

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Mon, 16 Jun 2003 19:36:30 GMT  
 Problem using Devel::Trace with Perl/Tk
[A complimentary Cc of this posting was sent to Slaven Rezic


Quote:
> > perl -w -d:Trace
> > use Tk;
> > my $mw = MainWindow->new;
> > my $f  = $mw->Frame->pack;
> > my $mb = $f->Menubutton->pack;
> It works if you preload the used Tk widgets, e.g.

>    use Tk::widgets qw(Menubutton);

> or

>    use Tk::Menubutton;

What happens with the perl de{*filter*}:

  env PERLDB_OPTS="A N" perl -d your-script

Ilya



Tue, 17 Jun 2003 09:05:45 GMT  
 Problem using Devel::Trace with Perl/Tk
Thanks, Slaven. I got as far as that myself. Is there a Perl/Tk
problem, though, since a 'require' results in a different object
version number from a 'use'?

In any case, the Devel::Trace didn't help solve a core-dump issue, so
I have to let this slide for now...

Regards
Sameer

PS: Are there any tests available to check whether a Perl/Tk script is
'safe', i.e., it's not likely to cause a core dump? I'll happily settle
for a long checklist.


:
: > Hi,
: >
: > I'm trying to use Devel::Trace with some Perl/Tk code and keep running
: > into the following error message:
: >
: > Tk::Menubutton object version 800.022 does not match \
: >  $Tk::Menubutton::VERSION 3.025 at \
: > /pkg/perl/lib/5.6.0/sun4-solaris/DynaLoader.pm line 219.
: >
: > This test script duplicates the error:
: >
: > perl -w -d:Trace
: > use Tk;
: > my $mw = MainWindow->new;
: > my $f  = $mw->Frame->pack;
: > my $mb = $f->Menubutton->pack;
: >
: > I've not made any changes to Perl/Tk during installation.
: > Any pointers would be much appreciated.
: >
:
: It works if you preload the used Tk widgets, e.g.
:
:       use Tk::widgets qw(Menubutton);
:
: or
:
:       use Tk::Menubutton;
:
: Regards,
:       Slaven
:
: --
: use Tk;$c=tkinit->Canvas(-he,20)->grid;$x=5;map{s!\n!!g;map{create$c 'line'=>
: map{$a=-43+ord;($x+($a>>3)*2=>5+($a&7)*2)}split''}split"!";$x+=12}split/_/=>'K
: PI1_+09IPK_K;-OA1_+K!;A__1;Q!7G_1+QK_3CLPI90,_+K!;A_+1!KQ!.N_K+1Q!.F_1+KN.Q__1+
: KN._K+1Q!.F_1+KN.Q_+1Q__+1!KQ!.N_1;Q!7G_K3,09Q_+1!K.Q_K+1Q!.F_1+KN.Q_';MainLoop
:
: -++**==--++**==--++**==--++**==--++**==--++**==--++**==
: This message was posted through the Stanford campus mailing list
: server.  If you wish to unsubscribe from this mailing list, send the

:

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Tue, 17 Jun 2003 10:24:50 GMT  
 Problem using Devel::Trace with Perl/Tk

Quote:

> [A complimentary Cc of this posting was sent to Slaven Rezic


> > > perl -w -d:Trace
> > > use Tk;
> > > my $mw = MainWindow->new;
> > > my $f  = $mw->Frame->pack;
> > > my $mb = $f->Menubutton->pack;

> > It works if you preload the used Tk widgets, e.g.

> >       use Tk::widgets qw(Menubutton);

> > or

> >       use Tk::Menubutton;

> What happens with the perl de{*filter*}:

>   env PERLDB_OPTS="A N" perl -d your-script

Well, it works...

--
use Tk;$c=tkinit->Canvas(-he,20)->grid;$x=5;map{s!\n!!g;map{create$c 'line'=>
map{$a=-43+ord;($x+($a>>3)*2=>5+($a&7)*2)}split''}split"!";$x+=12}split/_/=>'K
PI1_+09IPK_K;-OA1_+K!;A__1;Q!7G_1+QK_3CLPI90,_+K!;A_+1!KQ!.N_K+1Q!.F_1+KN.Q__1+
KN._K+1Q!.F_1+KN.Q_+1Q__+1!KQ!.N_1;Q!7G_K3,09Q_+1!K.Q_K+1Q!.F_1+KN.Q_';MainLoop

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the



Tue, 17 Jun 2003 21:19:31 GMT  
 Problem using Devel::Trace with Perl/Tk
[A complimentary Cc of this posting was sent to Slaven Rezic


[This was stealth-Cc'ed.  Please mark you Cc's as such.]

Quote:
> > > > perl -w -d:Trace
> > What happens with the perl de{*filter*}:

> >   env PERLDB_OPTS="A N" perl -d your-script

> Well, it works...

This is what leaves me puzzled: why use a module for functionality
which is available and "works" without the module, and "does not work"
with a module?

Ilya



Thu, 19 Jun 2003 13:08:02 GMT  
 
 [ 8 post ] 

 Relevant Pages 

1. Devel::Trace displays each line as it is executed

2. Devel::Trace displays each line as it is executed

3. Tk error using Devel::ptkdb

4. Tk::Trace Autoload problem

5. Devel::DumpStack and Devel::CallerItem

6. ANNOUNCE: Debug::Trace 0.04 -- tracing subroutine calls

7. Devel::DumpStack and Devel::CallerItem

8. Anyone had success profiling Tk with Devel::DProf ?

9. pTk 8.4.24 patch - Trace.pm, move methods into Tk::Widget

10. Anyone had success profiling Tk with Devel::DProf ?

11. Using trace to debug a script?

12. Devel::DProf on sunos4.1.3 compile problem

 

 
Powered by phpBB® Forum Software