chiark / gitweb /
gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin. master
authorMark Wooding <mdw@distorted.org.uk>
Fri, 22 Mar 2013 02:21:45 +0000 (02:21 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 22 Mar 2013 02:21:45 +0000 (02:21 +0000)
So relax the type check on the return value of `gtk:%dialog-add-button'.

gtk/gtk.lisp

index b4038d3..f193114 100644 (file)
@@ -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))