destroy SceneFlxStates when a FlxMovie ends

src/hollywoo_flixel/FlxDirector.kiss

@@ -22,6 +22,9 @@
     (FlxG.state.openSubState currentState)
     (cc))
 
+(method :Void cleanup []
+    (FlxG.state.openSubState null))
+
 (var STAGE_LEFT_X 150)
 (var STAGE_RIGHT_X (- 1280 150))
 (var ACTOR_Y 500)

src/hollywoo_flixel/HollywooFlixelDSL.kiss

@@ -9,6 +9,11 @@
         (setSprite.loadGraphic (dictGet sets set))
         (newScene name (cast (new SceneFlxState setSprite time perspective)))))
 
+// Destroy substates when the movie end is reached:
+(cleanup
+    (doFor =>name scene scenes
+        (.destroy (cast scene SceneFlxState))))
+
 (method newFlxSound [name path &opt :Float volume]
     (set volume (or volume 1))
     (assert (<= 0 volume 1))

src/hollywoo_flixel/MovieFlxState.kiss

@@ -1,11 +1,6 @@
 (prop &mut :FlxDirector director)
-(prop &mut :FlxMovie movie)
 
 (method &override :Void create []
     (set destroySubStates false)
     (super.create)
-    (set director (new FlxDirector))
+    (set director (new FlxDirector)))
-    (set movie (new FlxMovie director)))
-
-(method &override :Void update [:Float elapsed]
-    (super.update elapsed))