[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-serv16210/root/gtk-ffi

Modified Files:
	gtk-other.lisp 
Log Message:
More gtk and gdk FF declarations.
Date: Sat Oct  8 16:49:38 2005
Author: pdenno

Index: root/gtk-ffi/gtk-other.lisp
diff -u root/gtk-ffi/gtk-other.lisp:1.7 root/gtk-ffi/gtk-other.lisp:1.8
--- root/gtk-ffi/gtk-other.lisp:1.7	Tue Jun 28 18:56:23 2005
+++ root/gtk-ffi/gtk-other.lisp	Sat Oct  8 16:49:38 2005
@@ -65,6 +65,9 @@
 		 (spacing int))
     c-pointer nil nil)
 
+  (gtk-drawing-area-new ()
+   c-pointer)
+
   ;;table
   (gtk-table-new ((rows uint)
 		  (columns uint)
@@ -313,6 +316,8 @@
   (gtk-widget-show ((widget c-pointer)))
   (gtk-widget-show-all ((widget c-pointer)))
   (gtk-widget-hide ((widget c-pointer)))
+  (gtk-widget-hide-all ((widget c-pointer)))
+  (gtk-widget-hide-on-delete ((widget c-pointer)))
   (gtk-widget-destroy ((widget c-pointer)))
   (gtk-widget-set-sensitive ((widget c-pointer)
 			     (sensitive boolean))
@@ -568,6 +573,21 @@
     c-pointer)
   (gtk-text-view-set-buffer ((text-view c-pointer)
 			     (buffer c-pointer)))
+  (gtk-text-view-get-buffer ((text-view c-pointer))
+       c-pointer)			    
+  (gtk-text-view-set-wrap-mode ((text-view c-pointer)
+				(wrap-mode int)))
+  (gtk-text-view-set-editable ((text-view c-pointer)
+			       (setting boolean)))
+  (gtk-text-view-scroll-to-iter ((text-view c-pointer)
+				 (iter c-pointer)
+				 (within-margin double-float)
+				 (use-align boolean)
+				 (xalign double-float)
+				 (yalign double-float))
+     boolean)
+  (gtk-text-view-scroll-mark-onscreen ((text-view c-pointer)
+				       (mark c-pointer)))
   
   ;;text-buffer
   (gtk-text-buffer-new ((table c-pointer))
@@ -629,6 +649,9 @@
     boolean)
   (gtk-text-buffer-set-modified ((buffer c-pointer)
                                  (setting boolean)))                            
+  (gtk-text-buffer-move-mark ((buffer c-pointer)
+			      (mark c-pointer)
+			      (where c-pointer)))
 
   ;;text-iter
   (gtk-text-iter-free ((iter c-pointer)))
@@ -688,7 +711,11 @@
   (gtk-check-version ((required-major uint)
                       (required-minor uint)
                       (required-micro uint))
-    c-string))
+    c-string)
+  (gtk-widget-create-pango-layout ((widget c-pointer)
+				   (text c-string))
+    c-pointer))
+
 
 #+libcellsgtk
 (def-gtk-lib-functions :cgtk
@@ -705,7 +732,16 @@
   (gtk-adds-widget-visible-p ((widget c-pointer))
    int)
   (gtk-adds-widget-mapped-p ((widget c-pointer))
-   int))
+   int)
+  (gtk-adds-widget-window ((widget c-pointer))
+   c-pointer)
+  (gtk-adds-color-new ()
+    c-pointer)
+  (gtk-adds-color-set-rgb ((gdkcolor c-pointer)
+			   (red uint)
+			   (green uint)
+			   (blue uint))))
+
 
 #-libcellsgtk
 (defmacro you-need-libcellsgtk (&body names)
@@ -723,7 +759,10 @@
     gtk-adds-text-iter-new
     gtk-adds-tree-iter-new
     gtk-adds-widget-mapped-p
-    gtk-adds-widget-visible-p))
+    gtk-adds-widget-visible-p
+    gtk-adds-widget-window
+    gtk-adds-color-new
+    gtk-adds-color-set-rgb))