gtk/gtk.lisp: Make (dialog-run) return the response symbolically.

This is probably much more useful than reporting the response code!  It
is, of course, incompatible, which is a shame.

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index cfda67fffc5960a2f410a8b7f9ff2bbb06d01b15..b4038d30b9a39e3fb9fb944cd5e07d0bc3b96777 100644 (file)
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -865,8 +865,10 @@ (defmethod compute-signal-function ((dialog dialog) signal function object args)
          (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 
          (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 

-(defbinding dialog-run () nil
+(defbinding %dialog-run () int

   (dialog dialog))
   (dialog dialog))

+(defun dialog-run (dialog)
+  (dialog-find-response dialog (%dialog-run dialog)))

 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)
 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)