summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-10-31 14:08:04 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-10-31 14:08:04 (GMT)
commitad178457dd37c20ad02c004630af346b277078fd (patch)
treea5c8be59b6c4c89db5885f321bd76a9702423083
parent86c9600d0d445a2081712633a9a9fc56fd043f99 (diff)
parent6e979156d6fa9009b6b5cd3bce6904fcdbaf4fa2 (diff)
downloadtk-ad178457dd37c20ad02c004630af346b277078fd.zip
tk-ad178457dd37c20ad02c004630af346b277078fd.tar.gz
tk-ad178457dd37c20ad02c004630af346b277078fd.tar.bz2
TIP 382 test suite update and Motif dialog implementation.
-rw-r--r--library/xmfbox.tcl6
-rw-r--r--tests/filebox.test2
2 files changed, 6 insertions, 2 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index 092f177..a1d6048 100644
--- a/library/xmfbox.tcl
+++ b/library/xmfbox.tcl
@@ -246,8 +246,12 @@ proc ::tk::MotifFDialog_Config {dataName type argList} {
if {$type eq "open"} {
lappend specs {-multiple "" "" "0"}
}
+ if {$type eq "save"} {
+ lappend specs {-confirmoverwrite "" "" "1"}
+ }
set data(-multiple) 0
+ set data(-confirmoverwrite) 1
# 2: default values depending on the type of the dialog
#
if {![info exists data(selectPath)]} {
@@ -847,7 +851,7 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} {
-message [mc {File "%1$s" does not exist.} $item]
return
}
- } elseif {$data(type) eq "save"} {
+ } elseif {$data(type) eq "save" && $data(-confirmoverwrite)} {
set message [format %s%s \
[mc "File \"%1\$s\" already exists.\n\n" $selectFilePath] \
[mc {Replace existing file?}]]
diff --git a/tests/filebox.test b/tests/filebox.test
index bbd468b..7b9fa2c 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -111,7 +111,7 @@ if {$tcl_platform(platform) == "unix"} {
}
set unknownOptionsMsg(tk_getOpenFile) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -multiple, -parent, -title, or -typevariable}
-set unknownOptionsMsg(tk_getSaveFile) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -parent, -title, or -typevariable}
+set unknownOptionsMsg(tk_getSaveFile) {bad option "-foo": must be -confirmoverwrite, -defaultextension, -filetypes, -initialdir, -initialfile, -parent, -title, or -typevariable}
set tmpFile "filebox.tmp"
makeFile {