[modify] don't need to set visibility of frameset frames

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."