mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-17 07:40:47 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request #63 from engblom/disabledp-fix

Browse source 
Fix problem with disabledp
This commit is contained in:
David Botton 2021-05-10 12:07:57 -04:00 • committed by GitHub
commit 963ef3091b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-element-common.lisp
View file

@ -166,7 +166,9 @@ CLOG-OBJ"))
(:documentation "Set editable VALUE for CLOG-BUTTON")) (:documentation "Set editable VALUE for CLOG-BUTTON"))
(defmethod set-disabledp ((obj clog-button) value) (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) (defsetf disabledp set-editable)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;