return value from a subrutines -command

Hi!

is there any way to return a value from Button's 
-command when it is in a subrutine?

i.e. return $var from a subrutine containing:

$child_window -> Button(-command => $var);

Regards Anders.
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk