#1823 embed.test failures

[Don Porter]

==== embed-1.4 TkpUseWindow procedure, -container must
be set FAILED
==== Contents of test case:

deleteWindows
toplevel .container
list [catch {toplevel .embd -use [winfo id
.container]} err] $err

---- Result was:
1 {The window ID 0x7a9cc8 does not correspond to a
valid Tk Window.}
---- Result should have been (exact matching):
1 {window ".container" doesn't have -container option set}
==== embed-1.4 FAILED

---- embed-1.5 start

==== embed-1.5 TkpUseWindow procedure, -container must
be set FAILED
==== Contents of test case:

deleteWindows
frame .container
list [catch {toplevel .embd -use [winfo id
.container]} err] $err

---- Result was:
1 {The window ID 0x1533308 does not correspond to a
valid Tk Window.}
---- Result should have been (exact matching):
1 {window ".container" doesn't have -container option set}
==== embed-1.5 FAILED

[WildCard]

Logged In: YES
user_id=596509

fails on windows as well

Tcl/Tk: v8.5 head at 09/02/05
OS: WinXPsp2
Built with makefile.vc using VC7.1

embed.test

==== embed-1.4 TkpUseWindow procedure, -container must be
set FAILED
[...]
---- Result was:
1 {the window to use is not a Tk container}
---- Result should have been (exact matching):
1 {window ".container" doesn't have -container option set}
==== embed-1.4 FAILED

==== embed-1.5 TkpUseWindow procedure, -container must be
set FAILED
[...]
---- Result was:
1 {the window to use is not a Tk container}
---- Result should have been (exact matching):
1 {window ".container" doesn't have -container option set}
==== embed-1.5 FAILED

[Don Porter]

Logged In: YES
user_id=80530

still failing on Aqua
for 8.4.13 / 8.5a4