From 84d58948bc9cf543ac43e17da28d1a832baeff1a Mon Sep 17 00:00:00 2001 Message-Id: <84d58948bc9cf543ac43e17da28d1a832baeff1a.1714665499.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 5 Feb 2008 13:27:42 +0000 Subject: [PATCH] gtk/gtk.lisp: Make (dialog-run) return the response symbolically. Organization: Straylight/Edgeware From: Mark Wooding This is probably much more useful than reporting the response code! It is, of course, incompatible, which is a shame. --- gtk/gtk.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index cfda67f..b4038d3 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) -- [mdw]