Color QuickDraw in MCL 2.0

[Lin@news.cambridge.apple.com, Chien Chang <cs8110@twin1.src.ncu.edu.tw>]

I have tried to make an instance of CWindow with the following
expressions:

(setq a (make-instance 

and this should create a color window, but when I tried to draw a
rectangle on the window, it didn`t work and just draw a black rectangle,
can any body tell me why?

The testing code is as follows:

(rlet ((testcolor :RGBColor :red 1000 :green 1000 :blue 1000)
	(r :rect :top 0 :left 0 :right 100 :bottom 100))
	(with-focused-view a 
		(#_rgbforecolor testcolor)
		(#_paintrect r)))