#1820 Aqua: test failures

[Don Porter]

==== choosedir-1.2 tk_chooseDirectory command FAILED
==== Contents of test case:

list [catch {tk_chooseDirectory -foo bar} msg] $msg

---- Result was:
1 {bad option "-foo": must be -initialdir, -message,
-mustexist, -parent, or -title}
---- Result should have been (exact matching):
1 {bad option "-foo": must be -initialdir, -mustexist,
-parent, or -title}
==== choosedir-1.2 FAILED

then the following tests all block,
demaning interactivity, even asking
for things the dialog doesn't appear
to support:

choosedir-2.1 through choosdir-4.2

then

==== choosedir-4.3 tk_chooseDirectory, -initialdir {}
FAILED
==== Contents of test case:

catch {unset ::tk::dialog::file::__tk_choosedir}
ToPressButton $parent ok
tk_chooseDirectory -title "Press OK" -parent
$parent -initialdir ""

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad directory ""
while executing
"tk_chooseDirectory -title "Press OK" -parent $parent
-initialdir """
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== choosedir-4.3 FAILED

then more blocking in choosedir-5.1.

[Don Porter]

Logged In: YES
user_id=80530

still failing 8.4.13 and 8.5a4