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.24 2004-12-20 22:43:26 espen Exp $
  +;; $Id: gtk.lisp,v 1.25 2004-12-20 23:19:19 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:     (initial-apply-add dialog #'dialog-add-button initargs :button :buttons)))
    
  
  (defvar %*response-id-key* (gensym))
  
  (defun %dialog-find-response-id-num (dialog id &optional create-p error-p)
    (or
     (cadr (assoc id (rest (type-expand-1 'response-type))))
     (let ((response-ids (object-data dialog %*response-id-key*)))
      (cond
        ((and response-ids (position id response-ids :test #'equal)))
        (create-p
  
negative.code: 	  (1- (length response-ids)))
  	 (t
  	  (setf 
  	   (object-data dialog 'response-id-key)
  	   (make-array 1 :adjustable t :fill-pointer t :initial-element id))
  	  0)))
        (error-p
  