Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv16745/src/renderer

Modified Files: clim-device.lisp images.lisp Log Message: Reduce amount of debugging information printed to console.

Date: Sun Jul 17 11:38:54 2005 Author: emarsden

Index: closure/src/renderer/clim-device.lisp diff -u closure/src/renderer/clim-device.lisp:1.12 closure/src/renderer/clim-device.lisp:1.13 --- closure/src/renderer/clim-device.lisp:1.12 Wed Jul 13 15:44:55 2005 +++ closure/src/renderer/clim-device.lisp Sun Jul 17 11:38:54 2005 @@ -221,8 +221,6 @@ res))

(defun background-pixmap+mask (document drawable bg) - #+emarsden2005-06-23 - (print `(background-pixmap+mask ,bg)) (cond ((r2::background-%pixmap bg) ;; already there (values (r2::background-%pixmap bg) @@ -371,6 +369,7 @@ (unless (eql (r2::background-image bg) :none) (multiple-value-bind (pixmap mask) (background-pixmap+mask document (sheet-direct-mirror (medium-sheet medium)) bg) + #+emarsden2005-07-15 (print (list 'x11-draw-background pixmap mask)) (unless (eql pixmap :none) (let* ((iw (xlib:drawable-width pixmap))

Index: closure/src/renderer/images.lisp diff -u closure/src/renderer/images.lisp:1.2 closure/src/renderer/images.lisp:1.3 --- closure/src/renderer/images.lisp:1.2 Sun Mar 13 19:03:24 2005 +++ closure/src/renderer/images.lisp Sun Jul 17 11:38:54 2005 @@ -79,7 +79,7 @@ (t (warn "Auch das hat nix genuetzt.") (cond (deliver-broken-image-p - (format T "~%;; ~A -> using broken image." url) + (format *debug-io* "~%;; ~A -> using broken image." url) (broken-aimage document)) (t (error "Image mime type `~A' or `~A' not understood." @@ -88,10 +88,10 @@ (cond ((null aimage) (cond (deliver-broken-image-p (progn - (format T "~%;; ~A -> using broken image. [zweite variante]" url) + (format *debug-io* "~%;; ~A -> using broken image. [zweite variante]" url) (broken-aimage document) )) (t - (format T "~&;; Was unable to read ~S as image, because of:~%;; | ~A." + (format *debug-io* "~&;; Was unable to read ~S as image, because of:~%;; | ~A." url condition) (values nil condition)))) (t @@ -173,7 +173,7 @@ (let ((cmd (format nil "~A <~A >~A" filter-name (namestring (truename temp-filename)) (namestring pnm-filename)))) - (format T "~%;; running: ~A" cmd) + (format *debug-io* "~%;; running: ~A" cmd) (run-unix-shell-command cmd)) (progn ;ignore-errors (with-open-file (input pnm-filename @@ -235,4 +235,4 @@ :direction :output :if-exists :new-version :element-type '(unsigned-byte 8)) - (write-ppm-image aimage sink))) \ No newline at end of file + (write-ppm-image aimage sink)))