From 29cf20d5b7445c51384d82916936f3f211bc48f6 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Thu, 6 Apr 2023 08:24:28 -0600
Subject: [PATCH] add onComplete to Movie

---
 projects/hollywoo/src/hollywoo/HollywooDSL.kiss | 2 ++
 projects/hollywoo/src/hollywoo/Movie.kiss       | 1 +
 2 files changed, 3 insertions(+)

diff --git a/projects/hollywoo/src/hollywoo/HollywooDSL.kiss b/projects/hollywoo/src/hollywoo/HollywooDSL.kiss
index ff399bd8..8f4c6bf3 100644
--- 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)))
diff --git a/projects/hollywoo/src/hollywoo/Movie.kiss b/projects/hollywoo/src/hollywoo/Movie.kiss
index b183f96c..6b08bcc6 100644
--- 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