X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/0e932da14038fac734e85246659f2a27853817b2..HEAD:/gtk/gtk.lisp

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index cfda67f..f193114 100644
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -865,15 +865,17 @@
 	  (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)
   ((dialog-response-id dialog response nil t) int))
 
 
-(defbinding %dialog-add-button () button
+(defbinding %dialog-add-button () bin
   (dialog dialog)
   (text string)
   (response-id int))