[cells-gtk-cvs] CVS root/gtk-ffi

[pdenno]

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

Modified Files:
	gtk-button.lisp 
Log Message:
Now native CFFI

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-button.lisp	2004/12/06 20:03:00	1.1
+++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-button.lisp	2006/02/16 18:01:42	1.2
@@ -18,51 +18,58 @@
 
 (in-package :gtk-ffi)
 
-
 (def-gtk-lib-functions :gtk
-  ;;button
-  (gtk-button-new ()
-     c-pointer)
-  (gtk-button-set-label ((button c-pointer)
-			 (label c-string)))
-  (gtk-button-set-relief ((button c-pointer)
-			  (style int)))
-  (gtk-button-set-use-stock ((button c-pointer)
-			     (use-stock boolean)))
-  ;;toggle-button
-  (gtk-toggle-button-new ()
-     c-pointer)
-  (gtk-toggle-button-set-mode ((button c-pointer)
-			       (draw-indicator boolean)))
-  (gtk-toggle-button-set-active ((button c-pointer)(active boolean)))
-  (gtk-toggle-button-get-active ((button c-pointer))
-     boolean)
-  ;;check-button
-  (gtk-check-button-new ()
-     c-pointer)
-  ;;radio-button
-  (gtk-radio-button-new ((gslist c-pointer))
-     c-pointer)
-  (gtk-radio-button-new-from-widget ((radio-group c-pointer))
-     c-pointer)
-  
-  ;;spin-button
-  (gtk-spin-button-new ((adjustment c-pointer)
-			(climb-rate double-float)
-			(digits uint))
-    c-pointer)
-  (gtk-spin-button-new-with-range ((minval double-float)
-				   (maxval double-float)
-				   (step double-float))
-    c-pointer)
-  (gtk-spin-button-set-value ((spin-button c-pointer)
-			      (value double-float)))
-  (gtk-spin-button-get-value ((spin-button c-pointer))
-     double-float)
-  (gtk-spin-button-get-value-as-int ((spin-button c-pointer))
-     int)
-  (gtk-spin-button-set-wrap ((spin-button c-pointer)
-			     (wrap boolean))))
+  (gtk-button-new :pointer ())
+  (gtk-button-set-label
+   :void
+   ((button :pointer) (label :gtk-string)))
+  (gtk-button-set-relief
+   :void
+   ((button :pointer) (style :int)))
+  (gtk-button-set-use-stock
+   :void
+   ((button :pointer) (use-stock :gtk-boolean)))
+  (gtk-toggle-button-new :pointer ())
+  (gtk-toggle-button-set-mode
+   :void
+   ((button :pointer)
+    (draw-indicator :gtk-boolean)))
+  (gtk-toggle-button-set-active
+   :void
+   ((button :pointer) (active :gtk-boolean)))
+  (gtk-toggle-button-get-active
+   :gtk-boolean
+   ((button :pointer)))
+  (gtk-check-button-new :pointer ())
+  (gtk-radio-button-new
+   :pointer
+   ((gslist :pointer)))
+  (gtk-radio-button-new-from-widget
+   :pointer
+   ((radio-group :pointer)))
+  (gtk-spin-button-new
+   :pointer
+   ((adjustment :pointer)
+    (climb-rate :double)
+    (digits :unsigned-int)))
+  (gtk-spin-button-new-with-range
+   :pointer
+   ((minval :double)
+    (maxval :double)
+    (step :double)))
+  (gtk-spin-button-set-value
+   :void
+   ((spin-button :pointer) (value :double)))
+  (gtk-spin-button-get-value
+   :double
+   ((spin-button :pointer)))
+  (gtk-spin-button-get-value-as-int
+   :int
+   ((spin-button :pointer)))
+  (gtk-spin-button-set-wrap
+   :void
+   ((spin-button :pointer) (wrap :gtk-boolean))))
+
 
 #+debugthis
 (gtk-toggle-button-get-active ((button c-pointer))
@@ -73,4 +80,3 @@
                   :ARGUMENTS ((BUTTON C-POINTER))
                   :RETURN-TYPE BOOLEAN
                   :CALL-DIRECT T)
-