objDemoInput.elm

import Graphics.Input (Input, input, dropDown)
import Text

main : Signal Element
main = lift display style.signal

style : Input String
style = input <| snd <| head colorOptions

display : String -> Element
display s =
  let msg = toText "Choose a style for the following text: " in
   flow down [  dropDown style.handle colorOptions, plainText s]
            

colorOptions : [(String, String)]
colorOptions = [ ("black"    , "black.jpg")
          , ("orange", "orange.jpg")
          , ("grid", "grid.jpg")
          , ("stripes", "stripes.jpg")
          , ("camo", "camo.jpg")
          , ("brick", "brick.jpg")

          ]