[cells-gtk-cvs] CVS root/gtk-ffi
pdenno
pdenno at common-lisp.net
Thu Feb 16 18:05:49 UTC 2006
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 ()))
+
More information about the Cells-gtk-cvs
mailing list