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