Simplify buttons

2025-06-25 21:37:32 +01:00
parent 6e9d4918a1
commit a9cae4d409
13 changed files with 130 additions and 140 deletions
@@ -18,7 +18,6 @@ import Dodge.Default.Creature
 import Dodge.Default.Item
 import Dodge.Default.Terminal
 import Dodge.Default.Wall
-import Dodge.SoundLogic
 import Geometry
 import Picture

@@ -51,10 +50,9 @@ defaultButton =
    Button
        { _btPos = V2 0 0
        , _btRot = 0
-        , _btEvent = ButtonPress BtInactive ButtonDoNothing click1S NoWorldEffect 
-            (dark red)
+        , _btEvent = ButtonPress False NoWorldEffect (dark red)
        , _btID = 0
-        , _btState = BtOff
+--        , _btState = BtOff
        , _btTermMID = Nothing
        , _btName = ""
        , _btColor = red