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:        (rassoc
  	(list response-id-num)
  	(rest (type-expand-1 'response-type)) :test #'equal))
      (aref (object-data dialog %*response-id-key*) response-id-num )))
  
  
  (defmethod signal-connect ((dialog dialog) signal function &key object after)
  
negative.code: 
  (defun dialog-add-button (dialog label &optional (response label)
  			  &key default object after)
    "Adds a button to the dialog."
    (let* ((id (if (functionp response)
  		 label
  	       response))
  