chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin.
[clg]
/
gtk
/
gtk.lisp
diff --git
a/gtk/gtk.lisp
b/gtk/gtk.lisp
index cfda67fffc5960a2f410a8b7f9ff2bbb06d01b15..f193114e85b3f7e2a90e0f3bef6136688fb0ce60 100644
(file)
--- a/
gtk/gtk.lisp
+++ b/
gtk/gtk.lisp
@@
-865,15
+865,17
@@
(defmethod compute-signal-function ((dialog dialog) signal function object args)
(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
(dialog dialog))
(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-response (dialog response) nil
(dialog dialog)
((dialog-response-id dialog response nil t) int))
-(defbinding %dialog-add-button () b
utto
n
+(defbinding %dialog-add-button () b
i
n
(dialog dialog)
(text string)
(response-id int))
(dialog dialog)
(text string)
(response-id int))