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

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

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-menu.lisp 2005/02/26 22:40:00 1.3 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-menu.lisp 2006/02/16 18:05:49 1.4 @@ -18,108 +18,89 @@

(in-package :gtk-ffi)

-(def-gtk-function :gtk gtk-check-menu-item-set-active :arguments - ((check-menu c-pointer) (active boolean)) - :return-type nil :call-direct t) +(def-gtk-function :gtk gtk-check-menu-item-set-active :void + ((check-menu :pointer) (active :gtk-boolean)))

#+test (def-gtk-lib-functions :gtk (gtk-check-menu-item-set-active ((check-menu c-pointer) (active boolean))))

- - (def-gtk-lib-functions :gtk - ;;menu - (gtk-menu-shell-append ((menu-shell c-pointer) - (child c-pointer))) - (gtk-menu-shell-prepend ((menu-shell c-pointer) - (child c-pointer))) - (gtk-menu-shell-insert ((menu-shell c-pointer) - (child c-pointer) - (position int))) - (gtk-menu-bar-new () - c-pointer) - - (gtk-menu-new () - c-pointer) - (gtk-menu-set-title ((menu c-pointer) - (title c-string))) - (gtk-menu-attach ((menu c-pointer) - (child c-pointer) - (lattach uint) - (rattach uint) - (tattach uint) - (battach uint))) - (gtk-menu-attach-to-widget ((menu c-pointer) - (widget c-pointer) - (func #.(callback-function ((widget c-pointer) - (menu c-pointer)))))) - - (gtk-menu-popup ((menu c-pointer) - (p-menu-shell c-pointer) - (p-menu-item c-pointer) - (func #.(callback-function ((menu c-pointer) - (x (c-ptr int)) - (y (c-ptr int)) - (push-in (c-ptr boolean)) - (data c-pointer)))) - (data c-pointer) - (button uint) - (activate-time uint32))) - - (gtk-menu-item-new () - c-pointer) - (gtk-menu-item-new-with-label ((label c-string)) - c-pointer) - (gtk-menu-item-set-right-justified ((menu-item c-pointer) - (right-justified boolean))) - (gtk-menu-item-set-submenu ((menu-item c-pointer) - (submenu c-pointer))) - (gtk-menu-item-get-submenu ((menu-item c-pointer)) - c-pointer) - (gtk-menu-item-remove-submenu ((menu-item c-pointer))) - (gtk-menu-item-set-accel-path ((menu-item c-pointer) - (acell-path c-pointer))) - (gtk-accel-map-add-entry ((accel-path c-pointer) - (accel-key uint) - (accel-mods int))) - - (gtk-check-menu-item-new () - c-pointer) - (gtk-check-menu-item-new-with-label ((label c-string)) - c-pointer) - #+above (gtk-check-menu-item-set-active ((check-menu c-pointer) - (active boolean))) - (gtk-check-menu-item-get-active ((check-menu c-pointer)) - boolean) - - (gtk-radio-menu-item-new ((group c-pointer)) - c-pointer) - (gtk-radio-menu-item-new-from-widget ((group c-pointer)) - c-pointer) - (gtk-radio-menu-item-new-with-label ((group c-pointer) - (label c-string)) - c-pointer) - (gtk-radio-menu-item-new-with-label-from-widget ((radio c-pointer) - (label c-string)) - c-pointer) - (gtk-radio-menu-item-get-group ((radio c-pointer)) - c-pointer) - - (gtk-image-menu-item-new () - c-pointer) - (gtk-image-menu-item-new-with-label ((label c-string)) - c-pointer) - (gtk-image-menu-item-new-from-stock ((stock-id c-string) - (accel-group c-pointer)) - c-pointer) - (gtk-image-menu-item-set-image ((menu-item c-pointer) - (image c-pointer))) - - - (gtk-separator-menu-item-new () - c-pointer) - (gtk-tearoff-menu-item-new () - c-pointer)) + (gtk-menu-shell-append :void + ((menu-shell :pointer) + (child :pointer))) + (gtk-menu-shell-prepend :void + ((menu-shell :pointer) + (child :pointer))) + (gtk-menu-shell-insert :void + ((menu-shell :pointer) + (child :pointer) + (position :int))) + (gtk-menu-bar-new :pointer ()) + (gtk-menu-new :pointer ()) + (gtk-menu-set-title :void + ((menu :pointer) (title :gtk-string))) + (gtk-menu-attach :void + ((menu :pointer) (child :pointer) + (lattach :unsigned-int) + (rattach :unsigned-int) + (tattach :unsigned-int) + (battach :unsigned-int))) + (gtk-menu-attach-to-widget :void + ((menu :pointer) + (widget :pointer) + (func :pointer))) + ;;func = (callback-function ((menu c-pointer) (x (c-ptr int)) (y (c-ptr int)) + ;; (push-in (c-ptr boolean)) (data c-pointer))) + (gtk-menu-popup :void + ((menu :pointer) (p-menu-shell :pointer) + (p-menu-item :pointer) (func :pointer) + (data :pointer) (button :unsigned-int) + (activate-time :unsigned-int))) + (gtk-menu-item-new :pointer ()) + (gtk-menu-item-new-with-label :pointer + ((label :pointer))) + (gtk-menu-item-set-right-justified :void + ((menu-item :pointer) + (right-justified :gtk-boolean))) + (gtk-menu-item-set-submenu :void + ((menu-item :pointer) + (submenu :pointer))) + (gtk-menu-item-get-submenu :pointer + ((menu-item :pointer))) + (gtk-menu-item-remove-submenu :void + ((menu-item :pointer))) + (gtk-menu-item-set-accel-path :void + ((menu-item :pointer) + (acell-path :pointer))) + (gtk-accel-map-add-entry :void + ((accel-path :pointer) + (accel-key :unsigned-int) + (accel-mods :int))) + (gtk-check-menu-item-new :pointer ()) + (gtk-check-menu-item-new-with-label :pointer + ((label :pointer))) + (gtk-check-menu-item-get-active :gtk-boolean + ((check-menu :pointer))) + (gtk-radio-menu-item-new :pointer ((group :pointer))) + (gtk-radio-menu-item-new-from-widget :pointer + ((group :pointer))) + (gtk-radio-menu-item-new-with-label :pointer + ((group :pointer))) + (gtk-radio-menu-item-new-with-label-from-widget :pointer + ((radio :pointer) + (label :gtk-string))) + (gtk-radio-menu-item-get-group :pointer ((radio :pointer))) + (gtk-image-menu-item-new :pointer ()) + (gtk-image-menu-item-new-with-label :pointer ((label :gtk-string))) + (gtk-image-menu-item-new-from-stock :pointer + ((stock-id :gtk-string) + (accel-group :pointer))) + (gtk-image-menu-item-set-image :void + ((menu-item :pointer) + (image :pointer))) + (gtk-separator-menu-item-new :pointer ()) + (gtk-tearoff-menu-item-new :pointer ())) +