rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-09-11 06:55:42 +03:00
Code Issues Projects Releases Wiki Activity

Move findElementsByPosition

Browse Source
This commit is contained in:
Robbie Gleichman 2020-08-09 14:08:56 -07:00
parent f58cebe4cd
commit 9fd3203c10
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gui/Main.hs
View File

@ -125,6 +125,19 @@ updateBackground _canvas state = do
setSourceRGB 1 0 0
traverse drawNode (_asElements stateVal)
findElementByPosition :: IntMap.IntMap Element -> (Double, Double) -> Maybe (Int)
findElementByPosition elements (mouseX, mouseY) =
let
mouseInElement (_elementId, Element{_elPosition, _elSize}) =
let
(x, y) = _elPosition
(width, height) = _elSize
in
mouseX >= x && mouseX <= (x + width) &&
mouseY >= y && mouseY <= (y + height)
in
fst <$> find mouseInElement (IntMap.toList elements)
startApp :: Gtk.Application -> IO ()
startApp app = do
state <- newIORef emptyAppState
@ -251,19 +264,6 @@ startApp app = do
#showAll window
pure ()
findElementByPosition :: IntMap.IntMap Element -> (Double, Double) -> Maybe (Int)
findElementByPosition elements (mouseX, mouseY) =
let
mouseInElement (_elementId, Element{_elPosition, _elSize}) =
let
(x, y) = _elPosition
(width, height) = _elSize
in
mouseX >= x && mouseX <= (x + width) &&
mouseY >= y && mouseY <= (y + height)
in
fst <$> find mouseInElement (IntMap.toList elements)
main :: IO ()
main = do
app <- new Gtk.Application []