anchor.diff:    (progress-bar progress-bar))
   
   
  +;;; Size group
  +
  +(defmethod initialize-instance ((size-group size-group) &rest initargs 
  +				&key widget widgets)
  +  (declare (ignore widget widgets))
  +  (prog1
  +      (call-next-method)
  +    (initial-add size-group #'size-group-add-widget 
  +     initargs :widget :widgets)))
  +
  +
  +(defbinding size-group-add-widget () nil
  +  (size-group size-group)
  +  (widget widget))
  +
  +(defbinding size-group-remove-widget () nil
  +  (size-group size-group)
  +  (widget widget))
  +
   
   ;;; Stock items
   
  
positive.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: gtk.lisp,v 1.20 2004-12-04 00:34:49 espen Exp $
  
  
  (in-package "GTK")
  
negative.code: 
  ;;;; Dialog
  
  (defmethod shared-initialize ((dialog dialog) names &rest initargs 
  			      &key button buttons)
    (declare (ignore button buttons))
    (prog1
        (call-next-method)
      (initial-apply-add dialog #'dialog-add-button initargs :button :buttons)))
    
  
  (defvar %*response-id-key* (gensym))
  