in reply to Re^2: passing TK object into a sub
in thread passing TK object into a sub
my %entry; #global to store entries sub get_entry{ my $num = shift; if ( !Exists( $entry{$num}{'entry'} ) { $entry{$num}{'entry'} = $frame->Entry()->pack(); } else { #repack $entry{$num}{'entry'}->pack(); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: passing TK object into a sub
by vortmax (Acolyte) on Jul 16, 2008 at 15:54 UTC |