summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl')
-rw-r--r--Master/tlpkg/tltcl/lib/tk8.6/comdlg.tcl9
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