Make buttons have shape, expose multiple bugs

2021-09-27 12:28:53 +01:00
parent d9ad55ec50
commit 743c1c878d
19 changed files with 157 additions and 71 deletions
@@ -240,7 +240,7 @@ data WorldState
    | CrNumAlive Int
  deriving (Eq,Ord)
 data Button = Button 
-    { _btPict :: Picture
+    { _btPict :: Button -> SPic
    , _btPos :: Point2
    , _btRot :: Float
    , _btEvent :: Button -> World -> World