(in-package :om) ;from temporalboxes.lisp (defmethod (setf posy) (posy (self TemporalBox)) (print "posuy") (let ((off (offset self))) (cond ((integerp posy) (if (car (frames self)) (let* ((container (om-view-container (car (frames self)))) (sys-etat (get-system-etat container)) (new-pos (point2pixel container (om-make-big-point (slot-value self 'offset) posy) sys-etat))) (print (list "inspoe00" (slot-value self 'offset))) (OMGMoveObject (car (frames self)) new-pos) (print (list "inspoe" (slot-value self 'offset))) )) (setf (slot-value self 'posy) posy)) (t (om-beep-msg "Incorrect posy value"))) (setf (offset self) off) ))