Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Decoding a frame HASH entry

by choroba (Archbishop)
on Feb 03, 2020 at 22:17 UTC ( #11112343=note: print w/replies, xml ) Need Help??


in reply to Decoding a frame HASH entry

You seem to be setting the -anchor of a widget to "sec" which is not a valid value.

Instead of editing Tk/After.pm, you can redeclare the method from your code:

use Data::Dumper; my $orig = *Tk::After::once{CODE}; local *Tk::After::once = sub { warn Dumper \@_; $orig->(@_) };

You should see something like

... $VAR1 = [ bless( [ bless( { '_After_' => { 'after#2' => $VAR1->[0] }, '_TkValue_' => '.frame.message', '_Destroy_' => [ bless( [ sub { "DUMMY" }, $VAR1->[0][0] ], 'Tk::Callback' +) ] }, 'Tk::Message' ), 'after#2', 1000, 'once', bless( [ sub { "DUMMY" } ], 'Tk::Callback' ) ], 'Tk::After' ) ];

In this case, the widget was a Tk::Message. I fear yours will be a Frame, as that's the type of $w, but maybe the additional information will help you identify it further.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11112343]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2020-06-07 07:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you really want to know if there is extraterrestrial life?



    Results (42 votes). Check out past polls.

    Notices?