Posted to tcl by GDG at Thu Nov 15 16:15:22 GMT 2007view raw

  1. namespace eval Base {
  2. namespace eval A {
  3. variable x
  4. variable y
  5. }
  6.  
  7. namespace eval B {
  8. variable x
  9. variable y
  10.  
  11. proc set_info {x_ y_} {
  12. set x $x_
  13. set y $y_
  14. }
  15.  
  16. proc get_info {x_ y_} {
  17. puts $x
  18. puts $y
  19. }
  20.  
  21. }
  22. }

Comments

Posted by GDG at Thu Nov 15 16:21:14 GMT 2007 [text] [code]

namespace eval Base { namespace eval A { variable x variable y } namespace eval B { proc set_info {x_ y_} { variable x variable y set x $x_ set y $y_ } proc get_info {x_ y_} { variable x variable y puts $x puts $y } } }