diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-12-15 20:36:39 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-01-06 16:00:25 -0500 |
| commit | b2256def06f103075d9db4254128ef5148b3eaa2 (patch) | |
| tree | 3cfaa58f145ed26effe0938cfc87d98a94d4fa0c | |
| parent | 19ecc6ff969ca632f21cc3943ed82e00a22c6419 (diff) | |
Remove catbird bug fix hack.
| -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) |