Changeset 3425

Show
Ignore:
Timestamp:
07/11/08 17:14:44 (6 months ago)
Author:
ksprotte
Message:

small fix, used *contract-tree-images-size* in a bad way

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/contract-tree.lisp

    r3424 r3425  
    1010 
    1111(defvar *contract-tree* nil) 
    12 (defparameter *contract-tree-images-size* 256) 
     12(defparameter *contract-tree-images-size* 128) ; was 256 
    1313 
    1414;;; XXX soll spaeter von was anderem abhaengen 
    …… 
    203203      (incf (image-req-count node)) 
    204204      (let ((box (geo-box node)) 
    205             (image-size (progn *contract-tree-images-size* 128)))         
     205            (image-size *contract-tree-images-size*))         
    206206        (cl-gd:with-image (cl-gd:*default-image* image-size image-size t) 
    207207          (setf (cl-gd:save-alpha-p) t