diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl')
| -rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl b/Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl index 18df8a64352..b4d89785423 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl @@ -29,7 +29,8 @@ # {....} # } # -# flags = currently unused. +# flags = a list of flags. Currently supported flags are: +# DONTSETDEFAULTS = skip default values setting # # argList = The list of "-option value" pairs. # @@ -63,8 +64,10 @@ proc tclParseConfigSpec {w specs flags argList} { # 2: set the default values # - foreach cmdsw [array names cmd] { - set data($cmdsw) $def($cmdsw) + if {"DONTSETDEFAULTS" ni $flags} { + foreach cmdsw [array names cmd] { + set data($cmdsw) $def($cmdsw) + } } # 3: parse the argument list |