Show
Ignore:
Timestamp:
08/01/08 17:43:33 (4 months ago)
Author:
ksprotte
Message:

checkpoint

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3706 r3722  
    225225           #:poi-media 
    226226           #:make-poi 
     227           #:update-poi 
    227228           #:poi-complete 
    228229           #:poi-center-x 

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

    r3708 r3722  
    102102(defmethod destroy-object :before ((poi poi)) 
    103103  (mapc #'delete-object (poi-media poi))) 
     104 
     105(deftransaction update-poi (poi &key published icon area) 
     106  (check-type published boolean) 
     107  (check-type area list) 
     108  (setf (poi-published poi) published) 
     109  (when icon 
     110    (setf (poi-icon poi) icon)) 
     111  (when area 
     112    (setf (poi-area poi) area)) 
     113  poi) 
    104114 
    105115(defmethod poi-complete ((poi poi) language)