Changeset 2852

Show
Ignore:
Timestamp:
04/02/08 13:44:06 (9 months ago)
Author:
ksprotte
Message:

added publish / subscribe to contract-tree

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/packages.lisp

    r2846 r2852  
    239239           #:mail-print-pdf 
    240240 
    241            #:*cert-download-directory*)) 
     241           #:*cert-download-directory* 
     242 
     243           #:*rect-publisher*)) 
    242244 
    243245(defpackage :bos.m2.cert-generator 

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

    r2851 r2852  
    4242(defmethod initialize-instance :after ((contract-tree-node contract-tree-node) &key) 
    4343  (setf (id contract-tree-node) 
    44         (incf (last-id (indexed-class-index-named (find-class 'contract-tree-node) 'ids))))) 
     44        (incf (last-id (indexed-class-index-named (find-class 'contract-tree-node) 'ids)))) 
     45  (geometry:register-rect-subscriber *rect-publisher* contract-tree-node 
     46                                     (geo-location contract-tree-node) 
     47                                     #'contract-tree-node-changed)) 
    4548 
    4649(defmethod print-object ((contract-tree-node contract-tree-node) stream) 
    4750  (print-unreadable-object (contract-tree-node stream :type t :identity t) 
    4851    (format stream "ID: ~d" (id contract-tree-node)))) 
     52 
     53(defmethod contract-tree-node-changed ((contract-tree-node contract-tree-node)) 
     54  (setf (timestamp contract-tree-node) (get-universal-time))) 
    4955 
    5056(defun map-children-rects (function left top width-heights depth) 
    …… 
    174180  (let ((image-size (output-images-size (root object)))) 
    175181    (cl-gd:with-image (image image-size image-size t)       
     182      (print 'rendering-contract-tree-image) 
    176183      (draw-contract-image image image-size (geo-location object) (pixelize object)) 
    177184      (emit-image-to-browser image :png :date (timestamp object)))))