home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 14_4.tcl < prev    next >
Text File  |  2003-04-15  |  305b  |  17 lines
  1. #
  2. # Example 14-4
  3. # The code procedure to wrap callbacks.
  4. #
  5.  
  6. proc code {args} {
  7.     set namespace [uplevel {namespace current}]
  8.     return [list namespace inscope $namespace $args]
  9. }
  10. namespace eval foo {
  11.     variable y "y value" x {}
  12.     set callback [code set x $y]
  13.     #=> namespace inscope ::foo {set x {y value}}
  14. }
  15.  
  16.  
  17.