gtk/gtk.text.lisp

   1 (in-package :gtk)
   2
   3 ;; text iter
   4
   5
   6 (define-foreign-type unichar ()
   7   ()
   8   (:actual-type :uint32)
   9   (:simple-parser unichar))
  10
  11 (defmethod translate-from-foreign (value (type unichar))
  12   (code-char value))
  13
  14 (defmethod translate-to-foreign (value (type unichar))
  15   (char-code value))
  16
  17 (define-g-boxed-ref "GtkTextIter" text-iter
  18   (:free-function gtk-text-iter-free)
  19   (:alloc-function gtk-text-iter-alloc)
  20   (:slots (text-iter-buffer :reader "gtk_text_iter_get_buffer" :type (g-object text-buffer))
  21           (text-iter-offset :reader "gtk_text_iter_get_offset" :writer "gtk_text_iter_set_offset" :type :int)
  22           (text-iter-line :reader "gtk_text_iter_get_line" :writer "gtk_text_iter_set_line" :type :int)
  23           (text-iter-line-offset :reader "gtk_text_iter_get_line_offset" :writer "gtk_text_iter_set_line_offset" :type :int)
  24           (text-iter-visible-line-offset :reader "gtk_text_iter_get_visible_line_offset" :writer "gtk_text_iter_set_visible_line_offset" :type :int)
  25           (text-iter-char :reader "gtk_text_iter_get_char" :type unichar)
  26           (text-iter-pixbuf :reader "gtk_text_iter_get_pixbuf" :type (g-object pixbuf))
  27           (text-iter-marks :reader "gtk_text_iter_get_marks" :type (gslist (g-object text-mark) :free-from-foreign t))
  28           (text-iter-child-anchor :reader "gtk_text_iter_get_child_anchor" :type (g-object text-child-anchor))
  29           (text-iter-tags :reader "gtk_text_iter_get_tags" :type (gslist (g-object text-mark) :free-from-foreign t))
  30           (text-iter-chars-in-line :reader "gtk_text_iter_get_chars_in_line" :type :int)
  31           (text-iter-language :reader "gtk_text_iter_get_language" :type :pointer)
  32           (text-iter-is-end :reader "gtk_text_iter_is_end" :type :boolean)
  33           (text-iter-is-start :reader "gtk_text_iter_is_start" :type :boolean)
  34           (text-iter-can-insert :reader "gtk_text_iter_can_insert" :type :boolean)
  35           (text-iter-starts-word :reader "gtk_text_iter_starts_word" :type :boolean)
  36           (text-iter-ends-word :reader "gtk_text_iter_ends_word" :type :boolean)
  37           (text-iter-inside-word :reader "gtk_text_iter_inside_word" :type :boolean)
  38           (text-iter-starts-line :reader "gtk_text_iter_starts_line" :type :boolean)
  39           (text-iter-ends-line :reader "gtk_text_iter_ends_line" :type :boolean)
  40           (text-iter-starts-sentence :reader "gtk_text_iter_starts_sentence" :type :boolean)
  41           (text-iter-ends-sentence :reader "gtk_text_iter_ends_sentence" :type :boolean)
  42           (text-iter-inside-sentence :reader "gtk_text_iter_inside_sentence" :type :boolean)
  43           (text-iter-is-cursor-position :reader "gtk_text_iter_is_cursor_position" :type :boolean)
  44           ))
  45 (export '(text-iter text-iter-offset text-iter-line text-iter-line-offset text-iter-visible-line-offset text-iter-char text-iter-pixbuf text-iter-marks text-iter-toggled-tags text-iter-child-anchor text-iter-tags text-iter-chars-in-line text-iter-language))
  46
  47 (defcstruct %text-iter
  48   (dummy1 :pointer)
  49   (dummy2 :pointer)
  50   (dummy3 :int)
  51   (dummy4 :int)
  52   (dummy5 :int)
  53   (dummy6 :int)
  54   (dummy7 :int)
  55   (dummy8 :int)
  56   (dummy9 :pointer)
  57   (dummy10 :pointer)
  58   (dummy11 :int)
  59   (dummy12 :int)
  60   (dummy13 :int)
  61   (dummy14 :pointer))
  62
  63 (defcfun gtk-text-iter-copy :pointer
  64   (iter :pointer))
  65
  66 (defcfun gtk-text-iter-free :void
  67   (iter :pointer))
  68
  69 (defun gtk-text-iter-alloc ()
  70   (with-foreign-object (iter '%text-iter)
  71     (gtk-text-iter-copy iter)))
  72
  73 (defcfun (text-iter-slice "gtk_text_iter_get_slice") (:string :free-from-foreign t)
  74   (start (g-boxed-ref text-iter))
  75   (end (g-boxed-ref text-iter)))
  76
  77 (export 'text-iter-slice)
  78
  79 (defcfun (text-iter-text "gtk_text_iter_get_text") (:string :free-from-foreign t)
  80   (start (g-boxed-ref text-iter))
  81   (end (g-boxed-ref text-iter)))
  82
  83 (export 'text-iter-text)
  84
  85 (defcfun (text-iter-visible-slice "gtk_text_iter_get_visible_slice") (:string :free-from-foreign t)
  86   (start (g-boxed-ref text-iter))
  87   (end (g-boxed-ref text-iter)))
  88
  89 (export 'text-iter-visible-slice)
  90
  91 (defcfun (text-iter-visible-text "gtk_text_iter_get_visible_text") (:string :free-from-foreign t)
  92   (start (g-boxed-ref text-iter))
  93   (end (g-boxed-ref text-iter)))
  94
  95 (export 'text-iter-visible-text)
  96
  97 (defcfun (text-iter-toggled-tags "gtk_text_iter_get_toggled_tags") (gslist (g-object text-tag))
  98   (iter (g-boxed-ref text-iter))
  99   (toggled-on :boolean))
 100
 101 (export 'text-iter-toggled-tags)
 102
 103 (defcfun (text-iter-begins-tag "gtk_text_iter_begins_tag") :boolean
 104   (iter (g-boxed-ref text-iter))
 105   (tag (g-object text-tag)))
 106
 107 (export 'text-iter-begins-tag)
 108
 109 (defcfun (text-iter-ends-tag "gtk_text_iter_ends_tag") :boolean
 110   (iter (g-boxed-ref text-iter))
 111   (tag (g-object text-tag)))
 112
 113 (export 'text-iter-ends-tag)
 114
 115 (defcfun (text-iter-toggles-tag "gtk_text_iter_toggles_tag") :boolean
 116   (iter (g-boxed-ref text-iter))
 117   (tag (g-object text-tag)))
 118
 119 (export 'text-iter-toggles-tag)
 120
 121 (defcfun (text-iter-has-tag "gtk_text_iter_has_tag") :boolean
 122   (iter (g-boxed-ref text-iter))
 123   (tag (g-object text-tag)))
 124
 125 (export 'text-iter-has-tag)
 126
 127 (defcfun (text-iter-editable "gtk_text_iter_editable") :boolean
 128   (iter (g-boxed-ref text-iter))
 129   (default :boolean))
 130
 131 (export 'text-iter-editable)
 132
 133 (defcfun gtk-text-iter-get-attributes :boolean
 134   (iter (g-boxed-ref text-iter))
 135   (values (g-object text-attributes)))
 136
 137 (defun text-iter-attributes (iter default-attributes)
 138   (let ((changed-p (gtk-text-iter-get-attributes iter default-attributes)))
 139     (values default-attributes changed-p)))
 140
 141 (export 'text-iter-attributes)
 142
 143 (defcfun gtk-text-iter-forward-chars :boolean
 144   (iter (g-boxed-ref text-iter))
 145   (count :int))
 146
 147 (defcfun gtk-text-iter-forward-lines :boolean
 148   (iter (g-boxed-ref text-iter))
 149   (count :int))
 150
 151 (defcfun gtk-text-iter-forward-word-ends :boolean
 152   (iter (g-boxed-ref text-iter))
 153   (count :int))
 154
 155 (defcfun gtk-text-iter-backward-word-starts :boolean
 156   (iter (g-boxed-ref text-iter))
 157   (count :int))
 158
 159 (defcfun gtk-text-iter-forward-cursor-positions :boolean
 160   (iter (g-boxed-ref text-iter))
 161   (count :int))
 162
 163 (defcfun gtk-text-iter-forward-sentence-ends :boolean
 164   (iter (g-boxed-ref text-iter))
 165   (count :int))
 166
 167 (defcfun gtk-text-iter-backward-sentence-starts :boolean
 168   (iter (g-boxed-ref text-iter))
 169   (count :int))
 170
 171 (defcfun gtk-text-iter-forward-visible-word-ends :boolean
 172   (iter (g-boxed-ref text-iter))
 173   (count :int))
 174
 175 (defcfun gtk-text-iter-backward-visible-word-starts :boolean
 176   (iter (g-boxed-ref text-iter))
 177   (count :int))
 178
 179 (defcfun gtk-text-iter-forward-visible-cursor-positions :boolean
 180   (iter (g-boxed-ref text-iter))
 181   (count :int))
 182
 183 (defcfun gtk-text-iter-forward-visible-lines :boolean
 184   (iter (g-boxed-ref text-iter))
 185   (count :int))
 186
 187 (defun text-iter-move (iter &key (count 1) (by :char) (direction :forward))
 188   (assert (typep by '(member :char :line :word :cursor-position :sentence :visible-word :visible-line :visible-cursor-position)))
 189   (assert (typep direction '(member :forward :backward)))
 190   (when (and (member by '(:char :ine :cursor-position :visible-line :visible-cursor-position)) (eq direction :backward))
 191     (setf count (- count)))
 192   (ecase by
 193     (:char (gtk-text-iter-forward-chars iter count))
 194     (:line (gtk-text-iter-forward-lines iter count))
 195     (:word (if (eq direction :forward)
 196                (gtk-text-iter-forward-word-ends iter count)
 197                (gtk-text-iter-backward-word-starts iter count)))
 198     (:cursor-position (gtk-text-iter-forward-cursor-positions iter count))
 199     (:sentence (if (eq direction :forward)
 200                    (gtk-text-iter-forward-sentence-ends iter count)
 201                    (gtk-text-iter-backward-sentence-starts iter count)))
 202     (:visible-word (if (eq direction :forward)
 203                        (gtk-text-iter-forward-visible-word-ends iter count)
 204                        (gtk-text-iter-backward-visible-word-starts iter count)))
 205     (:visible-line (gtk-text-iter-forward-visible-lines iter count))
 206     (:visible-cursor-position (gtk-text-iter-forward-visible-cursor-positions iter count))))
 207
 208 (export 'text-iter-move)
 209
 210 (defcfun (text-iter-forward-to-end "gtk_text_iter_forward_to_end") :void
 211   (iter (g-boxed-ref text-iter)))
 212
 213 (export 'text-iter-forward-to-end)
 214
 215 (defcfun (text-iter-forward-to-line-end "gtk_text_iter_forward_to_line_end") :boolean
 216   (iter (g-boxed-ref text-iter)))
 217
 218 (export 'text-iter-forward-to-line-end)
 219
 220 (defcfun (text-iter-forward-to-tag-toggle "gtk_text_iter_forward_to_tag_toggle") :boolean
 221   (iter (g-boxed-ref text-iter))
 222   (tag (g-object text-tag)))
 223
 224 (defcfun (text-iter-backward-to-tag-toggle "gtk_text_iter_backward_to_tag_toggle") :boolean
 225   (iter (g-boxed-ref text-iter))
 226   (tag (g-object text-tag)))
 227
 228 (export '(text-iter-forward-to-tag-toggle text-iter-backward-to-tag-toggle))
 229
 230 (defcallback gtk-text-char-predicate :boolean ((char unichar) (user-data :pointer))
 231   (let ((function (get-stable-pointer-value user-data)))
 232     (funcall function char)))
 233
 234 (defcfun gtk-text-iter-forward-find-char :boolean
 235   (iter (g-boxed-ref text-iter))
 236   (pred :pointer)
 237   (user-data :pointer)
 238   (limit (g-boxed-ref text-iter)))
 239
 240 (defcfun gtk-text-iter-backward-find-char :boolean
 241   (iter (g-boxed-ref text-iter))
 242   (pred :pointer)
 243   (user-data :pointer)
 244   (limit (g-boxed-ref text-iter)))
 245
 246 (defun text-iter-find-char (iter predicate &key limit (direction :forward))
 247   (assert (typep direction '(member :forward :backward)))
 248   (with-stable-pointer (ptr predicate)
 249     (if (eq direction :forward)
 250         (gtk-text-iter-forward-find-char iter (callback gtk-text-char-predicate) ptr limit)
 251         (gtk-text-iter-backward-find-char iter (callback gtk-text-char-predicate) ptr limit))))
 252
 253 (export 'text-iter-find-char)
 254
 255 (defcfun gtk-text-iter-forward-search :boolean
 256   (iter (g-boxed-ref text-iter))
 257   (str (:string :free-to-foreign t))
 258   (flags text-search-flags)
 259   (match-start (g-boxed-ref text-iter))
 260   (match-end (g-boxed-ref text-iter))
 261   (limit (g-boxed-ref text-iter)))
 262
 263 (defcfun gtk-text-iter-backward-search :boolean
 264   (iter (g-boxed-ref text-iter))
 265   (str (:string :free-to-foreign t))
 266   (flags text-search-flags)
 267   (match-start (g-boxed-ref text-iter))
 268   (match-end (g-boxed-ref text-iter))
 269   (limit (g-boxed-ref text-iter)))
 270
 271 (defun text-iter-search (start-position string &key flags limit (direction :forward))
 272   (assert (typep direction '(member :forward :backward)))
 273   (let ((i1 (make-instance 'text-iter))
 274         (i2 (make-instance 'text-iter)))
 275     (if (if (eq direction :forward)
 276             (gtk-text-iter-forward-search start-position string flags i1 i2 limit)
 277             (gtk-text-iter-backward-search start-position string flags i1 i2 limit))
 278         (values t i1 i2)
 279         (progn (release i1)
 280                (release i2)
 281                (values nil nil nil)))))
 282
 283 (export 'text-iter-search)
 284
 285 (defcfun (text-iter-equal "gtk_text_iter_equal") :boolean
 286   (iter-1 (g-boxed-ref text-iter))
 287   (iter-2 (g-boxed-ref text-iter)))
 288
 289 (export 'text-iter-equal)
 290
 291 (defcfun (text-iter-compare "gtk_text_iter_compare") :int
 292   (iter-1 (g-boxed-ref text-iter))
 293   (iter-2 (g-boxed-ref text-iter)))
 294
 295 (export 'text-iter-compare)
 296
 297 (defcfun (text-iter-in-range "gtk_text_iter_in_range") :boolean
 298   (iter (g-boxed-ref text-iter))
 299   (start (g-boxed-ref text-iter))
 300   (end (g-boxed-ref text-iter)))
 301
 302 (export 'text-iter-in-range)
 303
 304 (defcfun (text-iter-order "gtk_text_iter_order") :void
 305   (iter-1 (g-boxed-ref text-iter))
 306   (iter-2 (g-boxed-ref text-iter)))
 307
 308 (export 'text-iter-order)
 309
 310 ;; text mark
 311
 312 (defcfun (text-mark-visible "gtk_text_mark_get_visible") :boolean
 313   (mark (g-object text-mark)))
 314
 315 (defcfun gtk-text-mark-set-visible :void
 316   (mark (g-object text-mark))
 317   (visible :boolean))
 318
 319 (defun (setf text-mark-visible) (new-value mark)
 320   (gtk-text-mark-set-visible mark new-value))
 321
 322 (export 'text-mark-visible)
 323
 324 (defcfun (text-mark-deleted "gtk_text_mark_get_deleted") :boolean
 325   (mark (g-object text-mark)))
 326
 327 (export 'text-mark-deleted)
 328
 329 (defcfun (text-mark-buffer "gtk_text_mark_get_buffer") (g-object text-buffer)
 330   (mark (g-object text-mark)))
 331
 332 (export 'text-mark-buffer)
 333
 334 ;; text buffer
 335
 336 (defcfun (text-buffer-line-count "gtk_text_buffer_get_line_count") :int
 337   (buffer (g-object text-buffer)))
 338
 339 (export 'text-buffer-line-count)
 340
 341 (defcfun (text-buffer-char-count "gtk_text_buffer_get_char_count") :int
 342   (buffer (g-object text-buffer)))
 343
 344 (export 'text-buffer)
 345
 346 (defcfun gtk-text-buffer-insert :void
 347   (buffer (g-object text-buffer))
 348   (iter (g-boxed-ref text-iter))
 349   (text (:string :free-to-foreign t))
 350   (len :int))
 351
 352 (defcfun gtk-text-buffer-insert-at-cursor :void
 353   (buffer (g-object text-buffer))
 354   (text (:string :free-to-foreign t))
 355   (len :int))
 356
 357 (defcfun gtk-text-buffer-insert-interactive :boolean
 358   (buffer (g-object text-buffer))
 359   (iter (g-boxed-ref text-iter))
 360   (text (:string :free-to-foreign t))
 361   (len :int)
 362   (default-editable :boolean))
 363
 364 (defcfun gtk-text-buffer-insert-interactive-at-cursor :boolean
 365   (buffer (g-object text-buffer))
 366   (text (:string :free-to-foreign t))
 367   (len :int)
 368   (default-editable :boolean))
 369
 370 (defun text-buffer-insert (buffer text &key (position :cursor) (interactive nil) (default-editable t))
 371   (assert (typep position '(or text-iter (member :cursor))))
 372   (if interactive
 373       (if (eq position :cursor)
 374           (gtk-text-buffer-insert-interactive-at-cursor buffer text -1 default-editable)
 375           (gtk-text-buffer-insert-interactive buffer position text -1 default-editable))
 376       (progn (if (eq position :cursor)
 377                  (gtk-text-buffer-insert-at-cursor buffer text -1)
 378                  (gtk-text-buffer-insert buffer position text -1))
 379              t)))
 380
 381 (export 'text-buffer-insert)
 382
 383 (defcfun gtk-text-buffer-insert-range :void
 384   (buffer (g-object text-buffer))
 385   (iter (g-boxed-ref text-iter))
 386   (range-start (g-boxed-ref text-iter))
 387   (range-end (g-boxed-ref text-iter)))
 388
 389 (defcfun gtk-text-buffer-insert-range-interactive :boolean
 390   (buffer (g-object text-buffer))
 391   (iter (g-boxed-ref text-iter))
 392   (range-start (g-boxed-ref text-iter))
 393   (range-end (g-boxed-ref text-iter))
 394   (default-editable :boolean))
 395
 396 (defun text-buffer-insert-range (buffer position range-start range-end &key interactive default-editable)
 397   (if interactive
 398       (gtk-text-buffer-insert-range-interactive buffer position range-start range-end default-editable)
 399       (progn (gtk-text-buffer-insert-range buffer position range-start range-end)
 400              t)))
 401
 402 (export 'text-buffer-insert-range)
 403
 404 (defcfun gtk-text-buffer-delete :void
 405   (buffer (g-object text-buffer))
 406   (range-start (g-boxed-ref text-iter))
 407   (range-end (g-boxed-ref text-iter)))
 408
 409 (defcfun gtk-text-buffer-delete-interactive :boolean
 410   (buffer (g-object text-buffer))
 411   (range-start (g-boxed-ref text-iter))
 412   (range-end (g-boxed-ref text-iter))
 413   (default-editable :boolean))
 414
 415 (defun text-buffer-delete (buffer range-start range-end &key interactive default-editable)
 416   (if interactive
 417       (gtk-text-buffer-delete-interactive buffer range-start range-end default-editable)
 418       (progn (gtk-text-buffer-delete buffer range-start range-end)
 419              t)))
 420
 421 (export 'text-buffer-delete)
 422
 423 (defcfun gtk-text-buffer-backspace :boolean
 424   (buffer (g-object text-buffer))
 425   (iter (g-boxed-ref text-iter))
 426   (interactive :boolean)
 427   (default-editable :boolean))
 428
 429 (defun text-buffer-backspace (buffer position &key interactive default-editable)
 430   (gtk-text-buffer-backspace buffer position interactive default-editable))
 431
 432 (export 'text-buffer-backspace)
 433
 434 (defcfun gtk-text-buffer-get-slice (:string :free-from-foreign t)
 435   (buffer (g-object text-buffer))
 436   (range-start (g-boxed-ref text-iter))
 437   (range-end (g-boxed-ref text-iter))
 438   (include-hidden-chars :boolean))
 439
 440 (defun text-buffer-slice (buffer range-start range-end &key include-hidden-chars)
 441   (gtk-text-buffer-get-slice buffer range-start range-end include-hidden-chars))
 442
 443 (export 'text-buffer-slice)
 444
 445 (defcfun (text-buffer-insert-pixbuf "gtk_text_buffer_insert_pixbuf") :void
 446   (buffer (g-object text-buffer))
 447   (position (g-boxed-ref text-iter))
 448   (pixbuf (g-object pixbuf)))
 449
 450 (export 'text-buffer-insert-pixbuf)
 451
 452 (defcfun gtk-text-buffer-insert-child-anchor :void
 453   (buffer (g-object text-buffer))
 454   (iter (g-boxed-ref text-iter))
 455   (anchor (g-object text-child-anchor)))
 456
 457 (defcfun gtk-text-buffer-create-child-anchor (g-object text-child-anchor)
 458   (buffer (g-object text-buffer))
 459   (iter (g-boxed-ref text-iter)))
 460
 461 (defun text-buffer-insert-child-anchor (buffer position &optional anchor)
 462   (if anchor
 463       (progn (gtk-text-buffer-insert-child-anchor buffer position anchor)
 464              anchor)
 465       (gtk-text-buffer-create-child-anchor buffer position)))
 466
 467 (export 'text-buffer-insert-child-anchor)
 468
 469 (defcfun gtk-text-buffer-create-mark (g-object text-mark)
 470   (buffer (g-object text-buffer))
 471   (name (:string :free-to-foreign t))
 472   (position (g-boxed-ref text-iter))
 473   (left-gravity :boolean))
 474
 475 (defun text-buffer-create-mark (buffer name position &optional (left-gravity t))
 476   (gtk-text-buffer-create-mark buffer name position left-gravity))
 477
 478 (export 'text-buffer-create-mark)
 479
 480 (defcfun gtk-text-buffer-move-mark :void
 481   (buffer (g-object text-buffer))
 482   (mark (g-object text-mark))
 483   (position (g-boxed-ref text-iter)))
 484
 485 (defcfun gtk-text-buffer-move-mark-by-name :void
 486   (buffer (g-object text-buffer))
 487   (name (:string :free-to-foreign t))
 488   (position (g-boxed-ref text-iter)))
 489
 490 (defun text-buffer-move-mark (buffer mark position)
 491   (etypecase mark
 492     (string (gtk-text-buffer-move-mark-by-name buffer mark position))
 493     (text-mark (gtk-text-buffer-move-mark buffer mark position))))
 494
 495 (export 'text-buffer-move-mark)
 496
 497 (defcfun (text-buffer-add-mark "gtk_text_buffer_add_mark") :void
 498   (buffer (g-object text-buffer))
 499   (mark (g-object text-mark))
 500   (position (g-boxed-ref text-iter)))
 501
 502 (export 'text-buffer-add-mark)
 503
 504 (defcfun gtk-text-buffer-delete-mark :void
 505   (buffer (g-object text-buffer))
 506   (mark (g-object text-mark)))
 507
 508 (defcfun gtk-text-buffer-delete-mark-by-name :void
 509   (buffer (g-object text-buffer))
 510   (name (:string :free-to-foreign t)))
 511
 512 (defun text-buffer-delete-mark (buffer mark)
 513   (etypecase mark
 514     (string (gtk-text-buffer-delete-mark-by-name buffer mark))
 515     (text-mark (gtk-text-buffer-delete-mark buffer mark))))
 516
 517 (export 'text-buffer-delete-mark)
 518
 519 (defcfun (text-buffer-get-mark "gtk_text_buffer_get_mark") (g-object text-mark)
 520   (buffer (g-object text-buffer))
 521   (name (:string :free-to-foreign t)))
 522
 523 (export 'text-buffer-get-mark)
 524
 525 (defcfun (text-buffer-insertion-mark "gtk_text_buffer_get_insert") (g-object text-mark)
 526   (buffer (g-object text-buffer)))
 527
 528 (export 'text-buffer-insertion-mark)
 529
 530 (defcfun (text-buffer-selection-bound "gtk_text_buffer_get_selection_bound") (g-object text-mark)
 531   (buffer (g-object text-buffer))
 532   (name (:string :free-to-foreign t)))
 533
 534 (export 'text-buffer-selection-bound)
 535
 536 (defcfun (text-buffer-place-cursor "gtk_text_buffer_place_cursor") :void
 537   (buffer (g-object text-buffer))
 538   (position (g-boxed-ref text-iter)))
 539
 540 (export 'text-buffer-place-cursor)
 541
 542 (defcfun (text-buffer-select-range "gtk_text_buffer_select_range") :void
 543   (buffer (g-object text-buffer))
 544   (insertion-point (g-boxed-ref text-iter))
 545   (selection-bound (g-boxed-ref text-iter)))
 546
 547 (export 'text-buffer-select-range)
 548
 549 (defcfun gtk-text-buffer-apply-tag :void
 550   (buffer (g-object text-buffer))
 551   (tag (g-object text-tag))
 552   (start (g-boxed-ref text-iter))
 553   (end (g-boxed-ref text-iter)))
 554
 555 (defcfun gtk-text-buffer-apply-tag-by-name :void
 556   (buffer (g-object text-buffer))
 557   (name (:string :free-to-foreign t))
 558   (start (g-boxed-ref text-iter))
 559   (end (g-boxed-ref text-iter)))
 560
 561 (defun text-buffer-apply-tag (buffer tag start end)
 562   (etypecase tag
 563     (string (gtk-text-buffer-apply-tag-by-name buffer tag start end))
 564     (text-tag (gtk-text-buffer-apply-tag buffer tag start end))))
 565
 566 (export 'text-buffer-apply-tag)
 567
 568 (defcfun gtk-text-buffer-remove-tag :void
 569   (buffer (g-object text-buffer))
 570   (tag (g-object text-tag))
 571   (start (g-boxed-ref text-iter))
 572   (end (g-boxed-ref text-iter)))
 573
 574 (defcfun gtk-text-buffer-remove-tag-by-name :void
 575   (buffer (g-object text-buffer))
 576   (name (:string :free-to-foreign t))
 577   (start (g-boxed-ref text-iter))
 578   (end (g-boxed-ref text-iter)))
 579
 580 (defun text-buffer-remove-tag (buffer tag start end)
 581   (etypecase tag
 582     (string (gtk-text-buffer-remove-tag-by-name buffer tag start end))
 583     (text-tag (gtk-text-buffer-remove-tag buffer tag start end))))
 584
 585 (export 'text-buffer-remove-tag)
 586
 587 (defcfun (text-buffer-remove-all-tags "gtk_text_buffer_remove_all_tags") :void
 588   (buffer (g-object text-buffer))
 589   (start (g-boxed-ref text-iter))
 590   (end (g-boxed-ref text-iter)))
 591
 592 (defcfun gtk-text-buffer-get-iter-at-line-offset :void
 593   (buffer (g-object text-buffer))
 594   (iter (g-boxed-ref text-iter))
 595   (line-number :int)
 596   (char-offset :int))
 597
 598 (defun text-buffer-get-iter-at-line-offset (buffer line-number char-offset)
 599   (aprog1 (make-instance 'text-iter)
 600     (gtk-text-buffer-get-iter-at-line-offset buffer it line-number char-offset)))
 601
 602 (export 'text-buffer-get-iter-at-line-offset)
 603
 604 (defcfun gtk-text-buffer-get-iter-at-offset :void
 605   (buffer (g-object text-buffer))
 606   (iter (g-boxed-ref text-iter))
 607   (char-offset :int))
 608
 609 (defun text-buffer-get-iter-at-offset (buffer offset)
 610   (aprog1 (make-instance 'text-iter)
 611     (gtk-text-buffer-get-iter-at-offset buffer it offset)))
 612
 613 (export 'text-buffer-get-iter-at-offset)
 614
 615 (defcfun gtk-text-buffer-get-iter-at-line :void
 616   (buffer (g-object text-buffer))
 617   (iter (g-boxed-ref text-iter))
 618   (line-number :int))
 619
 620 (defun text-buffer-get-iter-at-line (buffer line-number)
 621   (aprog1 (make-instance 'text-iter)
 622     (gtk-text-buffer-get-iter-at-line buffer it line-number)))
 623
 624 (export 'text-buffet-get-iter-at-line)
 625
 626 (defcfun gtk-text-buffer-get-iter-at-mark :void
 627   (buffer (g-object text-buffer))
 628   (iter (g-boxed-ref text-iter))
 629   (mark (g-object text-mark)))
 630
 631 (defun text-buffer-get-iter-at-mark (buffer mark)
 632   (when (stringp mark)
 633     (setf mark (text-buffer-get-mark buffer mark)))
 634   (aprog1 (make-instance 'text-iter)
 635     (gtk-text-buffer-get-iter-at-mark buffer it mark)))
 636
 637 (export 'text-buffer-get-iter-at-mark)
 638
 639 (defcfun gtk-text-buffer-get-iter-at-child-anchor :void
 640   (buffer (g-object text-buffer))
 641   (iter (g-boxed-ref text-iter))
 642   (anchor (g-object text-child-anchor)))
 643
 644 (defun text-buffer-get-iter-at-child-anchor (buffer anchor)
 645   (aprog1 (make-instance 'text-iter)
 646     (gtk-text-buffer-get-iter-at-child-anchor buffer it anchor)))
 647
 648 (export 'text-buffer-get-iter-at-child-anchor)
 649
 650 (defcfun gtk-text-buffer-get-start-iter :void
 651   (buffer (g-object text-buffer))
 652   (iter (g-boxed-ref text-iter)))
 653
 654 (defun text-buffer-get-start-iter (buffer)
 655   (aprog1 (make-instance 'text-iter)
 656     (gtk-text-buffer-get-start-iter buffer it)))
 657
 658 (export 'text-buffer-get-start-iter)
 659
 660 (defcfun gtk-text-buffer-get-end-iter :void
 661   (buffer (g-object text-buffer))
 662   (iter (g-boxed-ref text-iter)))
 663
 664 (defun text-buffer-get-end-iter (buffer)
 665   (aprog1 (make-instance 'text-iter)
 666     (gtk-text-buffer-get-end-iter buffer it)))
 667
 668 (export 'text-buffer-get-end-iter)
 669
 670 (defcfun gtk-text-buffer-get-bounds :void
 671   (buffer (g-object text-buffer))
 672   (start (g-boxed-ref text-iter))
 673   (end (g-boxed-ref text-iter)))
 674
 675 (defun text-buffer-get-bounds (buffer)
 676   (let ((start (make-instance 'text-iter))
 677         (end (make-instance 'text-iter)))
 678     (gtk-text-buffer-get-bounds buffer start end)
 679     (values start end)))
 680
 681 (export 'text-buffer-get-bounds)
 682
 683 (defcfun gtk-text-buffer-delete-selection :boolean
 684   (bufer (g-object text-buffer))
 685   (interactive :boolean)
 686   (default-editable :boolean))
 687
 688 (defun text-buffer-delete-selection (buffer &key interactive default-editable)
 689   (gtk-text-buffer-delete-selection buffer interactive default-editable))
 690
 691 (export 'text-buffer-delete-selection)
 692
 693 (defcfun gtk-text-buffer-paste-clipboard :void
 694   (buffer (g-object text-buffer))
 695   (clipboard (g-object clipboard))
 696   (override-location (g-boxed-ref text-iter))
 697   (default-editable :boolean))
 698
 699 (defun text-buffer-paste-clipboard (buffer clipboard &key position default-editable)
 700   (gtk-text-buffer-paste-clipboard buffer clipboard position default-editable))
 701
 702 (export 'text-buffer-paste-clipboard)
 703
 704 (defcfun (text-buffer-copy-clipboard "gtk_text_buffer_copy_clipboard") :void
 705   (buffer (g-object text-buffer))
 706   (clipboard (g-object clipboard)))
 707
 708 (export 'text-buffer-copy-clipboard)
 709
 710 (defcfun (text-buffer-cut-clipboard "gtk_text_buffer_cut_clipboard") :void
 711   (buffer (g-object text-buffer))
 712   (clipboard (g-object clipboard)))
 713
 714 (export 'text-buffer-cut-clipboard)
 715
 716 (defcfun gtk-text-buffer-get-selection-bounds :boolean
 717   (buffer (g-object text-buffer))
 718   (start (g-boxed-ref text-iter))
 719   (end (g-boxed-ref text-iter)))
 720
 721 (defun text-buffer-get-selection-bounds (buffer)
 722   (let ((i1 (make-instance 'text-iter))
 723         (i2 (make-instance 'text-iter)))
 724     (if (gtk-text-buffer-get-selection-bounds buffer i1 i2)
 725         (values i1 i2)
 726         (progn (release i1)
 727                (release i2)
 728                (values nil nil)))))
 729
 730 (export 'text-buffer-get-selection-bounds)
 731
 732 (defcfun (text-buffer-begin-user-action "gtk_text_buffer_begin_user_action") :void
 733   (buffer (g-object text-buffer)))
 734
 735 (export 'text-buffer-begin-user-action)
 736
 737 (defcfun (text-buffer-end-user-action "gtk_text_buffer_end_user_action") :void
 738   (buffer (g-object text-buffer)))
 739
 740 (export 'text-buffer-end-user-action)
 741
 742 (defmacro with-text-buffer-user-action ((buffer) &body body)
 743   (let ((g (gensym)))
 744     `(let ((,g ,buffer))
 745        (text-buffer-begin-user-action ,g)
 746        (unwind-protect
 747             (progn ,@body)
 748          (text-buffer-end-user-action ,g)))))
 749
 750 (export 'with-text-buffer-user-action)
 751
 752 (defcfun (text-buffer-add-selection-clipboard "gtk_text_buffer_add_selection_clipboard") :void
 753   (buffer (g-object text-buffer))
 754   (clipboard (g-object clipboard)))
 755
 756 (defcfun (text-buffer-remove-selection-clipboard "gtk_text_buffer_remove_selection_clipboard") :void
 757   (buffer (g-object text-buffer))
 758   (clipboard (g-object clipboard)))
 759
 760 (export 'text-buffer-remove-selection-clipboard)
 761
 762 ;; enum                GtkTextBufferTargetInfo;
 763 ;; gboolean            (*GtkTextBufferDeserializeFunc)     (GtkTextBuffer *register_buffer,
 764 ;;                                                          GtkTextBuffer *content_buffer,
 765 ;;                                                          GtkTextIter *iter,
 766 ;;                                                          const guint8 *data,
 767 ;;                                                          gsize length,
 768 ;;                                                          gboolean create_tags,
 769 ;;                                                          gpointer user_data,
 770 ;;                                                          GError **error);
 771 ;; gboolean            gtk_text_buffer_deserialize         (GtkTextBuffer *register_buffer,
 772 ;;                                                          GtkTextBuffer *content_buffer,
 773 ;;                                                          GdkAtom format,
 774 ;;                                                          GtkTextIter *iter,
 775 ;;                                                          const guint8 *data,
 776 ;;                                                          gsize length,
 777 ;;                                                          GError **error);
 778 ;; gboolean            gtk_text_buffer_deserialize_get_can_create_tags
 779 ;;                                                         (GtkTextBuffer *buffer,
 780 ;;                                                          GdkAtom format);
 781 ;; void                gtk_text_buffer_deserialize_set_can_create_tags
 782 ;;                                                         (GtkTextBuffer *buffer,
 783 ;;                                                          GdkAtom format,
 784 ;;                                                          gboolean can_create_tags);
 785 ;; GtkTargetList*      gtk_text_buffer_get_copy_target_list
 786 ;;                                                         (GtkTextBuffer *buffer);
 787 ;; GdkAtom*            gtk_text_buffer_get_deserialize_formats
 788 ;;                                                         (GtkTextBuffer *buffer,
 789 ;;                                                          gint *n_formats);
 790 ;; GtkTargetList*      gtk_text_buffer_get_paste_target_list
 791 ;;                                                         (GtkTextBuffer *buffer);
 792 ;; GdkAtom*            gtk_text_buffer_get_serialize_formats
 793 ;;                                                         (GtkTextBuffer *buffer,
 794 ;;                                                          gint *n_formats);
 795 ;; GdkAtom             gtk_text_buffer_register_deserialize_format
 796 ;;                                                         (GtkTextBuffer *buffer,
 797 ;;                                                          const gchar *mime_type,
 798 ;;                                                          GtkTextBufferDeserializeFunc function,
 799 ;;                                                          gpointer user_data,
 800 ;;                                                          GDestroyNotify user_data_destroy);
 801 ;; GdkAtom             gtk_text_buffer_register_deserialize_tagset
 802 ;;                                                         (GtkTextBuffer *buffer,
 803 ;;                                                          const gchar *tagset_name);
 804 ;; GdkAtom             gtk_text_buffer_register_serialize_format
 805 ;;                                                         (GtkTextBuffer *buffer,
 806 ;;                                                          const gchar *mime_type,
 807 ;;                                                          GtkTextBufferSerializeFunc function,
 808 ;;                                                          gpointer user_data,
 809 ;;                                                          GDestroyNotify user_data_destroy);
 810 ;; GdkAtom             gtk_text_buffer_register_serialize_tagset
 811 ;;                                                         (GtkTextBuffer *buffer,
 812 ;;                                                          const gchar *tagset_name);
 813 ;; guint8*             (*GtkTextBufferSerializeFunc)       (GtkTextBuffer *register_buffer,
 814 ;;                                                          GtkTextBuffer *content_buffer,
 815 ;;                                                          const GtkTextIter *start,
 816 ;;                                                          const GtkTextIter *end,
 817 ;;                                                          gsize *length,
 818 ;;                                                          gpointer user_data);
 819 ;; guint8*             gtk_text_buffer_serialize           (GtkTextBuffer *register_buffer,
 820 ;;                                                          GtkTextBuffer *content_buffer,
 821 ;;                                                          GdkAtom format,
 822 ;;                                                          const GtkTextIter *start,
 823 ;;                                                          const GtkTextIter *end,
 824 ;;                                                          gsize *length);
 825 ;; void                gtk_text_buffer_unregister_deserialize_format
 826 ;;                                                         (GtkTextBuffer *buffer,
 827 ;;                                                          GdkAtom format);
 828 ;; void                gtk_text_buffer_unregister_serialize_format
 829 ;;                                                         (GtkTextBuffer *buffer,
 830 ;;                                                          GdkAtom format);
 831
 832 ;; text tag
 833
 834 ;; text tag table
 835
 836 (defcallback gtk-text-tag-table-foreach-function :void ((tag (g-object text-tag)) (data :pointer))
 837   (funcall (get-stable-pointer-value data) tag))
 838
 839 (defcfun (text-tag-table-add "gtk_text_tag_table_add") :void
 840   (table (g-object text-tag-table))
 841   (tag (g-object text-tag)))
 842
 843 (export 'text-tag-table-add)
 844
 845 (defcfun (text-tag-table-remove "gtk_text_tag_table_remove") :void
 846   (table (g-object text-tag-table))
 847   (tag (g-object text-tag)))
 848
 849 (export 'text-tag-table-remove)
 850
 851 (defcfun (text-tag-table-lookup "gtk_text_tag_table_lookup") (g-object text-tag)
 852   (table (g-object text-tag-table))
 853   (name (:string :free-to-foreign t)))
 854
 855 (export 'text-tag-table-lookup)
 856
 857 (defcfun gtk-text-tag-table-foreach :void
 858   (table (g-object text-tag-table))
 859   (function :pointer)
 860   (data :pointer))
 861
 862 (defun text-tag-table-foreach (table function)
 863   (with-stable-pointer (ptr function)
 864     (gtk-text-tag-table-foreach table (callback gtk-text-table-foreach-function) ptr)))
 865
 866 (export 'text-tag-table-foreach)
 867
 868 (defcfun (text-tag-table-size "gtk_text_tag_table_get_size") :int
 869   (table (g-object text-tag-table)))
 870
 871 (export 'text-tag-table-size)
 872
 873 ;; text view
 874
 875 (defcfun gtk-text-view-scroll-to-mark :void
 876   (text-view (g-object text-view))
 877   (mark (g-object text-mark))
 878   (within-margin :double)
 879   (use-align :boolean)
 880   (x-align :double)
 881   (y-align :double))
 882
 883 (defun text-view-scroll-to-mark (text-view mark &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
 884   (gtk-text-view-scroll-to-mark text-view mark within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
 885
 886 (export 'text-view-scroll-to-mark)
 887
 888 (defcfun gtk-text-view-scroll-to-iter :void
 889   (text-view (g-object text-view))
 890   (iter (g-object text-iter))
 891   (within-margin :double)
 892   (use-align :boolean)
 893   (x-align :double)
 894   (y-align :double))
 895
 896 (defun text-view-scroll-to-iter (text-view iter &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
 897   (gtk-text-view-scroll-to-iter text-view iter within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
 898
 899 (export 'text-view-scroll-to-iter)
 900
 901 (defcfun (text-view-move-mark-onscreen "gtk_text_view_move_mark_onscreen") :boolean
 902   (text-view (g-object text-view))
 903   (mark (g-object text-mark)))
 904
 905 (export 'text-view-move-mark-onscreen)
 906
 907 (defcfun (text-view-place-cursor-onscreen "gtk_text_view_place_cursor_onscreen") :boolean
 908   (text-view (g-object text-view)))
 909
 910 (export 'text-view-place-cursor-onscreen)
 911
 912 (defcfun gtk-text-view-get-visible-rect :void
 913   (text-view (g-object text-view))
 914   (visible-rect (g-boxed-ptr rectangle :in-out)))
 915
 916 (defun text-view-visible-rect (text-view)
 917   (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
 918     (gtk-text-view-get-visible-rect text-view it)))
 919
 920 (export 'text-view-visible-rect)
 921
 922 (defcfun gtk-text-view-get-iter-location :void
 923   (text-view (g-object text-view))
 924   (iter (g-boxed-ref text-iter))
 925   (location (g-boxed-ptr rectangle :in-out)))
 926
 927 (defun text-view-iter-location (text-view iter)
 928   (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
 929     (gtk-text-view-get-iter-location text-view iter it)))
 930
 931 (export 'text-view-iter-location)
 932
 933
 934 ;; void                gtk_text_view_get_line_at_y         (GtkTextView *text_view,
 935 ;;                                                          GtkTextIter *target_iter,
 936 ;;                                                          gint y,
 937 ;;                                                          gint *line_top);
 938 ;; void                gtk_text_view_get_line_yrange       (GtkTextView *text_view,
 939 ;;                                                          const GtkTextIter *iter,
 940 ;;                                                          gint *y,
 941 ;;                                                          gint *height);
 942 ;; void                gtk_text_view_get_iter_at_location  (GtkTextView *text_view,
 943 ;;                                                          GtkTextIter *iter,
 944 ;;                                                          gint x,
 945 ;;                                                          gint y);
 946 ;; void                gtk_text_view_get_iter_at_position  (GtkTextView *text_view,
 947 ;;                                                          GtkTextIter *iter,
 948 ;;                                                          gint *trailing,
 949 ;;                                                          gint x,
 950 ;;                                                          gint y);
 951 ;; void                gtk_text_view_buffer_to_window_coords
 952 ;;                                                         (GtkTextView *text_view,
 953 ;;                                                          GtkTextWindowType win,
 954 ;;                                                          gint buffer_x,
 955 ;;                                                          gint buffer_y,
 956 ;;                                                          gint *window_x,
 957 ;;                                                          gint *window_y);
 958 ;; void                gtk_text_view_window_to_buffer_coords
 959 ;;                                                         (GtkTextView *text_view,
 960 ;;                                                          GtkTextWindowType win,
 961 ;;                                                          gint window_x,
 962 ;;                                                          gint window_y,
 963 ;;                                                          gint *buffer_x,
 964 ;;                                                          gint *buffer_y);
 965 ;; GdkWindow*          gtk_text_view_get_window            (GtkTextView *text_view,
 966 ;;                                                          GtkTextWindowType win);
 967 ;; GtkTextWindowType   gtk_text_view_get_window_type       (GtkTextView *text_view,
 968 ;;                                                          GdkWindow *window);
 969 ;; void                gtk_text_view_set_border_window_size
 970 ;;                                                         (GtkTextView *text_view,
 971 ;;                                                          GtkTextWindowType type,
 972 ;;                                                          gint size);
 973 ;; gint                gtk_text_view_get_border_window_size
 974 ;;                                                         (GtkTextView *text_view,
 975 ;;                                                          GtkTextWindowType type);
 976 ;; gboolean            gtk_text_view_forward_display_line  (GtkTextView *text_view,
 977 ;;                                                          GtkTextIter *iter);
 978 ;; gboolean            gtk_text_view_backward_display_line (GtkTextView *text_view,
 979 ;;                                                          GtkTextIter *iter);
 980 ;; gboolean            gtk_text_view_forward_display_line_end
 981 ;;                                                         (GtkTextView *text_view,
 982 ;;                                                          GtkTextIter *iter);
 983 ;; gboolean            gtk_text_view_backward_display_line_start
 984 ;;                                                         (GtkTextView *text_view,
 985 ;;                                                          GtkTextIter *iter);
 986 ;; gboolean            gtk_text_view_starts_display_line   (GtkTextView *text_view,
 987 ;;                                                          const GtkTextIter *iter);
 988 ;; gboolean            gtk_text_view_move_visually         (GtkTextView *text_view,
 989 ;;                                                          GtkTextIter *iter,
 990 ;;                                                          gint count);
 991 ;; void                gtk_text_view_add_child_at_anchor   (GtkTextView *text_view,
 992 ;;                                                          GtkWidget *child,
 993 ;;                                                          GtkTextChildAnchor *anchor);
 994 ;;                     GtkTextChildAnchor;
 995 ;; GtkTextChildAnchor* gtk_text_child_anchor_new           (void);
 996 ;; GList*              gtk_text_child_anchor_get_widgets   (GtkTextChildAnchor *anchor);
 997 ;; gboolean            gtk_text_child_anchor_get_deleted   (GtkTextChildAnchor *anchor);
 998 ;; void                gtk_text_view_add_child_in_window   (GtkTextView *text_view,
 999 ;;                                                          GtkWidget *child,
1000 ;;                                                          GtkTextWindowType which_window,
1001 ;;                                                          gint xpos,
1002 ;;                                                          gint ypos);
1003 ;; void                gtk_text_view_move_child            (GtkTextView *text_view,
1004 ;;                                                          GtkWidget *child,
1005 ;;                                                          gint xpos,
1006 ;;                                                          gint ypos);