From: Axel S. <as...@us...> - 2005-12-07 12:57:46
|
Update of /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Multiline In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16299/gtk/Graphics/UI/Gtk/Multiline Modified Files: TextBuffer.chs.pp Log Message: Added onInsertText to the Editable interface. Added a new callback for that and function to block and unblock signals. Renamed onInsertText in TextBuffer since it clashed. Index: TextBuffer.chs.pp =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/gtk/Graphics/UI/Gtk/Multiline/TextBuffer.chs.pp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- TextBuffer.chs.pp 26 Nov 2005 16:00:22 -0000 1.12 +++ TextBuffer.chs.pp 7 Dec 2005 12:57:37 -0000 1.13 @@ -162,8 +162,8 @@ afterEndUserAction, onInsertPixbuf, afterInsertPixbuf, - onInsertText, - afterInsertText, + onBufferInsertText, + afterBufferInsertText, onMarkDeleted, afterMarkDeleted, onMarkSet, @@ -468,7 +468,7 @@ -> Bool -- ^ @leftGravity@ - whether the mark has left gravity -> IO TextMark -- ^ returns the new 'TextMark' object textBufferCreateMark self markName where_ leftGravity = - constructNewGObject mkTextMark $ + makeNewGObject mkTextMark $ maybeWith withUTFString markName $ \markNamePtr -> {# call text_buffer_create_mark #} (toTextBuffer self) @@ -1054,15 +1054,15 @@ -- | Some text was inserted. -- -onInsertText, afterInsertText :: TextBufferClass self => self +onBufferInsertText, afterBufferInsertText :: TextBufferClass self => self -> (TextIter -> String -> IO ()) -> IO (ConnectId self) -onInsertText self user = +onBufferInsertText self user = connect_BOXED_PTR_INT__NONE "insert_text" mkTextIterCopy False self $ \iter strP strLen -> do str <- peekUTFStringLen (strP,strLen) user iter str -afterInsertText self user = +afterBufferInsertText self user = connect_BOXED_PTR_INT__NONE "insert_text" mkTextIterCopy True self $ \iter strP strLen -> do str <- peekUTFStringLen (strP,strLen) |