ced65152 |
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 | |
18e45ba6 |
18 | ;; $Id: gtktext.lisp,v 1.2 2004-12-17 00:37:50 espen Exp $ |
ced65152 |
19 | |
20 | |
21 | (in-package "GTK") |
22 | |
18e45ba6 |
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))) nil |
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-prediacte (boolean int)) |
567 | |
568 | (defbinding text-iter-forward-find-char (iter predicate &optional limit) boolean |
569 | (iter text-iter) |
570 | ((callback %text-char-redicate) 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-redicate) 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 | ;;; Text Tag Table |
619 | |
620 | (defbinding text-tag-table-add () nil |
621 | (table text-tag-table) |
622 | (tag text-tag)) |
623 | |
624 | (defbinding text-tag-table-remove () nil |
625 | (table text-tag-table) |
626 | (tag text-tag)) |
627 | |
628 | (defbinding text-tag-table-lookup () text-tag |
629 | (table text-tag-table) |
630 | (name string)) |
631 | |
632 | (def-callback-marshal %text-tag-table-foreach (nil text-tag)) |
633 | |
634 | (defbinding text-tag-table-foreach (table function) nil |
635 | (table text-tag-table) |
636 | ((callback %text-tag-table-foreach) pointer) |
637 | ((register-callback-function function) unsigned-int)) |
638 | |
639 | ;; (defbinding text-tag-event () boolean |
640 | ;; (tag text-tag) |
641 | ;; (event-object object) |
642 | ;; (event gdk:event) |
643 | ;; (iter text-iter)) |
644 | |
645 | |
ced65152 |
646 | ;;; Text View |
647 | |
648 | (defbinding text-view-scroll-to-mark () nil |
649 | (text-view text-view) |
650 | (mark text-mark) |
651 | (within-margin boolean) |
652 | (use-align boolean) |
653 | (xalign double-float) |
654 | (yalign double-float)) |
655 | |
656 | (defbinding text-view-scroll-to-iter () nil |
657 | (text-view text-view) |
658 | (iter text-iter) |
659 | (within-margin boolean) |
660 | (use-align boolean) |
661 | (xalign double-float) |
662 | (yalign double-float)) |
663 | |
664 | (defbinding text-view-scroll-mark-onscreen () nil |
665 | (text-view text-view) |
666 | (mark text-mark)) |
667 | |
668 | (defbinding text-view-move-mark-onscreen () nil |
669 | (text-view text-view) |
670 | (mark text-mark)) |
671 | |
672 | (defbinding text-view-place-cursor-onscreen () nil |
673 | (text-view text-view)) |
674 | |
675 | (defbinding text-view-get-visible-rect |
676 | (text-view &optional (rect (make-instance 'gdk:rectangle))) nil |
677 | (text-view text-view) |
678 | (rect gdk:rectangle :return)) |
679 | |
680 | (defbinding text-view-get-iter-location |
681 | (text-view iter &optional (location (make-instance 'gdk:rectangle))) nil |
682 | (text-view text-view) |
683 | (iter text-iter) |
684 | (location gdk:rectangle :return)) |
685 | |
686 | (defbinding text-view-get-line-at-y |
687 | (text-view y &optional (iter (make-instance 'text-iter))) nil |
688 | (text-view text-view) |
689 | (iter text-iter :return) |
690 | (y int) |
691 | (line-top int :out)) |
692 | |
693 | (defbinding text-view-get-line-yrange () nil |
694 | (text-view text-view) |
695 | (iter text-iter) |
696 | (y int :out) |
697 | (height int :out)) |
698 | |
699 | (defbinding text-view-get-iter-at-location |
700 | (text-view x y &optional (iter (make-instance 'text-iter))) nil |
701 | (text-view text-view) |
702 | (iter text-iter :return) |
703 | (x int) |
704 | (y int)) |
705 | |
706 | (defbinding text-view-buffer-to-window-coords () nil |
707 | (text-view text-view) |
708 | (win text-window-type) |
709 | (buffer-x int) |
710 | (buffer-y int) |
711 | (window-x int :out) |
712 | (window-y int :out)) |
713 | |
714 | (defbinding text-view-window-to-buffer-coords () nil |
715 | (text-view text-view) |
716 | (win text-window-type) |
717 | (window-x int) |
718 | (window-y int) |
719 | (buffer-x int :out) |
720 | (buffer-y int :out)) |
721 | |
722 | (defbinding text-view-get-window () gdk:window |
723 | (text-view text-view) |
724 | (win text-window-type)) |
725 | |
726 | (defbinding text-view-get-window-type () text-window-type |
727 | (text-view text-view) |
728 | (window gdk:window)) |
729 | |
730 | (defbinding %text-view-set-border-window-size () nil |
731 | (text-view text-view) |
732 | (win text-window-type) |
733 | (size int)) |
734 | |
735 | (defun (setf text-view-border-window-size) (size text-view win) |
736 | (%text-view-set-border-window-size text-view win size) |
737 | size) |
738 | |
739 | (defbinding (text-view-border-window-size |
740 | "gtk_text_view_get_border_window_size") () int |
741 | (text-view text-view) |
742 | (win text-window-type)) |
743 | |
744 | (defbinding text-view-forward-display-line () boolean |
745 | (text-view text-view) |
746 | (iter text-iter)) |
747 | |
748 | (defbinding text-view-backward-display-line () boolean |
749 | (text-view text-view) |
750 | (iter text-iter)) |
751 | |
752 | (defbinding text-view-forward-display-line-end () boolean |
753 | (text-view text-view) |
754 | (iter text-iter)) |
755 | |
756 | (defbinding text-view-backward-display-line-start () boolean |
757 | (text-view text-view) |
758 | (iter text-iter)) |
759 | |
760 | (defbinding (text-view-starts-display-line-p |
761 | "gtk_text_view_starts_display_line") () boolean |
762 | (text-view text-view) |
763 | (iter text-iter)) |
764 | |
765 | (defbinding text-view-move-visually () boolean |
766 | (text-view text-view) |
767 | (iter text-iter) |
768 | (count int)) |
769 | |
770 | (defbinding text-view-add-child-at-anchor () nil |
771 | (text-view text-view) |
772 | (child widget) |
773 | (anchor text-child-anchor)) |
774 | |
775 | (defbinding text-view-add-child-in-window () nil |
776 | (text-view text-view) |
777 | (child widget) |
778 | (win text-window-type) |
779 | (x int) |
780 | (y int)) |
781 | |
782 | (defbinding text-view-move-child () nil |
783 | (text-view text-view) |
784 | (child widget) |
785 | (x int) |
786 | (y int)) |
787 | |
788 | |
789 | ;; Text Child Anchor |
790 | |
791 | (defbinding (text-view-child-anchor-deleted-p |
792 | "gtk_text_child_anchor_get_deleted") () boolean |
793 | (anchor text-child-anchor)) |