Cleanup

2022-06-08 22:34:29 +01:00
parent 970858e129
commit 4e4759fb1c
17 changed files with 77 additions and 112 deletions
@@ -155,7 +155,7 @@ addPane wl l wls = IM.insert wlid (wl { _wlLine = l, _wlID = wlid }) wls
 --    i = IM.newKey $ w ^# l

 mvProp :: Point2 -> Float -> Prop -> Prop
-mvProp p a = (pjRot +~ a) . (pjPos %~ ( (p +.+) . rotateV a ))
+mvProp p a = (pjRot +~ a) . (prPos %~ ( (p +.+) . rotateV a ))

 mvButton :: Point2 -> Float -> Button -> Button
 mvButton p a = (btRot +~ a) . (btPos %~ ( (p +.+) . rotateV a ))