makeDescription :: IO ()
makeDescription = do
  description <- textDisplayNew (toRectangle (30,35,478,90)) Nothing
  setLabel description "Reflex Host Example"
  setBox description NoBox
  setLabelfont description helveticaBold
  setWhen description [WhenNever]
  setTextfont description courier
  setTextsize description (FontSize 12)
  wrapMode description WrapAtBounds
  dBuffer <- textBufferNew Nothing Nothing
  setText dBuffer "\n\nThis is a port of the 'host' example that ships with 'try-reflex'.\n\nType anywhere and the accumulated output will show up below."
  setBuffer description (Just dBuffer)
makeDescription :: IO ()
makeDescription = do
  description <- textDisplayNew (toRectangle (30,35,478,90)) Nothing
  setLabel description "Reflex Host Example"
  setBox description NoBox
  setLabelfont description helveticaBold
  setWhen description [WhenNever]
  setTextfont description courier
  setTextsize description (FontSize 12)
  wrapMode description WrapAtBounds
  dBuffer <- textBufferNew Nothing Nothing
  setText dBuffer "\n\nThis is a port of the 'host' example that ships with 'try-reflex'.\n\nType anywhere and the accumulated output will show up below."
  setBuffer description (Just dBuffer)
makeDescription = do
  description <- textDisplayNew (toRectangle (30,35,478,90)) Nothing
  setLabel description "Reflex Host Example"
  setBox description NoBox
  setLabelfont description helveticaBold
  setWhen description [WhenNever]
  setTextfont description courier
  setTextsize description (FontSize 12)
  wrapMode description WrapAtBounds
  dBuffer <- textBufferNew Nothing Nothing
  setText dBuffer "\n\nThis is a port of the 'host' example that ships with 'try-reflex'.\n\nType anywhere and the accumulated output will show up below."
  setBuffer description (Just dBuffer)