home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 43_3.tcl < prev    next >
Text File  |  2003-04-15  |  430b  |  22 lines
  1. #
  2. # Example 43-3
  3. # Setting preference variables.
  4. #
  5.  
  6. # PrefValue returns the value of the variable if it exists,
  7. # otherwise it returns the resource database value
  8. proc PrefValue { varName res } {
  9.     upvar #0 $varName var
  10.     if [info exists var] {
  11.         return $var
  12.     }
  13.     set var [option get . $res {}]
  14. }
  15. # PrefValueSet defines a variable in the global scope.
  16. proc PrefValueSet { varName value } {
  17.     upvar #0 $varName var
  18.     set var $value
  19. }
  20.  
  21.  
  22.