[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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)