anchor.diff:    (let ((spinner (make-instance 'spin-button 
   		  :adjustment (adjustment-new 
   			       0 0 
  -			       (1- (enum-int :last-cursor 'gdk:cursor-type))
  +			       (1- (glib:enum-int :last-cursor 'gdk:cursor-type))
   			       2 10 0)))
   	(drawing-area (make-instance 'drawing-area
   		       :width-request 80 :height-request 80
  
positive.code:                       :justify :fill :wrap t)
  
  	     :child (create-label-in-frame "Underlined label"
  "This label is underlined!
  This one is underlined (こんにちは) in quite a funky fashion"
                        :justify :left
  	              :pattern  "_________________________ _ _________ _ _____ _ __ __  ___ ____ _____")))))
  
  
negative.code:     
  (define-simple-dialog create-list (dialog "List" :default-height 400)
    (let* ((store (make-instance 'list-store 
  		 :column-types '(string integer boolean)
  		 :column-names '(:foo :bar :baz)
  		 :initial-content '(#("First" 12321 nil)
  				    (:foo "Yeah" :baz t))))
  