Working use of links as placement spots

2021-11-04 16:39:16 +00:00
parent 6933c4d3b3
commit f0c56cbcac
3 changed files with 10 additions and 10 deletions
@@ -239,8 +239,8 @@ defaultDrawButton col bt =
    )
  where
    buttonGeometry
-        | _btState bt == BtOff = rectWH width 5
-        | otherwise = rectNSEW (-3) (-5) width (-width)
+        | _btState bt == BtOff = rectNSEW 10 (-1) width (-width) 
+        | otherwise = rectNSEW 2 (-1) width (-width)
    width = 8
 defaultButton :: Button
 defaultButton = Button