libraries/Graphics/Input.elm · elk

on bb2f028 help sign in

53 lines 1.6 kB history raw

2module Graphics.Input where

4import Signal (lift)

5import Native.Graphics.Input as N

7id x = x

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

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

12button txt =

13 let pool = N.buttons ()

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

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

17 events : Signal a }

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

20customButton up hover down =

21 let pool = N.customButtons ()

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

24checkboxes : a -> { box : (Bool -> a) -> Bool -> Element, events : Signal a }

26checkbox : Bool -> (Signal Element, Signal Bool)

27checkbox b =

28 let cbs = N.checkboxes b

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

31type FieldState = { string:String, start:Int, end:Int }

33fields : a -> { field : (FieldState -> a) -> String -> FieldState -> Element,

34 events : Signal a }

36empty = { string="", start=0, end=0 }

38field : String -> (Signal Element, Signal FieldState)

39field placeHolder =

40 let tfs = N.fields empty

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

43password : String -> (Signal Element, Signal FieldState)

44password placeHolder =

45 let tfs = N.passwords empty

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

48email : String -> (Signal Element, Signal FieldState)

49email placeHolder =

50 let tfs = N.emails empty

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

53-- file?