Posted to tcl by sebres at Fri Feb 15 16:46:16 GMT 2019view raw

  1. namespace eval x {
  2. trace add variable \x00 unset {::ns_deleted test}
  3. }
  4. proc ns_deleted {pref vn args} {
  5. upvar $vn v
  6. puts "*** namespace delete event - $pref";
  7. }
  8. puts "=== delete var ==="
  9. unset -nocomplain \x00
  10. puts "=== delete NS ==="
  11. namespace delete x
  12.  
  13. # produces:
  14. # === delete var ===
  15. # === delete NS ===
  16. # *** namespace delete event - test
  17.  

Comments

Posted by avl42 at Mon Feb 18 13:06:58 GMT 2019 [text] [code]

% unset x::\x00 *** namespace delete event - test can't unset "x::": no such variable %