anchor.diff:  ;; 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 $
  +;; $Id: gtk.lisp,v 1.21 2004-12-16 23:49:53 espen Exp $
   
   
   (in-package "GTK")
  
positive.code: 
  ;;;; Dialog
  
  (defmethod shared-initialize ((dialog dialog) names &rest initargs &key button)
    (declare (ignore button))
    (call-next-method)
    (dolist (button-definition (get-all initargs :button))
      (apply #'dialog-add-button dialog (mklist button-definition))))
    
  
  (defvar %*response-id-key* (gensym))
  
negative.code:   (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
  
  