anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: gtk.lisp,v 1.78 2007-07-10 08:45:06 espen Exp $
  +;; $Id: gtk.lisp,v 1.79 2007-07-12 09:02:13 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:   (declare (ignore function object args))
    (let ((callback (call-next-method))
  	(id (dialog-response-id dialog signal)))
      (if id
  	#'(lambda (dialog response)
  	    (when (= response id)
  	      (funcall callback dialog)))
        callback)))
  
  (defbinding dialog-run () nil
    (dialog dialog))
  
negative.code:   #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
    (when secondary-text
      (message-dialog-format-secondary-markup dialog secondary-text))
    (if (typep buttons 'buttons-type)
        (apply #'call-next-method dialog names (plist-remove :buttons initargs))
      (call-next-method)))
  
  
  (defbinding %message-dialog-new () pointer
  