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