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;
[download]

..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'

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 :)

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'

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw = MainWindow->new(
    -title=>"Foo!",
);

my $f  = $mw->Frame(
    -width=>400,
    -height=>400,
)->pack;

$\ = "\n";

print "Tk is $Tk::VERSION; Window id is ",
      $f->winfo('id');

my $child = $mw->Toplevel(
    -title => "Bar!",
    -use => $f->winfo('id'),
);

$child->Label(
    -text=>"Bar!",
)->pack;

MainLoop();

__END__

Tk is 800.023; Window id is 0x190274

'0x190274' isn't numeric at C:/Perl/site/lib/Tk/Widget.pm line 188.
    Tk::Widget::new('Tk::Toplevel', 'MainWindow=HASH(0x1ab11dc)', '-ti
+tle', 'Bar!', '-use', '0x190274') called at C:/Perl/site/lib/Tk/Widge
+t.pm line 247
    Tk::Widget::__ANON__('MainWindow=HASH(0x1ab11dc)', '-title', 'Bar!
+', '-use', '0x190274') called at foy line 19
[download]

Bah, forget it. This is yet another eason I say forget Tk, just use WxPerl.

jsprat: kickass. I've had similar problems when inlining images (--data). I had no idea they had to be base64 encoded. Where is this documented (i know the err kinda gives it away, but i've no idea what the module had expected, and well, looking at the source is something I forgot to do)?

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

So make it explicitly numeric ;) Your code almost does what I would expect... Two minor changes (see ### commented lines below, and the code works as advertised. Creates a top-level window and places the child window (bar) inside the parent window (foo).

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw = MainWindow->new(
    -title=>"Foo!",
);

### '-container' property needs to be true
my $f  = $mw->Frame(
    -width=>400,
    -height=>400,
    -container => 1,
)->pack;

$\ = "\n";

print "Tk is $Tk::VERSION; Window id is ",
      $f->winfo('id');

### add the following line, change the -use line below
my $winfo = hex $f->winfo('id');
my $child = $mw->Toplevel(
    -title => "Bar!",
    -use => $winfo,
);

$child->Label(
    -text=>"Bar!",
)->pack;

MainLoop();
__END__
output:
Tk is 800.023; Window id is 0xff0344
[download]

BTW, ++podmaster for doing the hard work