From 5a683c56882f50d8a667d2e2c237492852db77a3 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 1 Jul 2022 10:31:31 -0500 Subject: [modify] don't need to set visibility of frameset frames --- src/interactive/frameset.lisp | 9 ++------- 1 file 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." -- cgit v1.2.3