From 8fd02d47d6ab7345c7e6374765f1aac36bf645ad Mon Sep 17 00:00:00 2001 From: Lars Engblom Date: Wed, 5 May 2021 22:30:57 +0300 Subject: [PATCH] Fix problem with disabledp --- source/clog-element-common.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/source/clog-element-common.lisp b/source/clog-element-common.lisp index dd22904..2eadfdd 100644 --- a/source/clog-element-common.lisp +++ b/source/clog-element-common.lisp @@ -166,7 +166,9 @@ CLOG-OBJ")) (:documentation "Set editable VALUE for CLOG-BUTTON")) (defmethod set-disabledp ((obj clog-button) value) - (setf (property obj "disabled") (p-true-js value))) + (if value + (setf (property obj "disabled") (p-true-js value)) + (remove-attribute obj "disabled"))) (defsetf disabledp set-editable) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;