mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 15:53:13 -08:00
Code Issues Projects Releases Wiki Activity

prep for switch to use ace editor

Browse source
This commit is contained in:
David Botton 2022-07-10 21:52:58 -04:00
parent df44aa8a96
commit 8036651a36
6 changed files with 101 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -483,9 +483,8 @@ place-inside-bottom-of CLOG-OBJ."))
(defmethod text-value ((obj clog-meter)) (defmethod text-value ((obj clog-meter))
(property obj "value")) (property obj "value"))
(defmethod set-text-value ((obj clog-meter) value) (defmethod (setf text-value) (value (obj clog-meter))
(setf (property obj "value") value)) (setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;; ;;;;;;;;;;
;; high ;; ;; high ;;
@ -628,9 +627,8 @@ place-inside-bottom-of CLOG-OBJ."))
(defmethod text-value ((obj clog-progress-bar)) (defmethod text-value ((obj clog-progress-bar))
(property obj "value")) (property obj "value"))
(defmethod set-text-value ((obj clog-progress-bar) value) (defmethod (setf text-value) (value (obj clog-progress-bar))
(setf (property obj "value") value)) (setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;;;;; ;;;;;;;;;;;;;
;; maximum ;; ;; maximum ;;

6
source/clog-element.lisp
View file

@ -484,16 +484,14 @@ Additionally for forms get/setf the value."))
(jquery-query obj (format nil "contents().not(~A.children()).text()" (jquery-query obj (format nil "contents().not(~A.children()).text()"
(jquery obj)))) (jquery obj))))
(defgeneric set-text-value (clog-element value) (defgeneric (setf text-value) (value clog-element)
(:documentation "Set text-value to VALUE for CLOG-ELEMENT")) (:documentation "Set text-value to VALUE for CLOG-ELEMENT"))
(defmethod set-text-value ((obj clog-element) value) (defmethod (setf text-value) (value (obj clog-element))
(jquery-execute obj (jquery-execute obj
(format nil "contents().not(~A.children()).get(0).nodeValue='~A'" (format nil "contents().not(~A.children()).get(0).nodeValue='~A'"
(jquery obj) (escape-string value)))) (jquery obj) (escape-string value))))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; text-direction ;; ;; text-direction ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;

3
source/clog-form.lisp
View file

@ -438,9 +438,8 @@ have this set true ever. Autofocus on element when form loaded."))
(defmethod text-value ((obj clog-form-element)) (defmethod text-value ((obj clog-form-element))
(property obj "value")) (property obj "value"))
(defmethod set-text-value ((obj clog-form-element) value) (defmethod (setf text-value) (value (obj clog-form-element))
(setf (property obj "value") value)) (setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;; radio-value ;; ;; radio-value ;;

5
tools/clog-builder-settings.lisp
View file

@ -333,7 +333,10 @@
(defparameter *props-text* (defparameter *props-text*
`((:name "text" `((:name "text"
:setf clog:text-value))) :get ,(lambda (control)
(text-value control))
:set ,(lambda (control obj)
(setf (text-value control) (text obj))))))
(defparameter *props-css* (defparameter *props-css*
`((:name "css classes" `((:name "css classes"

4
tools/clog-builder.lisp
View file

@ -796,6 +796,10 @@ not a temporary attached one when using select-control."
(setf editor td2) (setf editor td2)
(setf (editablep td2) (funcall (fourth item) control td1 td2))) (setf (editablep td2) (funcall (fourth item) control td1 td2)))
(t (t
;; (setf editor (clog-ace:create-clog-ace-element td2))
;; (setf (clog-ace:theme editor) "ace/theme/xcode")
;; (setf (clog-ace:mode editor) "ace/mode/lisp")
;; (setf (clog-ace:tab-size editor) 2)
(setf editor (create-text-area td2)) (setf editor (create-text-area td2))
(setf (spellcheckp editor) nil) (setf (spellcheckp editor) nil)
(setf (width editor) "95%"))) ; leave space for scroll bar (setf (width editor) "95%"))) ; leave space for scroll bar