On Mon, 03 Nov 2008 18:43:08 -0800, Luke Crook <[EMAIL PROTECTED]> wrote:

> "-p" is a test for equality, or a test if something is a type-of  
> something.

The following seems to make sense;

- To set/test status:

(alpha-enabled? *surface*)
(pixel-alpha-enabled? *surface*)
(color-key-enabled? *surface*)
(rle-accel-enabled? *surface*)

(setf (alpha-enabled? *surface*) T/NIL)
(setf (pixel-alpha-enabled? *surface*) T/NIL)
(setf (color-key-enabled? *surface*) T/NIL)
(setf (rle-accel-enabled? *surface*) T/NIL)

- To set/get the value of:

(alpha *surface*)
(color-key *surface*)

(setf (alpha *surface*) 0-255)
(setf (color-key *surface*) *color*)

- Luke
_______________________________________________
application-builder mailing list
application-builder@lispniks.com
http://www.lispniks.com/mailman/listinfo/application-builder

Reply via email to