anchor.diff:  (define-simple-dialog create-radio-buttons (dialog "Radio buttons")
     (make-instance 'v-box
      :parent dialog :border-width 10 :spacing 10 :show-all t
  -   :children (create-radio-button-group '("button1" "button2" "button3") 1)))
  +   :children (make-radio-group 'radio-button
  +	      '((:label "button1") (:label "button2") (:label "button3"))
  +	      nil)))
   
   
   ;;; Rangle controls
  
positive.code: ;; Common Lisp bindings for GTK+ v2.0
  ;; Copyright (C) 1999-2000 Espen S. Johnsen <espejohn@online.no>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  
negative.code:      :child (make-instance 'frame
  	     :label "Label Container" :border-width 5
  	     :child(make-instance 'v-box
  		   :children (make-radio-group 'radio-button
  			      '((:label "Resize-Parent" :value :parent :active t)
  				(:label "Resize-Queue" :value :queue)
  				(:label "Resize-Immediate" :value :immediate))
  			      #'(lambda (mode)
   				  (setf 
   				   (container-resize-mode (dialog-action-area dialog)) mode))))))
  