clipping

[dkozak@cray.com (Darryn Kozak)]

I am running MCL 2.0 final.  I can't get clipping regions to work.
For instance, if I do the following...

(let ((bob (make-instance 'window)))
	(frame-rect bob 20 20 50 50)
	(clip-rect bob 20 20 50 50)
	(move-to bob 20 30)
	(line-to bob 30 100)
	(move-to bob 20 30)
	(format bob "This string should not end with a period."))

...I would expect both the line and the string to get clipped, but
they don't.

Am I doing something wrong?  Seems like this worked in previous
versions.


dk


	
--
	Darryn J Kozak			Cray Research Park
	dkozak@cray.com			655E Lone Oak Drive
	(612) 683-3610			Eagan, MN  55121
	FAX (612) 683-3099		USA