chiark / gitweb /
gtk/gtk.lisp: Make (dialog-run) return the response symbolically.
authorMark Wooding <mdw@distorted.org.uk>
Tue, 5 Feb 2008 13:27:42 +0000 (13:27 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 22 Mar 2013 00:52:55 +0000 (00:52 +0000)
This is probably much more useful than reporting the response code!  It
is, of course, incompatible, which is a shame.

gtk/gtk.lisp

index cfda67f..b4038d3 100644 (file)
@@ -865,8 +865,10 @@ (defmethod compute-signal-function ((dialog dialog) signal function object args)
          (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 
-(defbinding dialog-run () nil
+(defbinding %dialog-run () int
   (dialog dialog))
+(defun dialog-run (dialog)
+  (dialog-find-response dialog (%dialog-run dialog)))
 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)