node-2d: Improve sprite texture state management.

1 files changed, 7 insertions, 5 deletions

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 00d909a..f439ebe 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -92,7 +92,6 @@
 
             <sprite>
             texture
-            texcoords
             source-rect
             blend-mode
             tint
@@ -573,7 +572,7 @@
 ;;;
 
 (define-class <sprite> (<node-2d>)
-  (texture #:accessor texture #:init-keyword #:texture #:asset? #t)
+  (texture #:accessor texture #:init-keyword #:texture #:asset? #t #:watch? #t)
   (batch #:accessor batch
          #:init-keyword #:batch
          #:init-form #f)
@@ -630,12 +629,15 @@
 (define-method (sync-texture (sprite <atlas-sprite>))
   (set! (texture sprite) (texture-atlas-ref (atlas sprite) (index sprite))))
 
-(define-method (initialize (sprite <atlas-sprite>) initargs)
-  (next-method)
+(define-method (on-boot (sprite <atlas-sprite>))
   (sync-texture sprite))
 
 (define-method (on-change (sprite <atlas-sprite>) slot-name old new)
-  (sync-texture sprite))
+  (case slot-name
+    ((atlas index)
+     (sync-texture sprite))
+    (else
+     (next-method))))
 
 
 ;;;