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

add select-text

Browse source
This commit is contained in:
David Botton 2022-03-02 13:46:36 -05:00
parent 956cca8fa9
commit 9bdba6c136
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-form.lisp
View file

@ -1067,6 +1067,17 @@ optionally fill in with contents of data-list."))
(escape-string content))
:clog-type 'clog-element :auto-place t))
;;;;;;;;;;;;;;;;;
;; select-text ;;
;;;;;;;;;;;;;;;;;
(defgeneric select-text (clog-obj)
(:documentation "Returns the text of selected item."))
(defmethod select-text ((obj clog-obj))
(clog-connection:query (connection-id obj)
(format nil "$('#~A option:selected').text()" (html-id obj))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-option
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1
source/clog.lisp
View file

@ -684,6 +684,7 @@ embedded in a native template application.)"
(add-select-option generic-function)
(add-select-options generic-function)
(add-select-optgroup generic-function)
(select-text generic-function)
"CLOG-Data-List - Class for CLOG Option Data Lists"
(clog-data-list class)