[pal-cvs] CVS pal-gui

Update of /project/pal/cvsroot/pal-gui In directory clnet:/tmp/cvs-serv23076 Added Files: present.lisp Log Message: Added present.lisp --- /project/pal/cvsroot/pal-gui/present.lisp 2007/10/25 14:10:16 NONE +++ /project/pal/cvsroot/pal-gui/present.lisp 2007/10/25 14:10:16 1.1 (in-package :pal-gui) (defgeneric present (object gob width height)) (defmethod present :around (object (g widget) width height) (let ((ap (absolute-pos-of g))) (with-clipping ((1+ (vx ap)) (1+ (vy ap)) (- (width-of g) 2) (- (height-of g) 2)) (call-next-method)))) (defmethod present (object (g widget) width height) (with-blend (:color *text-color*) (draw-text (format nil "~a" object) (get-text-offset))))