-;; GtkTextWindowType gtk_text_view_get_window_type (GtkTextView *text_view,
-;; GdkWindow *window);
-;; void gtk_text_view_set_border_window_size
-;; (GtkTextView *text_view,
-;; GtkTextWindowType type,
-;; gint size);
-;; gint gtk_text_view_get_border_window_size
-;; (GtkTextView *text_view,
-;; GtkTextWindowType type);
-;; gboolean gtk_text_view_forward_display_line (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_backward_display_line (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_forward_display_line_end
-;; (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_backward_display_line_start
-;; (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_starts_display_line (GtkTextView *text_view,
-;; const GtkTextIter *iter);
-;; gboolean gtk_text_view_move_visually (GtkTextView *text_view,
-;; GtkTextIter *iter,
-;; gint count);
-;; void gtk_text_view_add_child_at_anchor (GtkTextView *text_view,
-;; GtkWidget *child,
-;; GtkTextChildAnchor *anchor);
+(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)