overrideplaymode and restoreplaymode

2023-10-01 21:54:21 -06:00
parent 1a5be0c1d5
commit f76609e6fe
1 changed files with 16 additions and 0 deletions
--- a/src/hollywoo/Movie.kiss
+++ b/src/hollywoo/Movie.kiss
@@ -766,6 +766,22 @@
            (#unless subclass @:keep (method ,nameAndType ,argList ,@body))
        }))

+(hollywooMethod :Void restorePlayMode [:Continuation cc]
+    (set delayHandling
+        (case hollywoo.Movie.playMode
+            (Read Manual)
+            (Watch AutoWithSkip)
+            (never otherwise)))
+    (cc))
+
+(hollywooMethod :Void overridePlayMode [:PlayMode mode :Continuation cc]
+    (set delayHandling
+        (case mode
+            (Read Manual)
+            (Watch AutoWithSkip)
+            (never otherwise)))
+    (cc))
+
 (hollywooMethod :Void hideCustomDialog [:Continuation cc]
    (when _hideCustomDialog
        (_hideCustomDialog)