Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv23232/root/gtk-ffi

Modified Files: gtk-other.lisp Log Message: Many new ff declarations for text-buffer and text-view. Date: Sun Mar 6 18:05:46 2005 Author: pdenno

Index: root/gtk-ffi/gtk-other.lisp diff -u root/gtk-ffi/gtk-other.lisp:1.4 root/gtk-ffi/gtk-other.lisp:1.5 --- root/gtk-ffi/gtk-other.lisp:1.4 Sat Feb 26 23:42:29 2005 +++ root/gtk-ffi/gtk-other.lisp Sun Mar 6 18:05:44 2005 @@ -564,9 +564,68 @@ ;;text-buffer (gtk-text-buffer-new ((table c-pointer)) c-pointer) + (gtk-text-buffer-get-text ((buffer c-pointer) + (start c-pointer) + (end c-pointer) + (include-hidden-chars boolean)) + c-string) + (gtk-text-buffer-insert ((buffer c-pointer) + (iter c-pointer) + (text c-string) + (len int))) + (gtk-text-buffer-delete ((buffer c-pointer) + (start c-pointer) + (end c-pointer))) (gtk-text-buffer-set-text ((buffer c-pointer) (text c-string) (len int))) + (gtk-text-buffer-get-char-count ((buffer c-pointer)) + int) + (gtk-text-buffer-insert-at-cursor ((buffer c-pointer) + (text c-pointer) + (len int))) + (gtk-text-buffer-create-tag ((buffer c-pointer) + (tag-name c-string) + (first-property-name c-string) + (second-property-name c-string) ; POD how can I do more? + (eof c-pointer)) + c-pointer) + (gtk-text-buffer-remove-all-tags ((buffer c-pointer) + (start c-pointer) + (end c-pointer))) + (gtk-text-buffer-get-iter-at-offset ((buffer c-pointer) + (iter c-pointer) + (char-offset int))) + (gtk-text-buffer-apply-tag ((buffer c-pointer) + (tag c-pointer) + (start c-pointer) + (end c-pointer))) + (gtk-text-buffer-get-char-count ((buffer c-pointer)) + int) + (gtk-text-buffer-create-mark ((buffer c-pointer) + (mark-name c-string) + (where c-pointer) + (left-gravity boolean)) + c-pointer) + (gtk-text-buffer-get-iter-at-mark ((buffer c-pointer) + (iter c-pointer) + (mark c-pointer))) + (gtk-text-buffer-get-insert ((buffer c-pointer)) + c-pointer) + (gtk-text-buffer-delete-mark ((buffer c-pointer) + (mark c-pointer))) + (gtk-text-buffer-get-mark ((buffer c-pointer) + (name c-string)) + c-pointer) + (gtk-text-buffer-get-modified ((buffer c-pointer)) + boolean) + (gtk-text-buffer-set-modified ((buffer c-pointer) + (setting boolean))) + + ;;text-iter + (gtk-text-iter-free ((iter c-pointer))) + (gtk-text-iter-get-offset ((iter c-pointer)) + int)

;;text-tag-table (gtk-text-tag-table-new () @@ -630,8 +689,11 @@ c-pointer) (gtk-adds-text-view-popup-menu ((treeview c-pointer)) - c-pointer)) + c-pointer) + (gtk-adds-text-iter-new () + c-pointer))

+#-libcellsgtk (defmacro you-need-libcellsgtk (&body names) `(progn ,@(loop for name in names @@ -640,9 +702,11 @@ (error "You need libcellsgtk.so to use function ~A." ',name)))))

#-libcellsgtk -(you-need-libcellsgtk - gtk-adds-dialog-box - gtk-adds-text-view-popup-menu) +(eval-when (:compile-toplevel :load-toplevel :execute) + (you-need-libcellsgtk + gtk-adds-dialog-box + gtk-adds-text-view-popup-menu + gtk-adds-text-iter-new))