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.