From 5db3f7a4246db4c863cc5265ced495beadec052d Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 9 Nov 2012 13:29:08 +0000 Subject: Constrain tests that improperly demand user interaction. --- tests/winDialog.test | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/winDialog.test b/tests/winDialog.test index d340aee..80eb297 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -197,7 +197,7 @@ test winDialog-5.6 {GetFileName: Tcl_GetIndexFromObj() == TCL_OK} {nt testwineve test winDialog-5.7 {GetFileName: valid option, but missing value} {nt} { list [catch {tk_getOpenFile -initialdir bar -title} msg] $msg } {1 {value for "-title" missing}} -test winDialog-5.8 {GetFileName: extension begins with .} {nt testwinevent} { +test winDialog-5.8 {GetFileName: extension begins with .} {nt testwinevent knownBug} { # if (string[0] == '.') { # string++; # } @@ -209,7 +209,7 @@ test winDialog-5.8 {GetFileName: extension begins with .} {nt testwinevent} { } string totitle $x } [string totitle [file join [pwd] bar.foo]] -test winDialog-5.9 {GetFileName: extension doesn't begin with .} {nt testwinevent} { +test winDialog-5.9 {GetFileName: extension doesn't begin with .} {nt testwinevent knownBug} { start {set x [tk_getSaveFile -defaultextension foo -title Save]} then { SetText 0x480 bar @@ -342,7 +342,7 @@ test winDialog-5.23 {GetFileName: call GetSaveFileName} {nt testwinevent english set x } {&Save} if {[info exists ::env(TEMP)]} { -test winDialog-5.24 {GetFileName: convert \ to /} {nt testwinevent} { +test winDialog-5.24 {GetFileName: convert \ to /} {nt testwinevent knownBug} { start {set x [tk_getSaveFile -title Back]} then { SetText 0x480 [file nativename \ -- cgit v0.12 From efc2b75b01133d6de6acdab0e21cd3b2db6fd66f Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 9 Nov 2012 13:38:47 +0000 Subject: Avoid setting TK_LIBRARY to a relative pathname. --- win/makefile.vc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/win/makefile.vc b/win/makefile.vc index d84270d..68df470 100644 --- a/win/makefile.vc +++ b/win/makefile.vc @@ -213,8 +213,8 @@ TTK_SQUARE_WIDGET = 0 STUBPREFIX = $(PROJECT)stub WISHNAMEPREFIX = wish -BINROOT = . -ROOT = .. +BINROOT = $(MAKEDIR) # originally . +ROOT = $(MAKEDIR)\.. # originally .. TK_LIBRARY = $(ROOT)\library -- cgit v0.12