home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / prime / wtcl.tcl < prev   
Text File  |  2005-09-26  |  87b  |  7 lines
  1. proc get {n} {
  2.     upvar $n v
  3.     if ![info exists $v] return 0
  4.     return $v
  5. }
  6.  
  7.