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

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))
(property obj "value"))
(defmethod set-text-value ((obj clog-meter) value)
(defmethod (setf text-value) (value (obj clog-meter))
(setf (property obj "value") value))
(defsetf text-value set-text-value)
;;;;;;;;;;
;; high ;;
@ -628,9 +627,8 @@ place-inside-bottom-of CLOG-OBJ."))
(defmethod text-value ((obj clog-progress-bar))
(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))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;
;; 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 obj))))
(defgeneric set-text-value (clog-element value)
(defgeneric (setf text-value) (value 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
(format nil "contents().not(~A.children()).get(0).nodeValue='~A'"
(jquery obj) (escape-string value))))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;;;;;;;;
;; 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))
(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))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;;;;;
;; radio-value ;;

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

@ -333,7 +333,10 @@
(defparameter *props-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*
`((: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 (editablep td2) (funcall (fourth item) control td1 td2)))
(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 (spellcheckp editor) nil)
(setf (width editor) "95%"))) ; leave space for scroll bar