makeOutput :: IO (FL.Ref TextBuffer, FL.Ref TextDisplay)
makeOutput = do
  o <- textDisplayNew (toRectangle (30,144,478,236)) Nothing
  setLabel o "Output:"
  setBox o BorderFrame
  setTextfont o courier
  setTextsize o (FontSize 12)
  setWhen o [WhenNever]
  b <- textBufferNew Nothing Nothing
  setBuffer o (Just b)
  return (b,o)
makeOutput :: IO (FL.Ref TextBuffer, FL.Ref TextDisplay)
makeOutput = do
  o <- textDisplayNew (toRectangle (30,144,478,236)) Nothing
  setLabel o "Output:"
  setBox o BorderFrame
  setTextfont o courier
  setTextsize o (FontSize 12)
  setWhen o [WhenNever]
  b <- textBufferNew Nothing Nothing
  setBuffer o (Just b)
  return (b,o)
makeOutput = do
  o <- textDisplayNew (toRectangle (30,144,478,236)) Nothing
  setLabel o "Output:"
  setBox o BorderFrame
  setTextfont o courier
  setTextsize o (FontSize 12)
  setWhen o [WhenNever]
  b <- textBufferNew Nothing Nothing
  setBuffer o (Just b)
  return (b,o)