fix function names in gtk.demo, add widget style properties
[cl-gtk2.git] / gtk / gtk.text.lisp
index 10a994a..5c16cdd 100644 (file)
 
 (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)