Commit fcea9eaf authored by Camil Staps's avatar Camil Staps 🍃

Fix ShipAdventure after changed onclick handler in Platform

parent c29612ee
Pipeline #25368 passed with stage
in 5 minutes and 8 seconds
......@@ -166,7 +166,7 @@ sectionImage disabledSections hilite mngmnt zoomed exitLocks hopLocks inventoryM
= { fill = toSVGColor (if isLocked "black" "white") }
doorClick :: !Bool !Coord3D !Dir !(Image (a, MapAction SectionStatus)) -> Image (a, MapAction SectionStatus)
doorClick False c3d dir img = img
doorClick _ c3d dir img = img <@< { onclick = \_ (x, _) -> (x, ToggleDoor c3d dir), local = False}
doorClick _ c3d dir img = img <@< { onclick = \(x, _) -> (x, ToggleDoor c3d dir), local = False}
sectionImage` :: !(Bool Coord3D [Object ObjectType] [Device] Real (Image a) [Image a] (Image b) (Image (Maps2D, MapAction SectionStatus))
(Image d) (Image e) (Image f) (Image g) -> Image (Maps2D, MapAction SectionStatus))
......@@ -359,10 +359,10 @@ editSectionImage hilite mngmnt zoomed allDevices network inventoryMap doorDims s
#! vwally = rect (px 5.0) (px height) <@< { fill = toSVGColor "white" }
<@< { opacity = 0.1 }
<@< { stroke = toSVGColor "none" }
#! wallyN = hwally <@< {onclick = \_ -> rotateWall floorIdx c N, local = False}
#! wallyE = vwally <@< {onclick = \_ -> rotateWall floorIdx c E, local = False}
#! wallyW = vwally <@< {onclick = \_ -> rotateWall floorIdx c W, local = False}
#! wallyS = hwally <@< {onclick = \_ -> rotateWall floorIdx c S, local = False}
#! wallyN = hwally <@< {onclick = rotateWall floorIdx c N, local = False}
#! wallyE = vwally <@< {onclick = rotateWall floorIdx c E, local = False}
#! wallyW = vwally <@< {onclick = rotateWall floorIdx c W, local = False}
#! wallyS = hwally <@< {onclick = rotateWall floorIdx c S, local = False}
= 'GS'.overlay [ ('GS'.AtMiddleX, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtMiddleY), ('GS'.AtMiddleX, 'GS'.AtTop), ('GS'.AtLeft, 'GS'.AtMiddleY)
, ('GS'.AtLeft, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtBottom)
]
......@@ -406,5 +406,5 @@ rotateWall m c d (maps, edit)
rotate Wall = Door
rotate Door = Open
onClick :: !(MapAction SectionStatus) Int !(!a, MapAction SectionStatus) -> (!a, !MapAction SectionStatus)
onClick clck _ (m, _) = (m, clck)
onClick :: !(MapAction SectionStatus) !(!a, MapAction SectionStatus) -> (!a, !MapAction SectionStatus)
onClick clck (m, _) = (m, clck)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment