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.8 2002-03-24 13:28:22 espen Exp $
  +;; $Id: gtk.lisp,v 1.9 2002-03-24 15:40:50 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:        (t
  	(setf (object-data dialog %*response-id-key*) (list response-id))
  	0)))
       (t
        (error "Invalid response id: ~A" response-id))))))
  
  (defun %dialog-find-response-id (dialog response-id-num)
    (if (< response-id-num 0)
  
negative.code:     (when default-p
        (%dialog-set-default-response dialog response-id-num))
      widget))
  
  
  (defbinding %dialog-set-default-response () nil
    (dialog dialog)
    (response-id-num int))
  
  (defun dialog-set-default-response (dialog response-id)
    (%dialog-set-default-response
     dialog (%dialog-find-response-id-num dialog response-id nil t)))
  
  (defbinding dialog-set-response-sensitive (dialog response-id sensitive) nil
    (dialog dialog)
    ((%dialog-find-response-id-num dialog response-id nil t) int)
    (sensitive boolean))
  
  
  ;; Addition dialog functions
  
  (defmethod container-add ((dialog dialog) (child widget) &rest args)
    (apply #'container-add (slot-value dialog 'main-area) child args))
  
  (defmethod container-remove ((dialog dialog) (child widget))
    (container-remove (slot-value dialog 'main-area) child))
  
  (defmethod container-children ((dialog dialog))
    (container-children (dialog-main-area dialog)))
  
  (defmethod (setf container-children) (children (dialog dialog))
    (setf (container-children (dialog-main-area dialog)) children))
  
  
  
  ;;; Drawing area -- no functions
  
  
  
  