 
 -- * Types
   VteTerminal,
---  VteLiteClass,
---  castToVteLite,
---  toVteLite,
+  VteLiteClass,
 
 -- * Constructors
   vteLiteNew,

  vteLiteSetMouseAutoHide,
  vteLiteBeginAppOutput,
  vteLiteFinishAppOutput,
--  vteLiteFeed,

-- * Signals
--  onLineReceived
  ) where

import Control.Monad	(liftM)

  {# call vte_terminal_finish_app_output #}
    (toVteLite terminal)

vteLiteFeed terminal input =
  withUTFString input $ \inputPtr ->
  {# call vte_terminal_feed #}
    (toVteLite terminal)
    inputPtr
    (fromIntegral (length input))

onLineReceived :: VteLiteClass t => t
  -> (String -> IO ())
  -> IO (ConnectId t)
onLineReceived = connect_STRING__NONE "line-received" False

