closure-cvs

Download

closure-cvs@common-lisp.net

January 2007

4 participants
42 discussions

[closure-cvs] CVS closure/src/renderer
by dlichteblau 02 Jan '07

02 Jan '07

Update of /project/closure/cvsroot/closure/src/renderer In directory clnet:/tmp/cvs-serv2792 Modified Files: clim-device.lisp Log Message: commented out one of the two BACKGROUND-PIXMAP+MASK versions --- /project/closure/cvsroot/closure/src/renderer/clim-device.lisp 2005/07/17 09:38:54 1.13 +++ /project/closure/cvsroot/closure/src/renderer/clim-device.lisp 2007/01/02 12:08:44 1.14 @@ -160,34 +160,35 @@ (t spec))) -(defun background-pixmap+mask (document drawable bg) - (cond ((r2::background-%pixmap bg) - (values (r2::background-%pixmap bg) - (r2::background-%mask bg))) - (t - (setf (r2::background-%pixmap bg) :none) - (funcall ;;r2::run-process-on-behalf-of-document document - (lambda () - (let ((aimage (clue-gui2::aimage-from-url document (r2::background-image bg)))) - (cond ((eq aimage :error) - (setf (r2::background-%pixmap bg) :none) - (values (r2::background-%pixmap bg) - (r2::background-%mask bg))) - (t - (let ((pm (ws/x11::aimage->pixmap+mask drawable aimage))) - (setf (r2::background-%pixmap bg) (car pm) - (r2::background-%mask bg) (cadr pm)) - #+NIL - (clue-gui2::gui-post - nil - ;; we do it the hard way via an exposure round trip. - 'xlib:clear-area - drawable - :exposures-p t)))))) - ;;:name "Lazy Document background fetch." - ) - (values (r2::background-%pixmap bg) - (r2::background-%mask bg))))) +;; newer definition below +;;;(defun background-pixmap+mask (document drawable bg) +;;; (cond ((r2::background-%pixmap bg) +;;; (values (r2::background-%pixmap bg) +;;; (r2::background-%mask bg))) +;;; (t +;;; (setf (r2::background-%pixmap bg) :none) +;;; (funcall ;;r2::run-process-on-behalf-of-document document +;;; (lambda () +;;; (let ((aimage (clue-gui2::aimage-from-url document (r2::background-image bg)))) +;;; (cond ((eq aimage :error) +;;; (setf (r2::background-%pixmap bg) :none) +;;; (values (r2::background-%pixmap bg) +;;; (r2::background-%mask bg))) +;;; (t +;;; (let ((pm (ws/x11::aimage->pixmap+mask drawable aimage))) +;;; (setf (r2::background-%pixmap bg) (car pm) +;;; (r2::background-%mask bg) (cadr pm)) +;;; #+NIL +;;; (clue-gui2::gui-post +;;; nil +;;; ;; we do it the hard way via an exposure round trip. +;;; 'xlib:clear-area +;;; drawable +;;; :exposures-p t)))))) +;;; ;;:name "Lazy Document background fetch." +;;; ) +;;; (values (r2::background-%pixmap bg) +;;; (r2::background-%mask bg))))) (defmethod update-lazy-object (document (self null)) nil)

1 0

[closure-cvs] CVS closure
by dlichteblau 02 Jan '07

02 Jan '07

Update of /project/closure/cvsroot/closure In directory clnet:/tmp/cvs-serv2676 Modified Files: closure.asd Log Message: depend on :MCCLIM, which loads :CLIM-LOOKS, rather than just :CLIM --- /project/closure/cvsroot/closure/closure.asd 2006/12/31 15:45:30 1.13 +++ /project/closure/cvsroot/closure/closure.asd 2007/01/02 12:08:10 1.14 @@ -83,7 +83,7 @@ (asdf:defsystem closure - :depends-on (:clim + :depends-on (:mcclim :clim-clx :glisp :bordeaux-threads)

1 0