next up previous contents
Next: Referencing variables in other configuration files Up: The Save funktion Previous: Default Values

Example

proc test {} {
  # just a demo
  CheckBox save -text save on exit
  Menu -text number of retries -entries 0 1 2 3 inf -default inf
  Save {
    if {$save || generateDefault} {
      print "(setq save-on-exit $save)"
    }
    if {$number(name) != "inf" || $generateDefault} {
      if {$number(name) == "inf"} {
        print "(setq number-of-retries t)"
      } else {
        print "(setq number-of-reties $number(name))"
      }
    }
  }
}

In this savefunktion, ``(setq save-on-exit 0)'' or `` (setq save-on-exit 1)'' is printed if $save if true (ie. 1) or $generateDefault is true. This is done because (in this example) the default is ``not to save on exit''. Then if the user doesn't want default values ($generateDefault is false) it will only generate if it is not the default value which is chosen (ie. to save on exit.)

The second example is analogous to the first one, in this case the defualt is inf, and the variable is an associative array.



Jesper Kjær Pedersen <blackie@imada.ou.dk>
Wed Oct 2 13:29:53 MET DST 1996