+(defcfun gtk-text-view-get-line-at-y :void
+ (text-view (g-object text-view))
+ (target-iter (g-boxed-foreign text-iter))
+ (y :int)
+ (line-top (:pointer :int)))
+
+(defun text-view-get-line-at-y (text-view y)
+ (let ((iter (make-instance 'text-iter)))
+ (with-foreign-object (line-top :int)
+ (gtk-text-view-get-line-at-y text-view iter y line-top)
+ (values iter (mem-ref line-top :int)))))
+
+(export 'text-view-get-line-at-y)
+
+(defcfun gtk-text-view-get-line-yrange :void
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (y (:pointer :int))
+ (height (:pointer :int)))
+
+(defun text-view-get-line-yrange (text-view iter)
+ (with-foreign-objects ((y :int) (height :int))
+ (gtk-text-view-get-line-yrange text-view iter y height)
+ (values (mem-ref y :int) (mem-ref height :int))))
+
+(export 'text-view-get-line-yrange)
+
+(defcfun gtk-text-view-get-iter-at-location :void
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (x :int)
+ (y :int))
+
+(defun text-view-get-iter-at-location (view x y)
+ (let ((iter (make-instance 'text-iter)))
+ (gtk-text-view-get-iter-at-location view iter x y)
+ iter))
+
+(export 'text-view-get-iter-at-location)
+
+(defcfun gtk-text-view-get-iter-at-position :void
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (trailing (:pointer :int))
+ (x :int)
+ (y :int))
+
+(defun text-view-get-iter-at-position (text-view x y)
+ (with-foreign-object (trailing :int)
+ (let ((iter (make-instance 'text-iter)))
+ (gtk-text-view-get-iter-at-position text-view iter trailing x y)
+ (values iter (mem-ref trailing :int)))))
+
+(export 'text-view-get-iter-at-position)
+
+(defcfun gtk-text-view-buffer-to-window-coords :void
+ (text-view (g-object text-view))
+ (win text-window-type)
+ (buffer-x :int)
+ (buffer-y :int)
+ (window-x (:pointer :int))
+ (window-y (:pointer :int)))
+
+(defun text-view-buffer-to-window-coords (text-view window-type buffer-x buffer-y)
+ (with-foreign-objects ((window-x :int) (window-y :int))
+ (gtk-text-view-buffer-to-window-coords text-view window-type buffer-x buffer-y window-x window-y)
+ (values (mem-ref window-x :int) (mem-ref window-y :int))))
+
+(export 'text-view-buffer-to-window-coords)
+
+(defcfun gtk-text-view-window-to-buffer-coords :void
+ (text-view (g-object text-view))
+ (win text-window-type)
+ (window-x :int)
+ (window-y :int)
+ (buffer-x :pointer)
+ (buffer-y :pointer))
+
+(defun text-view-window-to-buffer-coords (text-view win window-x window-y)
+ (with-foreign-objects ((buffer-x :int) (buffer-y :int))
+ (gtk-text-view-window-to-buffer-coords text-view win window-x window-y buffer-x buffer-y)
+ (values (mem-ref buffer-x :int)
+ (mem-ref buffer-y :int))))
+
+(export 'text-view-window-to-buffer-coords)
+
+(defcfun gtk-text-view-get-window (g-object gdk:gdk-window)
+ (text-view (g-object text-view))
+ (win text-window-type))
+
+(defun text-view-get-window (text-view win)
+ (gtk-text-view-get-window text-view win))
+
+(export 'text-view-get-window)
+
+(defcfun (text-view-get-window-type "gtk_text_view_get_window_type") text-window-type
+ (text-view (g-object text-view))
+ (window (g-object gdk-window)))
+
+(export 'text-view-get-window-type)
+
+(defcfun gtk-text-view-set-border-window-size :void
+ (text-view (g-object text-view))
+ (window-type text-window-type)
+ (size :int))
+
+(defcfun (text-view-border-window-size "gtk_text_view_get_border_window_size") :int
+ (text-view (g-object text-view))
+ (window-type text-window-type))
+
+(defun (setf text-view-border-window-size) (new-value text-view window-type)
+ (gtk-text-view-set-border-window-size text-view window-type new-value)
+ new-value)
+
+(export 'text-view-border-window-size)
+
+(defcfun (text-view-forward-display-line "gtk_text_view_forward_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-forward-display-line)
+
+(defcfun (text-view-backward-display-line "gtk_text_view_backward_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-backward-display-line)
+
+(defcfun (text-view-forward-display-line-end "gtk_text_view_forward_display_line_end") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-forward-display-line-end)
+
+(defcfun (text-view-backward-display-line-start "gtk_text_view_backward_display_line_start") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-backward-display-line-start)
+
+(defcfun (text-view-starts-display-line "gtk_text_view_starts_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-starts-display-line)
+
+(defcfun (text-view-move-visually "gtk_text_view_move_visually") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (count :int))
+
+(export 'text-view-move-visually)
+
+(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)
+
+(defcfun (text-child-anchor-widgets "gtk_text_child_anchor_get_widgets") (glist (g-object widget) :free-from-foreign t)
+ (anchor (g-object text-child-anchor)))
+
+(export 'text-child-anchor-widgets)
+
+(defcfun (text-view-add-child-in-window "gtk_text_view_add_child_in_window") :void
+ (text-view (g-object text-view))
+ (child (g-object widget))
+ (which-window text-window-type)
+ (x-pos :int)
+ (y-pos :int))
+
+(export 'text-view-add-child-in-window)
+
+(defcfun (text-view-move-child "gtk_text_view_move_child") :void
+ (text-view (g-object text-view))
+ (child (g-object widget))
+ (x-pos :int)
+ (y-pos :int))