Revision: 3425 Author: ksprotte URL: http://bknr.net/trac/changeset/3425
small fix, used *contract-tree-images-size* in a bad way
U trunk/projects/bos/web/contract-tree.lisp
Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-11 14:44:23 UTC (rev 3424) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-11 15:14:44 UTC (rev 3425) @@ -9,7 +9,7 @@ (image-req-count :initform 0 :accessor image-req-count)))
(defvar *contract-tree* nil) -(defparameter *contract-tree-images-size* 256) +(defparameter *contract-tree-images-size* 128) ; was 256
;;; XXX soll spaeter von was anderem abhaengen (defmethod leaf-node-p ((node contract-node)) @@ -202,7 +202,7 @@ (handle-if-node-modified (incf (image-req-count node)) (let ((box (geo-box node)) - (image-size (progn *contract-tree-images-size* 128))) + (image-size *contract-tree-images-size*)) (cl-gd:with-image (cl-gd:*default-image* image-size image-size t) (setf (cl-gd:save-alpha-p) t (cl-gd:alpha-blending-p) nil)