chiark - git - mdw - clg/blob - gtk/gtktext.lisp

   1 ;; Common Lisp bindings for GTK+ v2.0
   2 ;; Copyright (C) 1999-2004 Espen S. Johnsen <espen@users.sourceforge.net>
   3 ;;
   4 ;; This library is free software; you can redistribute it and/or
   5 ;; modify it under the terms of the GNU Lesser General Public
   6 ;; License as published by the Free Software Foundation; either
   7 ;; version 2 of the License, or (at your option) any later version.
   8 ;;
   9 ;; This library is distributed in the hope that it will be useful,
  10 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;; Lesser General Public License for more details.
  13 ;;
  14 ;; You should have received a copy of the GNU Lesser General Public
  15 ;; License along with this library; if not, write to the Free Software
  16 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18 ;; $Id: gtktext.lisp,v 1.5 2005-02-03 23:09:09 espen Exp $
  19
  20
  21 (in-package "GTK")
  22
  23 ;;; Text Buffer
  24
  25 (defbinding %text-buffer-insert () nil
  26   (buffer text-buffer)
  27   (iter text-iter)
  28   (text string)
  29   (-1 int))
  30
  31 (defun text-buffer-insert (buffer iter text &rest tags)
  32   (if tags
  33       (let ((start-offset (text-iter-offset iter)))
  34         (%text-buffer-insert buffer iter text)
  35         (let ((start (text-buffer-get-iter-at-offset buffer start-offset)))
  36           (loop
  37            for tag in tags
  38            do (text-buffer-apply-tag buffer tag start iter))))
  39     (%text-buffer-insert buffer iter text)))
  40
  41 (defbinding %text-buffer-insert-at-cursor () nil
  42   (buffer text-buffer)
  43   (text string)
  44   (-1 int))
  45
  46 (defun text-buffer-insert-at-cursor (buffer text &rest tags)
  47   (if tags
  48       (apply #'text-buffer-insert buffer
  49        (text-buffer-get-iter-at-insert buffer) text tags)
  50     (%text-buffer-insert-at-cursor buffer text)))
  51
  52 (defbinding text-buffer-insert-interactive () boolean
  53   (buffer text-buffer)
  54   (iter text-iter)
  55   (text string)
  56   (-1 int)
  57   (default-editable boolean))
  58
  59 (defbinding text-buffer-insert-interactive-at-cursor () boolean
  60   (buffer text-buffer)
  61   (text string)
  62   (-1 int)
  63   (default-editable boolean))
  64
  65 (defbinding text-buffer-insert-range () nil
  66   (buffer text-buffer)
  67   (iter text-iter)
  68   (start text-iter)
  69   (end text-iter))
  70
  71 (defbinding text-buffer-insert-range-interactive () nil
  72   (buffer text-buffer)
  73   (iter text-iter)
  74   (start text-iter)
  75   (end text-iter)
  76   (default-editable boolean))
  77
  78 (defbinding text-buffer-delete () nil
  79   (buffer text-buffer)
  80   (start text-iter)
  81   (end text-iter))
  82
  83 (defbinding text-buffer-delete-interactive () boolean
  84   (buffer text-buffer)
  85   (start text-iter)
  86   (end text-iter)
  87   (default-editable boolean))
  88
  89 #+gtk2.6
  90 (defbinding text-buffer-backspace () boolean
  91   (buffer text-buffer)
  92   (iter text-iter)
  93   (interactive boolean)
  94   (default-editable boolean))
  95
  96 (defbinding text-buffer-set-text () nil
  97   (buffer text-buffer)
  98   (text string)
  99   (-1 int))
 100
 101 (defbinding text-buffer-get-text () string
 102   (buffer text-buffer)
 103   (start text-iter)
 104   (end text-iter)
 105   (include-hidden-char boolean))
 106
 107 (defbinding text-buffer-get-slice () string
 108   (buffer text-buffer)
 109   (start text-iter)
 110   (end text-iter)
 111   (include-hidden-char boolean))
 112
 113 (defbinding text-buffer-insert-pixbuf () nil
 114   (buffer text-buffer)
 115   (iter text-iter)
 116   (pixbuf gdk:pixbuf))
 117
 118 (defbinding text-buffer-insert-child-anchor () nil
 119   (buffer text-buffer)
 120   (iter text-iter)
 121   (anchor text-child-anchor))
 122
 123 (defbinding text-buffer-create-child-anchor () text-child-anchor
 124   (buffer text-buffer)
 125   (iter text-iter))
 126
 127 (defbinding text-buffer-create-mark () text-mark
 128   (buffer text-buffer)
 129   (mark-name (or null string))
 130   (where text-iter)
 131   (left-gravity boolean))
 132
 133 (defbinding %text-buffer-move-mark () nil
 134   (buffer text-buffer)
 135   (mark text-mark)
 136   (where text-iter))
 137
 138 (defbinding %text-buffer-move-mark-by-name () nil
 139   (buffer text-buffer)
 140   (mark-name string)
 141   (where text-iter))
 142
 143 (defgeneric text-buffer-move-mark (buffer mark where))
 144
 145 (defmethod text-buffer-move-mark ((buffer text-buffer) (mark text-mark) where)
 146   (%text-buffer-move-mark buffer mark where))
 147
 148 (defmethod text-buffer-move-mark ((buffer text-buffer) (name string) where)
 149   (%text-buffer-move-mark-by-name buffer name where))
 150
 151 (defbinding %text-buffer-delete-mark () nil
 152   (buffer text-buffer)
 153   (mark text-mark))
 154
 155 (defbinding %text-buffer-delete-mark-by-name () nil
 156   (buffer text-buffer)
 157   (mark-name string))
 158
 159 (defgeneric text-buffer-delete-mark (buffer mark))
 160
 161 (defmethod text-buffer-delete-mark ((buffer text-buffer) (mark text-mark))
 162   (%text-buffer-delete-mark buffer mark))
 163
 164 (defmethod text-buffer-delete-mark ((buffer text-buffer) (mark-name string))
 165   (%text-buffer-delete-mark-by-name buffer mark-name))
 166
 167 (defbinding text-buffer-get-mark () text-mark
 168   (buffer text-buffer)
 169   (mark-name string))
 170
 171 (defbinding text-buffer-get-insert () text-mark
 172   (buffer text-buffer))
 173
 174 (defbinding text-buffer-get-selection-bound () text-mark
 175   (buffer text-buffer))
 176
 177 (defbinding text-buffer-place-cursor () nil
 178   (buffer text-buffer)
 179   (where text-iter))
 180
 181 (defbinding text-buffer-select-range () nil
 182   (buffer text-buffer)
 183   (insert text-iter)
 184   (bound text-iter))
 185
 186 (defbinding %text-buffer-apply-tag () nil
 187   (buffer text-buffer)
 188   (tag text-tag)
 189   (start text-iter)
 190   (end text-iter))
 191
 192 (defbinding %text-buffer-remove-tag () nil
 193   (buffer text-buffer)
 194   (tag text-tag)
 195   (start text-iter)
 196   (end text-iter))
 197
 198 (defbinding %text-buffer-apply-tag-by-name () nil
 199   (buffer text-buffer)
 200   (tag-name string)
 201   (start text-iter)
 202   (end text-iter))
 203
 204 (defbinding %text-buffer-remove-tag-by-name () nil
 205   (buffer text-buffer)
 206   (tag-name string)
 207   (start text-iter)
 208   (end text-iter))
 209
 210 (defgeneric text-buffer-apply-tag (buffer tag start end))
 211
 212 (defmethod text-buffer-apply-tag ((buffer text-buffer) (tag text-tag) start end)
 213   (%text-buffer-apply-tag buffer tag start end))
 214
 215 (defmethod text-buffer-apply-tag ((buffer text-buffer) (name string) start end)
 216   (%text-buffer-apply-tag-by-name buffer name start end))
 217
 218 (defgeneric text-buffer-remove-tag (buffer tag start end))
 219
 220 (defmethod text-buffer-remove-tag ((buffer text-buffer) (tag text-tag) start end)
 221   (%text-buffer-remove-tag buffer tag start end))
 222
 223 (defmethod text-buffer-remove-tag ((buffer text-buffer) (name string) start end)
 224   (%text-buffer-remove-tag-by-name buffer name start end))
 225
 226 (defbinding text-buffer-remove-all-tags () nil
 227   (buffer text-buffer)
 228   (start text-iter)
 229   (end text-iter))
 230
 231 (defun text-buffer-create-tag (buffer name &rest initargs)
 232   (text-tag-table-add
 233    (text-buffer-tag-table buffer)
 234    (if name
 235        (apply #'make-instance 'text-tag :name name initargs)
 236      (apply #'make-instance 'text-tag initargs))))
 237
 238 (defbinding text-buffer-get-iter-at-line-offset
 239     (buffer line offset &optional (iter (make-instance 'text-iter))) nil
 240   (buffer text-buffer)
 241   (iter text-iter :return)
 242   (line int)
 243   (offset int))
 244
 245 (defbinding text-buffer-get-iter-at-offset
 246     (buffer offset &optional (iter (make-instance 'text-iter))) nil
 247   (buffer text-buffer)
 248   (iter text-iter :return)
 249   ((case offset
 250      (:start 0)
 251      (:end -1)
 252      (t offset)) int))
 253
 254 (defbinding text-buffer-get-iter-at-line
 255     (buffer line &optional (iter (make-instance 'text-iter))) nil
 256   (buffer text-buffer)
 257   (iter text-iter :return)
 258   (line int))
 259
 260 (defbinding text-buffer-get-iter-at-line-index
 261     (buffer line index &optional (iter (make-instance 'text-iter))) nil
 262   (buffer text-buffer)
 263   (iter text-iter :return)
 264   (line int)
 265   (index int))
 266
 267 (defbinding text-buffer-get-iter-at-mark
 268     (buffer mark &optional (iter (make-instance 'text-iter))) nil
 269   (buffer text-buffer)
 270   (iter text-iter :return)
 271   (mark text-mark))
 272
 273 (defun text-buffer-get-iter-at-insert (buffer &optional (iter (make-instance 'text-iter)))
 274   (text-buffer-get-iter-at-mark buffer (text-buffer-get-insert buffer) iter))
 275
 276 (defbinding text-buffer-get-iter-at-child-anchor
 277     (buffer anchor &optional (iter (make-instance 'text-iter))) nil
 278   (buffer text-buffer)
 279   (iter text-iter :return)
 280   (anchor text-child-anchor))
 281
 282 (defbinding text-buffer-get-bounds
 283     (buffer &optional (start (make-instance 'text-iter))
 284      (end (make-instance 'text-iter))) nil
 285   (buffer text-buffer)
 286   (start text-iter :return)
 287   (end text-iter :return))
 288
 289 (defbinding text-buffer-delete-selection () boolean
 290   (buffer text-buffer)
 291   (interactive boolean)
 292   (default-editable boolean))
 293
 294 (defbinding text-buffer-paste-clipboard () nil
 295   (buffer text-buffer)
 296   (clipboard clipboard)
 297   (override-location (or null text-iter))
 298   (default-editable boolean))
 299
 300 (defbinding text-buffer-copy-clipboard () nil
 301   (buffer text-buffer)
 302   (clipboard clipboard))
 303
 304 (defbinding text-buffer-cut-clipboard () nil
 305   (buffer text-buffer)
 306   (clipboard clipboard)
 307   (default-editable boolean))
 308
 309 (defbinding text-buffer-get-selection-bounds
 310     (buffer &optional (start (make-instance 'text-iter))
 311      (end (make-instance 'text-iter))) boolean
 312   (buffer text-buffer)
 313   (start text-iter :return)
 314   (end text-iter :return))
 315
 316 (defbinding text-buffer-begin-user-action () nil
 317   (buffer text-buffer))
 318
 319 (defbinding text-buffer-end-user-action () nil
 320   (buffer text-buffer))
 321
 322 (defmacro text-buffer-with-user-action ((buffer) &body body)
 323   (let ((bufvar (make-symbol "BUFFER")))
 324     `(let ((,bufvar ,buffer))
 325        (text-buffer-begin-user-action ,bufvar)
 326        (unwind-protect
 327            (progn ,@body)
 328          (text-buffer-end-user-action ,bufvar)))))
 329
 330 (defbinding text-buffer-add-selection-clipboard () nil
 331   (buffer text-buffer)
 332   (clipboard clipboard))
 333
 334 (defbinding text-buffer-remove-selection-clipboard () nil
 335   (buffer text-buffer)
 336   (clipboard clipboard))
 337
 338
 339 ;;; Text Iter
 340
 341 (defbinding text-iter-get-char () int
 342   (iter text-iter))
 343
 344 (defbinding text-iter-get-slice () string
 345   (start text-iter)
 346   (end text-iter))
 347
 348 (defbinding text-iter-get-text () string
 349   (start text-iter)
 350   (end text-iter))
 351
 352 (defbinding text-iter-get-visible-slice () string
 353   (start text-iter)
 354   (end text-iter))
 355
 356 (defbinding text-iter-get-visible-text () string
 357   (start text-iter)
 358   (end text-iter))
 359
 360 (defbinding text-iter-get-pixbuf () string
 361   (iter text-iter))
 362
 363 (defbinding text-iter-get-marks () (gslist text-mark)
 364   (iter text-iter))
 365
 366 (defbinding text-iter-get-toggled-tags () (gslist text-tag)
 367   (iter text-iter)
 368   (toggoled-on boolean))
 369
 370 (defbinding text-iter-get-child-anchor () text-child-anchor
 371   (iter text-iter))
 372
 373 (defun %ensure-tag (tag iter)
 374   (etypecase tag
 375     (text-tag tag)
 376     (string
 377      (text-tag-table-lookup
 378       (text-buffer-tag-table (text-iter-buffer iter)) tag))))
 379
 380 (defbinding text-iter-begins-tag-p (iter tag) boolean
 381   (iter text-iter)
 382   ((%ensure-tag tag iter) text-tag))
 383
 384 (defbinding text-iter-ends-tag-p (iter tag) boolean
 385   (iter text-iter)
 386   ((%ensure-tag tag iter) text-tag))
 387
 388 (defbinding text-iter-toggles-tag-p (iter tag) boolean
 389   (iter text-iter)
 390   ((%ensure-tag tag iter) text-tag))
 391
 392 (defbinding text-iter-has-tag-p (iter tag) boolean
 393   (iter text-iter)
 394   ((%ensure-tag tag iter) text-tag))
 395
 396 (defbinding text-iter-get-tags () (gslist text-tag)
 397   (iter text-iter))
 398
 399 (defbinding text-iter-editable-p () boolean
 400   (iter text-iter)
 401   (default-setting boolean))
 402
 403 (defbinding text-iter-can-insert-p () boolean
 404   (iter text-iter)
 405   (default-editability boolean))
 406
 407 (defbinding text-iter-starts-word-p () boolean
 408   (iter text-iter))
 409
 410 (defbinding text-iter-ends-word-p () boolean
 411   (iter text-iter))
 412
 413 (defbinding text-iter-inside-word-p () boolean
 414   (iter text-iter))
 415
 416 (defbinding text-iter-starts-line-p () boolean
 417   (iter text-iter))
 418
 419 (defbinding text-iter-ends-line-p () boolean
 420   (iter text-iter))
 421
 422 (defbinding text-iter-starts-sentence-p () boolean
 423   (iter text-iter))
 424
 425 (defbinding text-iter-ends-sentence-p () boolean
 426   (iter text-iter))
 427
 428 (defbinding text-iter-inside-sentence-p () boolean
 429   (iter text-iter))
 430
 431 (defbinding text-iter-is-cursor-position-p () boolean
 432   (iter text-iter))
 433
 434 (defbinding text-iter-get-chars-in-line () int
 435   (iter text-iter))
 436
 437 (defbinding text-iter-get-bytes-in-line () int
 438   (iter text-iter))
 439
 440 (defbinding text-iter-get-attributes
 441     (iter &optional (values (make-instance 'text-attributes))) boolean
 442   (iter text-iter)
 443   (values text-attributes :return))
 444
 445 (defbinding text-iter-get-language () pango:language
 446   (iter text-iter))
 447
 448 (defbinding text-iter-is-end-p () boolean
 449   (iter text-iter))
 450
 451 (defbinding text-iter-is-start-p () boolean
 452   (iter text-iter))
 453
 454 (defbinding text-iter-forward-char () boolean
 455   (iter text-iter))
 456
 457 (defbinding text-iter-backward-char () boolean
 458   (iter text-iter))
 459
 460 (defbinding text-iter-forward-chars () boolean
 461   (iter text-iter)
 462   (count int))
 463
 464 (defbinding text-iter-backward-chars () boolean
 465   (iter text-iter)
 466   (count int))
 467
 468 (defbinding text-iter-forward-line () boolean
 469   (iter text-iter))
 470
 471 (defbinding text-iter-backward-line () boolean
 472   (iter text-iter))
 473
 474 (defbinding text-iter-forward-lines () boolean
 475   (iter text-iter)
 476   (count int))
 477
 478 (defbinding text-iter-backward-lines () boolean
 479   (iter text-iter)
 480   (count int))
 481
 482 (defbinding text-iter-forward-word-ends () boolean
 483   (iter text-iter)
 484   (count int))
 485
 486 (defbinding text-iter-backward-word-starts () boolean
 487   (iter text-iter)
 488   (count int))
 489
 490 (defbinding text-iter-forward-word-end () boolean
 491   (iter text-iter))
 492
 493 (defbinding text-iter-backward-word-start () boolean
 494   (iter text-iter))
 495
 496 (defbinding text-iter-forward-cursor-position () boolean
 497   (iter text-iter))
 498
 499 (defbinding text-iter-backward-cursor-position () boolean
 500   (iter text-iter))
 501
 502 (defbinding text-iter-forward-cursor-positions () boolean
 503   (iter text-iter)
 504   (count int))
 505
 506 (defbinding text-iter-backward-cursor-positions () boolean
 507   (iter text-iter)
 508   (count int))
 509
 510 (defbinding text-iter-backward-sentence-start () boolean
 511   (iter text-iter))
 512
 513 (defbinding text-iter-backward-sentence-starts () boolean
 514   (iter text-iter)
 515   (count int))
 516
 517 (defbinding text-iter-forward-sentence-end () boolean
 518   (iter text-iter))
 519
 520 (defbinding text-iter-forward-sentence-ends () boolean
 521   (iter text-iter)
 522   (count int))
 523
 524 (defbinding text-iter-forward-visible-word-ends () boolean
 525   (iter text-iter)
 526   (count int))
 527
 528 (defbinding text-iter-backward-visible-word-starts () boolean
 529   (iter text-iter)
 530   (count int))
 531
 532 (defbinding text-iter-forward-visible-word-end () boolean
 533   (iter text-iter))
 534
 535 (defbinding text-iter-backward-visible-word-start () boolean
 536   (iter text-iter))
 537
 538 (defbinding text-iter-forward-visible-cursor-position () boolean
 539   (iter text-iter))
 540
 541 (defbinding text-iter-backward-visible-cursor-position () boolean
 542   (iter text-iter))
 543
 544 (defbinding text-iter-forward-visible-cursor-positions () boolean
 545   (iter text-iter)
 546   (count int))
 547
 548 (defbinding text-iter-backward-visible-cursor-positions () boolean
 549   (iter text-iter)
 550   (count int))
 551
 552 (defbinding text-iter-forward-to-end () nil
 553   (iter text-iter))
 554
 555 (defbinding text-iter-forward-to-line-end () boolean
 556   (iter text-iter))
 557
 558 (defbinding text-iter-forward-to-tag-toggle (iter tag) boolean
 559   (iter text-iter)
 560   ((%ensure-tag tag iter) text-tag))
 561
 562 (defbinding text-iter-backward-to-tag-toggle (iter tag) boolean
 563   (iter text-iter)
 564   ((%ensure-tag tag iter) text-tag))
 565
 566 (def-callback-marshal %text-char-predicate (boolean int))
 567
 568 (defbinding text-iter-forward-find-char (iter predicate &optional limit) boolean
 569   (iter text-iter)
 570   ((callback %text-char-predicate) pointer)
 571   ((register-callback-function predicate) unsigned-int)
 572   (limit (or null text-iter)))
 573
 574 (defbinding text-iter-backward-find-char (iter predicate &optional limit) boolean
 575   (iter text-iter)
 576   ((callback %text-char-predicate) pointer)
 577   ((register-callback-function predicate) unsigned-int)
 578   (limit (or null text-iter)))
 579
 580 (defbinding text-iter-forward-search
 581     (iter text &optional flags limit (match-start (make-instance 'text-iter))
 582      (match-end (make-instance 'text-iter))) boolean
 583   (iter text-iter)
 584   (text string)
 585   (flags text-search-flags)
 586   (match-start text-iter :return)
 587   (match-end text-iter :return)
 588   (limit (or null text-iter)))
 589
 590 (defbinding text-iter-backward-search
 591     (iter text &optional flags limit (match-start (make-instance 'text-iter))
 592      (match-end (make-instance 'text-iter))) boolean
 593   (iter text-iter)
 594   (text string)
 595   (flags text-search-flags)
 596   (match-start text-iter :return)
 597   (match-end text-iter :return)
 598   (limit (or null text-iter)))
 599
 600 (defbinding text-iter-equal-p () boolean
 601   (lhs text-iter)
 602   (rhs text-iter))
 603
 604 (defbinding text-iter-compare () int
 605   (lhs text-iter)
 606   (rhs text-iter))
 607
 608 (defbinding text-iter-in-range-p () boolean
 609   (iter text-iter)
 610   (start text-iter)
 611   (end text-iter))
 612
 613 (defbinding text-iter-order () nil
 614   (first text-iter)
 615   (second text-iter))
 616
 617
 618
 619 ;;; Text Tag
 620
 621 (defbinding text-tag-event () boolean
 622   (tag text-tag)
 623   (event-object gobject)
 624   (event gdk:event)
 625   (iter text-iter))
 626
 627
 628
 629 ;;; Text Tag Table
 630
 631 (defbinding text-tag-table-add () nil
 632   (table text-tag-table)
 633   (tag text-tag))
 634
 635 (defbinding text-tag-table-remove () nil
 636   (table text-tag-table)
 637   (tag text-tag))
 638
 639 (defbinding text-tag-table-lookup () text-tag
 640   (table text-tag-table)
 641   (name string))
 642
 643 (def-callback-marshal %text-tag-table-foreach (nil text-tag))
 644
 645 (defbinding text-tag-table-foreach (table function) nil
 646   (table text-tag-table)
 647   ((callback %text-tag-table-foreach) pointer)
 648   ((register-callback-function function) unsigned-int))
 649
 650
 651 ;;; Text View
 652
 653 (defbinding text-view-scroll-to-mark () nil
 654   (text-view text-view)
 655   (mark text-mark)
 656   (within-margin boolean)
 657   (use-align boolean)
 658   (xalign double-float)
 659   (yalign double-float))
 660
 661 (defbinding text-view-scroll-to-iter () nil
 662   (text-view text-view)
 663   (iter text-iter)
 664   (within-margin boolean)
 665   (use-align boolean)
 666   (xalign double-float)
 667   (yalign double-float))
 668
 669 (defbinding text-view-scroll-mark-onscreen () nil
 670   (text-view text-view)
 671   (mark text-mark))
 672
 673 (defbinding text-view-move-mark-onscreen () nil
 674   (text-view text-view)
 675   (mark text-mark))
 676
 677 (defbinding text-view-place-cursor-onscreen () nil
 678   (text-view text-view))
 679
 680 (defbinding text-view-get-visible-rect
 681     (text-view &optional (rect (make-instance 'gdk:rectangle))) nil
 682   (text-view text-view)
 683   (rect gdk:rectangle :return))
 684
 685 (defbinding text-view-get-iter-location
 686     (text-view iter &optional (location (make-instance 'gdk:rectangle))) nil
 687   (text-view text-view)
 688   (iter text-iter)
 689   (location gdk:rectangle :return))
 690
 691 (defbinding text-view-get-line-at-y
 692     (text-view y &optional (iter (make-instance 'text-iter))) nil
 693   (text-view text-view)
 694   (iter text-iter :return)
 695   (y int)
 696   (line-top int :out))
 697
 698 (defbinding text-view-get-line-yrange () nil
 699   (text-view text-view)
 700   (iter text-iter)
 701   (y int :out)
 702   (height int :out))
 703
 704 (defbinding text-view-get-iter-at-location
 705     (text-view x y &optional (iter (make-instance 'text-iter))) nil
 706   (text-view text-view)
 707   (iter text-iter :return)
 708   (x int)
 709   (y int))
 710
 711 (defbinding text-view-buffer-to-window-coords () nil
 712   (text-view text-view)
 713   (win text-window-type)
 714   (buffer-x int)
 715   (buffer-y int)
 716   (window-x int :out)
 717   (window-y int :out))
 718
 719 (defbinding text-view-window-to-buffer-coords () nil
 720   (text-view text-view)
 721   (win text-window-type)
 722   (window-x int)
 723   (window-y int)
 724   (buffer-x int :out)
 725   (buffer-y int :out))
 726
 727 (defbinding text-view-get-window () gdk:window
 728   (text-view text-view)
 729   (win text-window-type))
 730
 731 (defbinding text-view-get-window-type () text-window-type
 732   (text-view text-view)
 733   (window gdk:window))
 734
 735 (defbinding %text-view-set-border-window-size () nil
 736   (text-view text-view)
 737   (win text-window-type)
 738   (size int))
 739
 740 (defun (setf text-view-border-window-size) (size text-view win)
 741   (%text-view-set-border-window-size text-view win size)
 742   size)
 743
 744 (defbinding (text-view-border-window-size
 745              "gtk_text_view_get_border_window_size") () int
 746   (text-view text-view)
 747   (win text-window-type))
 748
 749 (defbinding text-view-forward-display-line () boolean
 750   (text-view text-view)
 751   (iter text-iter))
 752
 753 (defbinding text-view-backward-display-line () boolean
 754   (text-view text-view)
 755   (iter text-iter))
 756
 757 (defbinding text-view-forward-display-line-end () boolean
 758   (text-view text-view)
 759   (iter text-iter))
 760
 761 (defbinding text-view-backward-display-line-start () boolean
 762   (text-view text-view)
 763   (iter text-iter))
 764
 765 (defbinding (text-view-starts-display-line-p
 766              "gtk_text_view_starts_display_line") () boolean
 767   (text-view text-view)
 768   (iter text-iter))
 769
 770 (defbinding text-view-move-visually () boolean
 771   (text-view text-view)
 772   (iter text-iter)
 773   (count int))
 774
 775 (defbinding text-view-add-child-at-anchor () nil
 776   (text-view text-view)
 777   (child widget)
 778   (anchor text-child-anchor))
 779
 780 (defbinding text-view-add-child-in-window () nil
 781   (text-view text-view)
 782   (child widget)
 783   (win text-window-type)
 784   (x int)
 785   (y int))
 786
 787 (defbinding text-view-move-child () nil
 788   (text-view text-view)
 789   (child widget)
 790   (x int)
 791   (y int))
 792
 793
 794 ;; Text Child Anchor
 795
 796 (defbinding (text-view-child-anchor-deleted-p
 797              "gtk_text_child_anchor_get_deleted") () boolean
 798   (anchor text-child-anchor))