diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl index 18df8a6435..b4d8978542 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl +++ b/systems/texlive/tlnet/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 |