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

Modified Files: gtk-other.lisp Log Message: Declaration of libcellsgtk foreign functions. Declaration of widget event mask manipulation functions, functions for checking the version of gtk. Date: Sat Feb 26 23:42:29 2005 Author: pdenno

Index: root/gtk-ffi/gtk-other.lisp diff -u root/gtk-ffi/gtk-other.lisp:1.3 root/gtk-ffi/gtk-other.lisp:1.4 --- root/gtk-ffi/gtk-other.lisp:1.3 Wed Feb 16 23:30:03 2005 +++ root/gtk-ffi/gtk-other.lisp Sat Feb 26 23:42:29 2005 @@ -149,7 +149,7 @@ (obey_child boolean)) c-pointer)

- ;;separetor + ;;separator (gtk-hseparator-new () c-pointer) (gtk-vseparator-new () @@ -329,6 +329,12 @@ (mods int) (flags int))) (gtk-widget-grab-focus ((widget c-pointer))) + (gtk-widget-add-events ((widget c-pointer) + (events int))) + (gtk-widget-set-events ((widget c-pointer) + (events int))) + (gtk-widget-get-events ((widget c-pointer)) + int)

;;window (gtk-window-new ((type int)) @@ -609,6 +615,35 @@ (above boolean))) (gtk-event-box-set-visible-window ((event-box c-pointer) (visible-window boolean)) - nil nil nil)) + nil nil nil) + + ;; miscellaneous + (gtk-check-version ((required-major uint) + (required-minor uint) + (required-micro uint)) + c-string)) + +#+libcellsgtk +(def-gtk-lib-functions :cgtk + (gtk-adds-dialog-vbox + ((dialog c-pointer)) + c-pointer) + (gtk-adds-text-view-popup-menu + ((treeview c-pointer)) + c-pointer)) + +(defmacro you-need-libcellsgtk (&body names) + `(progn + ,@(loop for name in names + collect `(defun ,name (&rest ignore) + (declare (ignore ignore)) + (error "You need libcellsgtk.so to use function ~A." ',name))))) + +#-libcellsgtk +(you-need-libcellsgtk + gtk-adds-dialog-box + gtk-adds-text-view-popup-menu) +

+ \ No newline at end of file