Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: '0x1b03b2' Isn't Numeric

by Chmrr (Vicar)
on Aug 06, 2002 at 06:05 UTC ( #187944=note: print w/replies, xml ) Need Help??

in reply to '0x1b03b2' Isn't Numeric

I'm unable to replicate your problem. Here's the code I'm using:

#!/usr/bin/perl -w use strict; use Tk; my $mw = MainWindow->new(-title=>"Foo!"); my $f = $mw->Frame(-width=>400, -height=>400)->pack; print "Tk is $Tk::VERSION; Window id is ",$f->winfo('id'),"\n"; my $child = $mw->Toplevel(-title=>"Bar!",-use=>$f->winfo('id')); $child->Label(-text=>"Bar!")->pack; MainLoop;

..which tells me that Tk is 800.023; Window id is 0x2e00004 and pops up a window. Either your version of Tk is out of date or something, or there's something in the surrounding code which is making Tk go awry.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Replies are listed 'Best First'.
Re: Re: '0x1b03b2' Isn't Numeric
by Jeffers (Initiate) on Aug 06, 2002 at 07:32 UTC
    I tried a ppm install of Tk again with no affect. Copying your exact code simply results in the same error. I'm using ActivePerl 5.6 on Windows 2000. I must find a way to get this to work, or my boss will make me do this program in VB! AH! Help!

    Jeff :)

      I did a little research, and it looks like you may be essentially out of luck. See item B-10 here; what it boils down to is "it just don't work under Windows sometimes -- it's a problem with Tcl/Tk, not just Perl/Tk." Which is indeed sad news.

      perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://187944]
[Discipulus]: I already know how much distinct paths exists but to demonstrate the property i want to have them all
[oiskuu]: ie C(n, k); where n is height difference, k is position in the line
[Discipulus]: infact there are 70 distinct path to reach the tale wich holds 70
[Discipulus]: what i want is to compute them
[oiskuu]: You want to draw the path? $iter = combinations( $TOP_HEIGHT .. $NODE_HEIGHT, $pos); then get the path from the iter, level change at depth x, for(..) $pos += $level_change; something like that
[oiskuu]: yergh, <code> tags... [$top_height .. $node_height]

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2018-03-19 11:09 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (239 votes). Check out past polls.