anchor.diff:  (define-simple-dialog create-reparent (dialog "Reparent")
     (let ((main (make-instance 'h-box 
   	       :homogeneous t :spacing 10 :border-width 10 :parent dialog))
  -	(label (make-instance 'label :label "Hellow World")))
  +	(label (make-instance 'label :label "Hello World")))
   
       (flet ((create-frame (title)
   	     (let* ((frame (make-instance 'frame :label title :parent main))
  
positive.code: 	    (menu-shell-append menu menu-item)
  	    (when (= i 3)
  	      (setf (widget-sensitive-p menu-item) nil))
  	    (setf (menu-item-submenu menu-item) (create-menu (1- depth) t)))))
        menu)))
  
  
  
negative.code: 		       :signal (list 'clicked #'widget-destroy 
  				     :object main-window)))) 
  
      (let ((icon (gdk:pixbuf-load #p"clg:examples;gtk.png")))
        (setf 
         (window-icon main-window) 
         (gdk:pixbuf-add-alpha icon t 254 254 252)))
  
      ;; Main box
      (make-instance 'v-box
  