anchor.diff:  		 (make-instance 'radio-menu-item
   		  :label (format nil "item ~2D - ~D" depth (1+ i)))))
    	    (if group
  - 		(radio-menu-item-add-to-group menu-item group)
  + 		(add-to-radio-group menu-item group)
    	      (setq group menu-item))
   	    (unless (zerop (mod depth 2))
   	      (setf (check-menu-item-active-p menu-item) t))
  
positive.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)
  
negative.code: 	(signal-connect notebook 'switch-page
  	 #'(lambda (pointer page)
  	     (declare (ignore pointer))
  	     (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)))
  		 (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))
  