(gobject:define-vtable ("GtkTextView" text-view)
  ;; Parent class
  (:skip parent-instance (:struct gtk:widget-class))
  ;; Virtual functions
  (move-cursor        (:void
                       (textview (g:object gtk:text-view))
                       (step gtk:movement-step)
                       (count :int)
                       (extend-selection :boolean)))
  (set-anchor         (:void (textview (g:object gtk:text-view))))
  (insert-at-cursor   (:void
                       (textview (g:object gtk:text-view))
                       (str :string)))
  (delete-from-cursor (:void
                       (textview (g:object gtk:text-view))
                       (type gtk:delete-type)
                       (count :int)))
  (backspace          (:void (textview (g:object gtk:text-view))))
  (cut-clipboard      (:void (textview (g:object gtk:text-view))))
  (copy-clipboard     (:void (textview (g:object gtk:text-view))))
  (paste-clipboard    (:void (textview (g:object gtk:text-view))))
  (toggle-overwrite   (:void (textview (g:object gtk:text-view))))
  (create-buffer     ((g:object gtk:text-buffer)
                      (textview (g:object gtk:text-view))))
  (snapshot-layer    (:void
                      (textview (g:object gtk:text-view))
                      (layer gtk:text-view-layer)
                      (snapshot (g:object gtk:snapshot))))
  (extend-selection  (:boolean
                      (textview (g:object gtk:text-view))
                      (granularity gtk:text-extend-selection)
                      (location (g:boxed gtk:iter))
                      (start (g:boxed gtk:iter))
                      (end (g:boxed gtk:iter))))
  (insert-emoji      (:void (text-view (g:object gtk:text-view)))))