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