anchor.diff:         ,@body)))
   
   
  -(defun build-option-menu (items history)
  -  (let ((option-menu (option-menu-new))
  -	(menu (menu-new)))
  -    (labels ((create-menu (items i group)
  -	       (when items
  -		 (let* ((item (first items))
  -			(menu-item (radio-menu-item-new group (first item))))
  -		   (signal-connect
  -		    menu-item 'activate
  -		    #'(lambda ()
  -			(when (widget-mapped-p menu-item)
  -			  (funcall (second item)))))
  -		   
  -		   (menu-append menu menu-item)
  -		   (when (= i history)
  -		     (setf (check-menu-item-active-p menu-item) t))
  -		   (widget-show menu-item)
  -		   (create-menu
  -		    (rest items) (1+ i) (radio-menu-item-group menu-item))))))
  -      (create-menu items 0 nil))
  -    (setf (option-menu-menu option-menu) menu)
  -    (setf (option-menu-history option-menu) history)
  -    option-menu))
  -
  -
   
   ;;; Pixmaps used in some of the tests
   
   (defvar gtk-mini-xpm
  -  '("15 20 17 1"
  +  #("15 20 17 1"
       "       c None"
       ".      c #14121F"
       "+      c #278828"
  
positive.code: (define-standard-dialog create-radio-buttons "Radio buttons"
    (setf (container-border-width main-box) 10)
    (setf (box-spacing main-box) 10)
    (let* ((button1 (radio-button-new nil :label "button1"))
  	 (button2 (radio-button-new
  		   (radio-button-group button1) :label "button2"))
  	 (button3 (radio-button-new
  		   (radio-button-group button2) :label "button3")))
      (box-pack-start main-box button1 t t 0)
      (box-pack-start main-box button2 t t 0)
      (setf (toggle-button-active-p button2) t)
      (box-pack-start main-box button3 t t 0)))
  
  
  
  ;;; Rangle controls
  
negative.code: 
        (let ((hbox (hbox-new nil 5))
  	    (option-menu
  	     (create-option-menu
  	      `(("Single"
  		 ,#'(lambda () (setf (list-selection-mode list) :single)))
  		("Browse"
  