[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-other.lisp

[Peter Denno]

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))