From b2256def06f103075d9db4254128ef5148b3eaa2 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 15 Dec 2022 20:36:39 -0500 Subject: Remove catbird bug fix hack. --- community-garden/view.scm | 8 -------- 1 file changed, 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 )) -;; Hack to fix broken version of this in catbird upstream. -(define-method (on-change (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) -- cgit v1.2.3