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:       (make-instance 'v-box
         :parent dialog :border-width 10 :spacing 10 :show-all t
         :child (create-button "button1" "This is button 1" "ContextHelp/button/1")
         :child (create-button "button2" "This is button 2. This is also a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly." "ContextHelp/button/2")))))
  
  
  ;;; UI Manager
  