[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-other.lisp

[Peter Denno]

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