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

[CVS User rklochkov]

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

Modified Files:
	container.lisp package.lisp widget.lisp 
Log Message:
Fixed examples/ex6


--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/container.lisp	2011/08/26 17:16:14	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/container.lisp	2012/05/07 09:32:47	1.3
@@ -36,11 +36,6 @@
 (defmethod (setf kid) (kid (container container))
   (pack container kid))
 
-(defcfun "gtk_widget_reparent" :void (widget pobject) (parent pobject))
-
-(defmethod reparent ((widget widget) (new-parent container))
-  (gtk-widget-reparent widget new-parent))
-
 (defmethod initialize-instance
   :after ((container container)
           &key kid kids &allow-other-keys)
@@ -126,3 +121,10 @@
 (defmethod container-remove ((container container) (widget widget))
   (gtk-container-remove container widget))
 
+(defcfun gtk-container-propagate-draw 
+    :void (container pobject) (child pobject) (context :pointer))
+
+(defmethod propagate-draw ((container container) (widget widget) 
+                           &optional (context cl-cairo2:*context*))
+  (gtk-container-propagate-draw container widget 
+                                (cl-cairo2::get-pointer context)))
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2012/05/07 09:02:04	1.18
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2012/05/07 09:32:47	1.19
@@ -190,9 +190,10 @@
    #:container
    ;; container slots
    #:border-width
+   #:child-property
    ;; methods
    #:add
-   #:propagate-expose
+   #:propagate-draw
    
    #:window
    ;; window slots
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2012/05/07 09:02:04	1.12
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2012/05/07 09:32:47	1.13
@@ -180,6 +180,7 @@
   ((widget-event . event) :boolean (event event))
   (send-expose :int (event event))
   (send-focus-change :boolean (event event))
+  (reparent :void (new-parent pobject))
   (is-focus :boolean)
   (grab-focus :void)
   (grab-default :void)