 
 import Graphics.UI.Gtk.Abstract.Object	(makeNewObject)
 {#import Graphics.UI.Gtk.Types#}
+{#import Graphics.UI.Gtk.Signals#}
 import System.Glib.FFI
 import System.Glib.UTFString
 

  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

