Re: '0x1b03b2' Isn't Numeric

[Chmrr]

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'

[Jeffers]

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!

Thanks,
Jeff :)

[Chmrr]

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'