(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)