add onComplete to Movie

2023-04-06 08:24:28 -06:00
parent 583383cc62
commit 29cf20d5b7
2 changed files with 3 additions and 0 deletions
--- a/projects/hollywoo/src/hollywoo/HollywooDSL.kiss
+++ b/projects/hollywoo/src/hollywoo/HollywooDSL.kiss
@@ -52,6 +52,8 @@
            (set lastInstructionPointer -2)
            (collectedBlocks cleanup))
        (doCleanup)
+        (when onComplete
+            (onComplete))
    })

 (defReaderMacro &bof "" [stream] `(#when (StringTools.contains kissFile className) (doPreload cc)))
--- a/projects/hollywoo/src/hollywoo/Movie.kiss
+++ b/projects/hollywoo/src/hollywoo/Movie.kiss
@@ -141,6 +141,7 @@
                            cc))))))

    (prop &mut :Bool paused false)
+    (prop &mut :Continuation onComplete null)

    (method pause []
        (unless paused