 --          
 --  Created: 23 February 2002
 --
---  Version $Revision: 1.2 $ from $Date: 2002/05/24 09:43:25 $
+--  Version $Revision: 1.3 $ from $Date: 2002/06/13 23:03:12 $
 --
 --  This file is free software; you can redistribute it and/or modify
 --  it under the terms of the GNU General Public License as published by

-- * Pictures (and other objects) are represented by 0xFFFC.
--
textIterGetVisibleSlice :: TextIter -> TextIter -> IO String
textIterGetVisibleSlice end start = do
  cStr <- {#call text_iter_get_visible_slice#} start end
  str <- peekCString cStr
  {#call unsafe g_free#} (castPtr cStr)

-- * Pictures (and other objects) are stripped form the output.
--
textIterGetText :: TextIter -> TextIter -> IO String
textIterGetText start end = do
  cStr <- {#call text_iter_get_text#} start end
  str <- peekCString cStr
  {#call unsafe g_free#} (castPtr cStr)
