Improve wall squashing further

2026-03-26 20:25:59 +00:00
parent 62a37388e7
commit 0ddedf7fd6
9 changed files with 99 additions and 79 deletions
@@ -236,8 +236,9 @@ closeButtonToSelectionItem w i = do
 btText :: Button -> String
 btText bt = case _btEvent bt of
    ButtonPress {} -> "BUTTON"
-    ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
-    ButtonDumbSwitch {} -> "SWITCH"
+    --ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
+    ButtonSwitch {} -> "SWITCH"
+    ButtonDumbSwitch {} -> "SWITCH"  -- do we want to show switch status?
    ButtonAccessTerminal i -> "TERMINAL " ++ show i

 closeItemToTextPictures :: Item -> ([String], Color)