anchor.diff:      (ui-manager-insert-action-group ui actions)
       (ui-manager-add-ui ui *ui-description*)
   
  -    (window-add-accel-group dialog (ui-manager-accel-group ui))
  +    (window-add-accel-group window (ui-manager-accel-group ui))
       
       (make-instance 'v-box 
  -     :parent dialog :show-all t
  +     :parent window :show-all t
        :child (list 
   	     (ui-manager-get-widget ui "/MenuBar")
   	     :expand nil :fill nil)
  
positive.code:  	    ("rulers" create-rulers)
  ;; 	    ("saved position")
   	    ("scrolled windows" create-scrolled-windows)
  ;; 	    ("shapes" create-shapes)
   	    ("spinbutton" create-spins)
   	    ("statusbar" create-statusbar)
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: testgtk.lisp,v 1.11 2004-12-17 00:45:00 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  