Items in a canvas, which is embedded in another canvas, are
clipped by the inner canvas. This clipping is not done in
postscript output of the outer canvas.

tk-version: 
diff is against 8.4a2; bug is also in 8.0 and 8.3 (Windows
and Linux)

reproducible script:
canvas .outer -bg red -width 120 -height 120
pack .outer
canvas .inner -bg white -width 100 -height 100
.outer create window 10 10 -anchor nw -window .inner
.inner create oval -5 -5 105 105 -fill blue
update
.outer postscript -file qqq.ps

result:
in the postscript file the oval is an oval.

desired result:
The oval should have (due to the clipping) corners as
in the screen view.


This patch works for me. I'm not a postscript expert. Could
someone with more knowledge look, if this is the right way 
and place to do it?

Second: outer is not drawn in red in the ps-file. I have 
not yet a patch for this.


--- tkCanvWind.orig.c	Wed Nov  8 22:01:28 2000
+++ tkCanvWind.c	Thu Nov  9 20:18:11 2000
@@ -875,6 +875,11 @@
     Tcl_DStringFree(&buffer2);
 
     if (result == TCL_OK) {
+	sprintf (buffer,
+		"0 %d moveto %d 0 rlineto 0 -%d rlineto -%d",
+		height, width, height, width);
+	Tcl_AppendResult(interp, buffer, 
+                " 0 rlineto closepath clip newpath\n", (char *) NULL);
 	Tcl_AppendResult(interp,
 		"50 dict begin\nsave\ngsave\n",
 		(char *) NULL);
