Fixed function names in gtk, removed duplicated function defintions in gtk

[cl-gtk2.git] / gtk / gtk.text.lisp

diff --git a/gtk/gtk.text.lisp b/gtk/gtk.text.lisp
index 5c16cdd..b697e10 100644 (file)
--- a/gtk/gtk.text.lisp
+++ b/gtk/gtk.text.lisp
@@ -675,7 +675,8 @@
 (defun text-buffer-get-bounds (buffer)
   (let ((start (make-instance 'text-iter))
         (end (make-instance 'text-iter)))
-    (gtk-text-buffer-get-bounds buffer start end)))
+    (gtk-text-buffer-get-bounds buffer start end)
+    (values start end)))
 
 (export 'text-buffer-get-bounds)
 
@@ -830,18 +831,6 @@
 
 ;; text tag
 
-(defcfun (text-tag-priority "gtk_text_tag_get_priority") :int
-  (tag (g-object text-tag)))
-
-(defcfun gtk-text-tag-set-priority :void
-  (tag (g-object text-tag))
-  (priority :int))
-
-(defun (setf text-tag-priority) (new-value tag)
-  (gtk-text-tag-set-priority tag new-value))
-
-(export 'text-tag-priority)
-
 ;; text tag table
 
 (defcallback gtk-text-tag-table-foreach-function :void ((tag (g-object text-tag)) (data :pointer))
@@ -1002,6 +991,14 @@
 ;; void                gtk_text_view_add_child_at_anchor   (GtkTextView *text_view,
 ;;                                                          GtkWidget *child,
 ;;                                                          GtkTextChildAnchor *anchor);
+
+(defcfun (text-view-add-child-at-anchor "gtk_text_view_add_child_at_anchor") :void
+  (text-view g-object)
+  (child g-object)
+  (anchor g-object))
+
+(export 'text-view-add-child-at-anchor)
+
 ;;                     GtkTextChildAnchor;
 ;; GtkTextChildAnchor* gtk_text_child_anchor_new           (void);
 ;; GList*              gtk_text_child_anchor_get_widgets   (GtkTextChildAnchor *anchor);