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

[CVS User rklochkov]

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

Modified Files:
	ex6.lisp 
Log Message:
Fixed examples/ex6


--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex6.lisp	2012/05/07 09:02:03	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex6.lisp	2012/05/07 09:32:46	1.4
@@ -40,17 +40,20 @@
          (dest-x (- (width (allocation widget)) w))
          (dest-y 0))
     (format t "~a~%" pixbuf)
-    (unless (cffi:null-pointer-p (cffi-objects:pointer pixbuf))
       (cl-cairo2:with-context ((make-instance 'cl-cairo2:context 
                                               :pointer context))
-        (cairo-set-source-pixbuf pixbuf dest-x dest-y)
-        (cl-cairo2:paint)))
+        (unless (cffi:null-pointer-p (cffi-objects:pointer pixbuf))
+          (cairo-set-source-pixbuf pixbuf dest-x dest-y)
+          (cl-cairo2:paint))
+        (let ((ch (child widget)))
+          (when ch (propagate-draw widget ch)))))
+  t)
+    
 ;    (draw-pixbuf (gdk-window widget)
 ;                 (style-field widget :bg-gc) pixbuf 0 0 dest-x dest-y)
     ;(let ((ch (child widget)))
     ;  (when ch
     ;    (propagate- widget ch event)))
-    t))
       
 
 (let  ((eventbox-left (make-instance 'event-box))