From 7defde44ca5d1db8d76ccc73a6714e1c5ef85e1e Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Thu, 1 Nov 2007 15:05:00 +0000
Subject: [PATCH] CAN-DEFAULT implicit set to T by DIALOG-ADD-ACTION-WIDGET
 when DEFAULT is non NIL

---
 gtk/gtk.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index ed1a2dc..0f2d37e 100644
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtk.lisp,v 1.84 2007-10-17 16:59:12 espen Exp $
+;; $Id: gtk.lisp,v 1.85 2007-11-01 15:05:00 espen Exp $
 
 
 (in-package "GTK")
@@ -876,6 +876,7 @@
     (when (functionp response)
        (signal-connect dialog signal response :object object :after after))
     (when default
+      (setf (widget-can-default-p widget) t)
       (%dialog-set-default-response dialog id))
     widget))
 
-- 
2.11.0