Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge to release |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-11-rc |
Files: | files | file ages | folders |
SHA1: |
a9d2da5fa56ff6adcc1f13669aba8d60 |
User & Date: | dgp 2011-10-31 19:37:01 |
Context
2011-11-01
| ||
14:41 | release tag check-in: d5826796 user: dgp tags: core-8-5-11-rc | |
2011-10-31
| ||
19:37 | merge to release check-in: a9d2da5f user: dgp tags: core-8-5-11-rc | |
19:35 | overlooked pathclevel bump in tk.h check-in: d998db84 user: dgp tags: core-8-5-11-rc | |
14:07 | TIP 382 test suite update and Motif dialog implementation. check-in: 3ddf3698 user: dgp tags: core-8-5-branch | |
Changes
Changes to library/xmfbox.tcl.
︙ | ︙ | |||
242 243 244 245 246 247 248 | {-parent "" "" "."} {-title "" "" ""} {-typevariable "" "" ""} } if {$type eq "open"} { lappend specs {-multiple "" "" "0"} } | > > | > > | 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 | {-parent "" "" "."} {-title "" "" ""} {-typevariable "" "" ""} } 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)]} { # first time the dialog has been popped up set data(selectPath) [pwd] set data(selectFile) "" } |
︙ | ︙ | |||
843 844 845 846 847 848 849 | if {![file exists $item]} { if {$data(type) eq "open"} { tk_messageBox -icon warning -type ok \ -message [mc {File "%1$s" does not exist.} $item] return } | | | 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 | if {![file exists $item]} { if {$data(type) eq "open"} { tk_messageBox -icon warning -type ok \ -message [mc {File "%1$s" does not exist.} $item] return } } 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?}]] set answer [tk_messageBox -icon warning -type yesno \ -message $message] if {$answer eq "no"} { return |
︙ | ︙ |
Changes to tests/filebox.test.
︙ | ︙ | |||
107 108 109 110 111 112 113 | if {$tcl_platform(platform) == "unix"} { set modes "0 1" } else { set modes 1 } set unknownOptionsMsg(tk_getOpenFile) {bad option "-foo": must be -defaultextension, -filetypes, -initialdir, -initialfile, -multiple, -parent, -title, or -typevariable} | | | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | if {$tcl_platform(platform) == "unix"} { set modes "0 1" } else { set modes 1 } 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 -confirmoverwrite, -defaultextension, -filetypes, -initialdir, -initialfile, -parent, -title, or -typevariable} set tmpFile "filebox.tmp" makeFile { # this file can be empty! } $tmpFile array set filters { |
︙ | ︙ |