CAN-DEFAULT implicit set to T by DIALOG-ADD-ACTION-WIDGET when DEFAULT is non NIL

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 01a4cb77f625ad4ed52b50fdba9012bdb73ab606..916f3c3f965a85511cbf85f8b7834680580996bd 100644 (file)
--- 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.
 
 ;; 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")
 
 
 (in-package "GTK")


@@ -876,6 +876,7 @@ (defun dialog-add-action-widget (dialog widget &optional (response widget)
     (when (functionp response)
        (signal-connect dialog signal response :object object :after after))
     (when default
     (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))
 
       (%dialog-set-default-response dialog id))
     widget))