Fix button not updating bug

2022-06-14 18:47:11 +01:00
parent dafbd8a2da
commit 0957c79e58
10 changed files with 51 additions and 67 deletions
@@ -402,16 +402,16 @@ data CrMvType
        , _mvAimSpeed   :: Float -> Float
        }
 data Button = Button 
-    { _btPict :: Button -> SPic
-    , _btPos :: Point2
-    , _btRot :: Float
-    , _btEvent :: Button -> World -> World
-    , _btID :: Int
-    , _btText :: String
-    , _btState :: ButtonState
--    , _btTerminalParams :: World -> TerminalParams
+    { _btPict   :: Button -> SPic
+    , _btPos    :: Point2
+    , _btRot    :: Float
+    , _btEvent  :: Button -> World -> World
+    , _btID     :: Int
+    , _btText   :: String
+    , _btState  :: ButtonState
    , _btTermMID :: Maybe Int
-    , _btName :: String
+    , _btName   :: String
+    , _btColor  :: Color
    }
 data TerminalLine
    = TerminalLineDisplay