home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 14_3.tcl < prev    next >
Text File  |  2003-04-16  |  269b  |  19 lines
  1. #
  2. # Example 14-3
  3. # Nested namespaces.
  4. #
  5.  
  6. namespace eval foo {
  7.     variable x 1                    ;# ::foo::x
  8. }
  9. namespace eval bar {
  10.     variable x 2                    ;# ::bar::x
  11.     namespace eval foo {
  12.         variable x 3                ;# ::bar::foo::x
  13.     }
  14.     puts $foo::x                    ;# prints 3
  15. }
  16. puts $foo::x                        ;# prints 1
  17.  
  18.  
  19.