[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Color QuickDraw in MCL 2.0

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

(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)))