Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by Paradox04
-
Passing Perl/Tk top-level widgets
I'm writing this program in Perl/Tk and I need to be able to pass a top-level widget to a function. Here is an example of what I mean: sub start { my $mw = MainWindow->new; my $button = $mw->Button(-text=>"Go To Foo", -command => sub {foo($mw);})->pack; } sub foo { my ($parent) = @_; my...
