diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-21 13:48:31 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-21 14:07:49 +0530 |
| commit | 217f38ad33811c88c63ff4c0be387e67fb0cd68a (patch) | |
| tree | afba4f4578aeaa1f296d6998b7bb32328e5dc2b4 /specs/Mock.hs | |
| parent | a2a8e8dd046678816c3797cb894b20abfe84e360 (diff) | |
| download | chelleport-217f38ad33811c88c63ff4c0be387e67fb0cd68a.tar.gz chelleport-217f38ad33811c88c63ff4c0be387e67fb0cd68a.zip | |
Add C-v to drag n drop within the grid
Diffstat (limited to '')
| -rw-r--r-- | specs/Mock.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/specs/Mock.hs b/specs/Mock.hs index 5644a06..c44aff3 100644 --- a/specs/Mock.hs +++ b/specs/Mock.hs @@ -17,10 +17,10 @@ data Call | CallDrawText (CInt, CInt) Color Text | CallGetMousePointerPosition | CallHideWindow - | CallMouseButtonDown - | CallMouseButtonUp + | CallPressMouseButton + | CallReleaseMouseButton | CallMoveMousePosition CInt CInt - | CallPressMouseButton MouseButtonType + | CallClickMouseButton MouseButtonType | CallSetDrawColor Color | CallShowWindow | CallShutdownApp @@ -45,11 +45,11 @@ newtype TestM m a = TestM {runTestM :: StateT MockCalls m a} deriving (Functor, Applicative, Monad, MonadIO, MonadState MockCalls) instance (MonadIO m) => MonadControl (TestM m) where - pressMouseButton btn = registerMockCall $ CallPressMouseButton btn + clickMouseButton btn = registerMockCall $ CallClickMouseButton btn moveMousePointer x y = registerMockCall $ CallMoveMousePosition x y getMousePointerPosition = (42, 42) <$ registerMockCall CallGetMousePointerPosition - mouseButtonDown = registerMockCall CallMouseButtonDown - mouseButtonUp = registerMockCall CallMouseButtonUp + pressMouseButton = registerMockCall CallPressMouseButton + releaseMouseButton = registerMockCall CallReleaseMouseButton mockWindowWidth :: CInt mockWindowWidth = 1920 |