gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin.

So relax the type check on the return value of `gtk:%dialog-add-button'.

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index b4038d30b9a39e3fb9fb944cd5e07d0bc3b96777..f193114e85b3f7e2a90e0f3bef6136688fb0ce60 100644 (file)
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -875,7 +875,7 @@ (defbinding dialog-response (dialog response) nil
   ((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))