summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/comdlg.tcl
diff options
context:
space:
mode:
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.tcl9
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