mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Check data carefully.

Browse source
This commit is contained in:
Jingtao Xu 2024-01-16 10:28:47 +08:00
parent f5420f9f24
commit d284e7571b
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-element.lisp
View file

@ -137,9 +137,12 @@ after attachment is changed to one unique to this session."))
(:documentation "Set css style.")) (:documentation "Set css style."))
(defmethod (setf style) (value (obj clog-element) style-name) (defmethod (setf style) (value (obj clog-element) style-name)
(jquery-execute obj (format nil "css('~A','~A')" ;; Make sure value is a string
style-name (escape-string value))) (let ((value (escape-string (if (stringp value)
value) value
(princ-to-string value)))))
(jquery-execute obj (format nil "css('~A','~A')" style-name value))
value))
(defgeneric set-styles (clog-element style-list) (defgeneric set-styles (clog-element style-list)
(:documentation "Set css styles using a list of lists of name value pairs.")) (:documentation "Set css styles using a list of lists of name value pairs."))

2
source/clog-gui.lisp
View file

@ -1117,7 +1117,7 @@ interactions. Use window-end-modal to undo."))
(defmethod window-make-modal ((obj clog-gui-window)) (defmethod window-make-modal ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui"))) (let ((app (connection-data-item obj "clog-gui")))
(when (= (modal-count app) 0) (when (and app (= (modal-count app) 0))
(setf (modal-background app) (create-div (body app) :class "w3-overlay")) (setf (modal-background app) (create-div (body app) :class "w3-overlay"))
(setf (display (modal-background app)) :block)) (setf (display (modal-background app)) :block))
(incf (modal-count app)) (incf (modal-count app))