This is probably much more useful than reporting the response code! It
is, of course, incompatible, which is a shame.
(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
+(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)