diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-10-31 14:08:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-10-31 14:08:04 (GMT) |
| commit | 789e60c71c571d039229b0742bc331785d2c81bd (patch) | |
| tree | a5c8be59b6c4c89db5885f321bd76a9702423083 /library/xmfbox.tcl | |
| parent | 8f4b5b708b943728dfa5af76771fa652a0b0b389 (diff) | |
| parent | 5fbf35844154d90df4f7fdf5b9b21edea07c4e6e (diff) | |
| download | tk-789e60c71c571d039229b0742bc331785d2c81bd.zip tk-789e60c71c571d039229b0742bc331785d2c81bd.tar.gz tk-789e60c71c571d039229b0742bc331785d2c81bd.tar.bz2 | |
TIP 382 test suite update and Motif dialog implementation.
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 6 |
1 files changed, 5 insertions, 1 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?}]] |