anchor.diff:  	(signal-connect notebook 'switch-page
   	 #'(lambda (pointer page)
   	     (declare (ignore pointer))
  -	     (unless (eq page (notebook-current-page-num notebook))
  -	       (set-image page #'notebook-menu-label book-open)
  -	       (set-image page #'notebook-tab-label book-open)
  +	     (set-image page #'notebook-menu-label book-open)
  +	     (set-image page #'notebook-tab-label book-open)
  +	     (when (slot-boundp notebook 'current-page)
   	       (let ((curpage (notebook-current-page notebook)))
  - 		 (when curpage
  - 		   (set-image curpage #'notebook-menu-label book-closed)
  - 		   (set-image curpage #'notebook-tab-label book-closed)))))))
  +		 (set-image curpage #'notebook-menu-label book-closed)
  +		 (set-image curpage #'notebook-tab-label book-closed))))))
         (loop for i from 1 to 5 do (create-notebook-page notebook i book-closed))
   
         (make-instance 'h-separator :parent (list main :expand nil :padding 10))
  
positive.code: ;; 	   :tip-text "GTK+ Logo"
  ;; 	   :tip-private "Toolbar/GTK+")
     ))
  
  
  
  
negative.code:  	    ("enxpander" create-expander)
   	    ("file chooser" create-file-chooser)
  ;; 	    ("font selection")
   	    ("handle box" create-handle-box)
   	    ("image" create-image)
   	    ("labels" create-labels)
   	    ("layout" create-layout)
  