diff options
| -rw-r--r-- | starling/node-2d.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 8c48966..b46b454 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -84,6 +84,7 @@ bounding-box on-child-resize dirty! + resize move-by move-to teleport @@ -476,6 +477,10 @@ (on-child-resize (parent node) node))) (set! (dirty-bounding-box? node) #t)))) +(define-method (resize (node <node-2d>) w h) + (set! (width node) w) + (set! (height node) h)) + ;; Animation helpers (define-method (move-to (node <node-2d>) x y) |