diff options
| -rw-r--r-- | community-garden/view.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/community-garden/view.scm b/community-garden/view.scm index 429394a..4ec4dda 100644 --- a/community-garden/view.scm +++ b/community-garden/view.scm @@ -20,14 +20,6 @@ %window-height <garden-view>)) -;; Hack to fix broken version of this in catbird upstream. -(define-method (on-change (sprite <sprite>) slot-name old new) - (case slot-name - ((texture) - (let ((new (artifact (->asset new)))) - (set! (width sprite) (texture-width new)) - (set! (height sprite) (texture-height new)))))) - (define %window-width 1024) (define %window-height 768) (define %tile-width 64.0) |