Merge trunk

1 files changed, 11 insertions, 11 deletions

diff --git a/tests/winDialog.test b/tests/winDialog.test
index c53b6d7..e70ae3f 100755
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -256,7 +256,7 @@ test winDialog-5.5 {GetFileName: Tcl_GetIndexFromObj() == TCL_OK} -constraints {
         Click cancel
     }]
     # Note this also tests fix for
-    # http://core.tcl.tk/tk/tktview/4a0451f5291b3c9168cc560747dae9264e1d2ef6
+    # https://core.tcl-lang.org/tk/tktview/4a0451f5291b3c9168cc560747dae9264e1d2ef6
     # $x is expected to be empty
     append x $y
 } -result {0}
@@ -376,8 +376,8 @@ test winDialog-5.7.5 {GetFileName: extension {} } -constraints {
 test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
     nt testwinevent
 } -body {
-    # In 8.6.4 this combination resulted in bar.ext.ext which is bad
-    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {ext} -title Save]}
+    # In 8.6.4 this combination resulted in bar.aaa.aaa which is bad
+    start {set x [tk_getSaveFile -filetypes {{All *}} -defaultextension {aaa} -title Save]}
     set msg {}
     then {
 	if {[catch {SetText [vista? 0x47C 0x3e9] bar} msg]} {
@@ -389,37 +389,37 @@ test winDialog-5.7.6 {GetFileName: All/extension } -constraints {
     set x "[file tail $x]$msg"
 } -cleanup {
     unset msg
-} -result bar.ext
+} -result bar.aaa
 
 test winDialog-5.7.7 {tk_getOpenFile: -defaultextension} -constraints {
     nt testwinevent
 } -body {
     unset -nocomplain x
-    tcltest::makeFile "" "5 7 7.ext" [initialdir]
+    tcltest::makeFile "" "5 7 7.aaa" [initialdir]
     start {set x [tk_getOpenFile \
-                      -defaultextension ext \
+                      -defaultextension aaa \
                       -initialdir [file nativename [initialdir]] \
                       -initialfile "5 7 7" -title Foo]}
     then {
         Click ok
     }
     return $x
-} -result [file join [initialdir] "5 7 7.ext"]
+} -result [file join [initialdir] "5 7 7.aaa"]
 
 test winDialog-5.7.8 {tk_getOpenFile: -defaultextension} -constraints {
     nt testwinevent
 } -body {
     unset -nocomplain x
-    tcltest::makeFile "" "5 7 8.ext" [initialdir]
+    tcltest::makeFile "" "5 7 8.aaa" [initialdir]
     start {set x [tk_getOpenFile \
-                      -defaultextension ext \
+                      -defaultextension aaa \
                       -initialdir [file nativename [initialdir]] \
-                      -initialfile "5 7 8.ext" -title Foo]}
+                      -initialfile "5 7 8.aaa" -title Foo]}
     then {
         Click ok
     }
     return $x
-} -result [file join [initialdir] "5 7 8.ext"]
+} -result [file join [initialdir] "5 7 8.aaa"]
 
 test winDialog-5.8 {GetFileName: extension doesn't begin with .} -constraints {
     nt testwinevent