(export 'text-buffer)
-(defcfun (text-buffer-tag-table "gtk_text_buffer_get_tag_table") (g-object text-tag-table)
- (buffer (g-object text-buffer)))
-
-(export 'text-buffer-tag-table)
-
(defcfun gtk-text-buffer-insert :void
(buffer (g-object text-buffer))
(iter (g-boxed-ref text-iter))
(assert (typep position '(or text-iter (member :cursor))))
(if interactive
(if (eq position :cursor)
- (gtk-text-buffer-insert-interactive-at-cursor buffer text (length text) default-editable)
- (gtk-text-buffer-insert-interactive buffer position text (length text) default-editable))
+ (gtk-text-buffer-insert-interactive-at-cursor buffer text -1 default-editable)
+ (gtk-text-buffer-insert-interactive buffer position text -1 default-editable))
(progn (if (eq position :cursor)
- (gtk-text-buffer-insert-at-cursor buffer text (length text))
- (gtk-text-buffer-insert buffer position text (length text)))
+ (gtk-text-buffer-insert-at-cursor buffer text -1)
+ (gtk-text-buffer-insert buffer position text -1))
t)))
(export 'text-buffer-insert)