diff options
Diffstat (limited to 'src/interactive/frameset.lisp')
| -rw-r--r-- | src/interactive/frameset.lisp | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/interactive/frameset.lisp b/src/interactive/frameset.lisp index 4f511e1..51c7ecd 100644 --- a/src/interactive/frameset.lisp +++ b/src/interactive/frameset.lisp @@ -12,13 +12,9 @@ (defmethod (setf fps) (newval (fs frameset)) (setf (frameset-wait-time fs) (/ 1000.0 newval))) -(defmethod (setf frameset-index) :before (newval (fs frameset)) - (setf (unit-visiblep (current-frame-unit fs)) nil)) - (defmethod (setf frameset-index) :after (newval (fs frameset)) (with-slots (count index) fs - (setf (unit-visiblep (current-frame-unit fs)) t - index (mod index count)))) + (setf index (mod index count)))) (defmethod (setf runningp) :after (newval (fs frameset)) ;; to prevent speedup after restart @@ -41,8 +37,7 @@ count (length sequence)) (loop for frame across frames when frame - do (setf (unit-container frame) fs - (unit-visiblep frame) nil)))) + do (setf (unit-container frame) fs)))) (defun current-frame-unit (fs) "Returns the unit be currently displaayed as the animation's frame." |