TickItem in action

To create a TickItem, use tickItem function giving the label picture to use:

tickItem :: Picture -> Component (TickItem, DisplayHandle)

ls = ["Tic","Tac","Toe"]

main =
 wopen [] 
 (\dc ->
   mapIO (\str -> tickItem (text str) dc) ls >>= \ ds ->
   return ((), vbox (map (snd) ds)))         >>
 return ()