libraries/Graphics/Input.elm · elk

on b930ac2 help sign in

45 lines 1.3 kB history raw

2module Graphics.Input where

4import Native.Graphics.Input as N

6buttons : a -> { button : a -> String -> Element, events : Signal a }

8button : String -> (Element, Signal ())

9button txt =

10 let pool = N.buttons ()

11 in (pool.button () txt, pool.events)

13customButtons : a -> { button : a -> Element -> Element -> Element -> Element,

14 events : Signal a }

16customButton : Element -> Element -> Element -> (Element, Signal ())

17customButton up hover down =

18 let pool = N.customButtons ()

19 in (pool.button () up hover down, pool.events)

21checkBoxes : a -> { box : (Bool -> a) -> Bool -> Element, events : Signal a }

23checkBox : Bool -> (Signal Element, Signal Bool)

24checkBox b =

25 let cbs = N.checkBoxes b

26 in (lift (cbs.box id) cbs.events, cbs.events)

28type TextState = {

29 input : String,

30 start : Int,

31 end : Int

34textFields : a -> { field : (TextState -> a) -> String -> TextState -> Element,

35 events : Signal a }

37textField : String -> TextState -> (Signal Element, Signal TextState)

38textField placeHolder textState =

39 let tfs = N.textFields textState

40 in (lift (tfs.field id placeHolder) tfs.events, tfs.events)

42password : String -> TextState -> (Signal Element, Signal TextState)

43email : String -> TextState -> (Signal Element, Signal TextState)

45-- file?