Tk Source Code

Check-in [bd9993e0]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: bd9993e014917611d9733fe60d724908d9b7eacc3846a1a8400d4e9f4ee84557
User & Date: fvogel 2019-05-17 17:19:19
Context
2019-05-18
15:45
Fix [eb29967e88]: Add horizontal scrolling support for Windows. Patch from Christopher Chavez. check-in: 93f1a8a2 user: fvogel tags: trunk
2019-05-17
17:19
Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 check-in: bd9993e0 user: fvogel tags: trunk
17:18
Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 check-in: 06fb23d8 user: fvogel tags: core-8-6-branch
13:43
merge 8.6 check-in: 22e9ad26 user: dgp tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/winDialog.test.

   372    372       unset msg
   373    373   } -result bar.c
   374    374   
   375    375   
   376    376   test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
   377    377       nt testwinevent
   378    378   } -body {
   379         -    # In 8.6.4 this combination resulted in bar.ext.ext which is bad
   380         -    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {ext} -title Save]}
          379  +    # In 8.6.4 this combination resulted in bar.aaa.aaa which is bad
          380  +    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {aaa} -title Save]}
   381    381       set msg {}
   382    382       then {
   383    383   	if {[catch {SetText [vista? 0x47C 0x3e9] bar} msg]} {
   384    384   	    Click cancel
   385    385   	} else {
   386    386   	    Click ok
   387    387   	}
   388    388       }
   389    389       set x "[file tail $x]$msg"
   390    390   } -cleanup {
   391    391       unset msg
   392         -} -result bar.ext
          392  +} -result bar.aaa
   393    393   
   394    394   test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
   395    395       nt testwinevent
   396    396   } -body {
   397    397       unset -nocomplain x
   398         -    tcltest::makeFile "" "5 7 7.ext" [initialdir]
          398  +    tcltest::makeFile "" "5 7 7.aaa" [initialdir]
   399    399       start {set x [tk_getOpenFile \
   400         -                      -defaultextension ext \
          400  +                      -defaultextension aaa \
   401    401                         -initialdir [file nativename [initialdir]] \
   402    402                         -initialfile "5 7 7" -title Foo]}
   403    403       then {
   404    404           Click ok
   405    405       }
   406    406       return $x
   407         -} -result [file join [initialdir] "5 7 7.ext"]
          407  +} -result [file join [initialdir] "5 7 7.aaa"]
   408    408   
   409    409   test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
   410    410       nt testwinevent
   411    411   } -body {
   412    412       unset -nocomplain x
   413         -    tcltest::makeFile "" "5 7 8.ext" [initialdir]
          413  +    tcltest::makeFile "" "5 7 8.aaa" [initialdir]
   414    414       start {set x [tk_getOpenFile \
   415         -                      -defaultextension ext \
          415  +                      -defaultextension aaa \
   416    416                         -initialdir [file nativename [initialdir]] \
   417         -                      -initialfile "5 7 8.ext" -title Foo]}
          417  +                      -initialfile "5 7 8.aaa" -title Foo]}
   418    418       then {
   419    419           Click ok
   420    420       }
   421    421       return $x
   422         -} -result [file join [initialdir] "5 7 8.ext"]
          422  +} -result [file join [initialdir] "5 7 8.aaa"]
   423    423   
   424    424   test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
   425    425       nt testwinevent
   426    426   } -body {
   427    427       start {set x [tk_getSaveFile -defaultextension foo -title Save]}
   428    428       set msg {}
   429    429       then {