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

Give form-dialog textarea capability

Browse source 
Adds generic function textarea-value in clog-form.lisp

Exports textarea-value in clog.lisp

Adds the option into form-dialog in clog-gui.lisp, with additional key
parameters for size and rows and adds it to the list of special field
types in the doc string.
This commit is contained in:
Sabra Crolleton 2023-10-02 10:32:25 -04:00
parent 6302deb6e6
commit 4a92ce256a
3 changed files with 56 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

12
source/clog-form.lisp
View file

@ -465,6 +465,18 @@ be unique name on entire document."))
(clog-connection:query (connection-id obj)
(format nil "$('select[name=~A] option:selected').val()" name)))
;;;;;;;;;;;;;;;;
;; textarea-value ;;
;;;;;;;;;;;;;;;;
(defgeneric textarea-value (clog-obj name)
(:documentation "Returns the value of textarea item called NAME and must
be unique name on entire document."))
(defmethod textarea-value ((obj clog-obj) name)
(clog-connection:query (clog::connection-id obj)
(format nil "$('textarea#~A').val()" name)))
;;;;;;;;;;;;;;;;
;; name-value ;;
;;;;;;;;;;;;;;;;