anchor.diff:   	    ("buttons" create-buttons)
    	    ("calendar" create-calendar)
    	    ("check buttons" create-check-buttons)
  -;; 	    ("clist" #|create-clist|#)
    	    ("color selection" create-color-selection)
  -;; 	    ("ctree" #|create-ctree|#)
   ;; 	    ("cursors" #|create-cursors|#)
    	    ("dialog" create-dialog)
   ;; ;  	    ("dnd")
  
positive.code: ;; 	    ("item factory")
   	    ("labels" create-labels)
   	    ("layout" create-layout)
  ;; 	    ("list" create-list)
  	    ("menus" create-menus)
  ;; 	    ("modal window")
   	    ("notebook" create-notebook)
  
negative.code: 
  ;;; List    
      
  (define-simple-dialog create-list (dialog "List" :default-height 400)
    (let ((store (make-instance 'list-store 
  		:column-types '(string int boolean)
  		:column-names '(:foo :bar :baz)
  		:initial-content '(#("First" 12321 nil)
  				   (:foo "Yeah" :baz t)))))
  
      (loop
       with iter = (make-instance 'tree-iter)
       for i from 1 to 1000
       do (list-store-append store (vector "Test" i (zerop (mod i 3))) iter))
  
      (let ((tree (make-instance 'tree-view :model store)))
        (let ((column (make-instance 'tree-view-column :title "Column 1"))
  	    (cell (make-instance 'cell-renderer-text)))
  	(cell-layout-pack column cell)
  	(cell-layout-add-attribute column cell 'text (column-index store :foo))
  	(tree-view-append-column tree column))
  
        (let ((column (make-instance 'tree-view-column :title "Column 2"))
  	    (cell (make-instance 'cell-renderer-text :background "orange")))
  	(cell-layout-pack column cell)
  	(cell-layout-add-attribute column cell 'text (column-index store :bar))
  	(tree-view-append-column tree column))      
  
        (let ((column (make-instance 'tree-view-column :title "Column 3"))
  	    (cell (make-instance 'cell-renderer-text)))
  	(cell-layout-pack column cell)
  	(cell-layout-add-attribute column cell 'text (column-index store :baz))
  	(tree-view-append-column tree column))      
  
        (make-instance 'scrolled-window 
         :parent dialog :child tree :show-all t :border-width 10 
         :hscrollbar-policy :automatic))))
  
  
  ;; Menus
  