X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/c5e634c2fd2e424dc8c1b6673500cad27727055f..refs/heads/try:/gtk/gtk.lisp?ds=inline

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 0a7f354..c5d3d54 100644
--- 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))))
 
-(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)