[gtk-cffi-cvs] CVS gtk-cffi/gdk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gdk
In directory tiger.common-lisp.net:/tmp/cvs-serv28209/gdk

Modified Files:
	event.lisp 
Log Message:
Fixed examples. Changed cell properties for tree-column to be set as :attributes
Fixed double init in g-value.


--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/event.lisp	2012/08/24 19:27:54	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/event.lisp	2012/10/07 12:02:11	1.5
@@ -2,7 +2,7 @@
 
 (defctype device :pointer)
 
-(defctype window :pointer)
+(defctype window pobject)
 
 (defctype axes :pointer) ;; array of double
 
@@ -125,7 +125,7 @@
   (type event-type)
   (window window)
   (send-event :int8)
-  (area rectangle)
+  (area (:struct rectangle))
   (region region)
   (count :int))
 
@@ -237,7 +237,7 @@
   (send-event :int8)
   (message-tyoe gdk-atom)
   (data-format :ushort)
-  (data client-data-union))
+  (data (:union client-data-union)))
 
 (defcstruct event-no-expose
   ""
@@ -292,26 +292,26 @@
 
 (defcunion event
   (type event-type)
-  (any event-any)
-  (expose event-expose)
-  (no-expose event-no-expose)
-  (visibility event-visibility)
-  (motion event-motion)
-  (button event-button)
-  (scroll event-scroll)
-  (key event-key)
-  (crossing event-crossing)
-  (focus-change event-focus)
-  (configure event-configure)
-  (property event-property)
-  (selection event-selection)
-  (owner-change event-owner-change)
-  (proximity event-proximity)
-  (client event-client)
-  (dnd event-dnd)
-  (window-state event-window-state)
-  (setting event-setting)
-  (grab-broken event-grab-broken)) 
+  (any (:struct event-any))
+  (expose (:struct event-expose))
+  (no-expose (:struct event-no-expose))
+  (visibility (:struct event-visibility))
+  (motion (:struct event-motion))
+  (button (:struct event-button))
+  (scroll (:struct event-scroll))
+  (key (:struct event-key))
+  (crossing (:struct event-crossing))
+  (focus-change (:struct event-focus))
+  (configure (:struct event-configure))
+  (property (:struct event-property))
+  (selection (:struct event-selection))
+  (owner-change (:struct event-owner-change))
+  (proximity (:struct event-proximity))
+  (client (:struct event-client))
+  (dnd (:struct event-dnd))
+  (window-state (:struct event-window-state))
+  (setting (:struct event-setting))
+  (grab-broken (:struct event-grab-broken)))
 
 (defclass event (object)
   ((event-type :accessor event-type)))
@@ -320,7 +320,7 @@
   :after ((event event)
           &key pointer &allow-other-keys)
   (setf (event-type event)
-        (case (foreign-slot-value pointer 'event 'type)
+        (case (foreign-slot-value pointer '(:union event) 'type)
           ((:nothing :delete :destroy :map :unmap) 'event-any)
           (:expose 'event-expose)
           (:motion-notify 'event-motion)