anchor.diff:    (:metaclass gobject-class)
     (:alien-name "GtkStyle"))
   
  -; (define-boxed accel-group :c-name "GtkAccelGroup")
  -
  -
  -(deftype (accel-group "GtkAccelGroup") () 'pointer)
  -
  -(deftype accel-entry () 'pointer)
  -(deftype radio-button-group () 'pointer)
  +
  +(defclass accel-group (alien-object)
  +  ()
  +  (:metaclass alien-class)
  +  (:alien-name "GtkAccelGroup"))
  +
  +(deftype accel-entry () 'pointer) ; internal?
  +
  +
  +;; These types are actully a single linked lists of widgets. As long as
  +;; we don't have to access the individual widgets defining them this way
  +;; is adequate and most efficient.
  +(deftype radio-button-group () 'pointer) 
   (deftype radio-menu-item-group () 'pointer)
  -; (define-boxed ctree-node :c-name "GtkCTreeNode")
   
   
   (defclass data (object)
  
positive.code:   (:metaclass child-class))
  
  
  
  ; (defclass statusbar hbox)
  
  ; (defclass clist container
  ;   :c-name "GtkCList"
  ;   :c-prefix "gtk_clist_"
  
negative.code: (defclass list-item-child (item-child))
    
  
  ;; deprecated
  (defclass tree-item (item)
    ()
  ;   :slots
  