mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
Give form-dialog textarea capability
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
parent
6302deb6e6
commit
4a92ce256a
3 changed files with 56 additions and 22 deletions
|
|
@ -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 ;;
|
||||
;;;;;;;;;;;;;;;;
|
||||
|
|
|
|||
|
|
@ -1614,6 +1614,7 @@ Calls on-input with t if confirmed or nil if canceled."
|
|||
(cancel-text "Cancel")
|
||||
(left nil) (top nil)
|
||||
(width 400) (height 500)
|
||||
(size 40) (rows 4)
|
||||
(client-movement nil)
|
||||
(html-id nil))
|
||||
"Create a form dialog box with CONTENT followed by FIELDS.
|
||||
|
|
@ -1632,10 +1633,13 @@ Special field types
|
|||
:checkbox t if checked
|
||||
:radiobox a-list ((label name)) a third value can be added \"checked\"
|
||||
:select a-list ((label name)) a third value can be added \"selected\"
|
||||
:textarea value
|
||||
:text value
|
||||
(any text input types also work :email, :tel, etc.
|
||||
see FORM-ELEMENT-TYPE)
|
||||
|
||||
The size of any texarea field is controled by the size and rows parameters
|
||||
|
||||
Calls on-input after OK or Cancel with an a-list of field name to value
|
||||
if confirmed or nil if canceled."
|
||||
(unless html-id
|
||||
|
|
@ -1666,17 +1670,17 @@ if confirmed or nil if canceled."
|
|||
(format nil "~{~A~}"
|
||||
(mapcar (lambda (s)
|
||||
(format nil
|
||||
"<div><input type=radio class='w3-radio' name='~A-~A'~
|
||||
"<div><input type=radio class='w3-radio' name='~A-~A'~
|
||||
id='~A-~A-~A' value='~A' ~A> ~
|
||||
<label for='~A-~A-~A'>~A</label></div>"
|
||||
html-id (second l)
|
||||
html-id (second l) (second s)
|
||||
(second s)
|
||||
(if (third s)
|
||||
(third s)
|
||||
"")
|
||||
html-id (second l) (second s)
|
||||
(first s)))
|
||||
html-id (second l)
|
||||
html-id (second l) (second s)
|
||||
(second s)
|
||||
(if (third s)
|
||||
(third s)
|
||||
"")
|
||||
html-id (second l) (second s)
|
||||
(first s)))
|
||||
(fourth l)))))
|
||||
((eq (third l) :checkbox)
|
||||
(format nil
|
||||
|
|
@ -1691,26 +1695,41 @@ if confirmed or nil if canceled."
|
|||
"")
|
||||
html-id (second l)
|
||||
(first l)))
|
||||
((eq (third l) :textarea)
|
||||
(format nil
|
||||
"<div><label class='w3-text-black'><b>~A</b></label>
|
||||
<textarea
|
||||
name='~A-~A' id='~A-~A' cols='~A' rows='~A'>~A</textarea></div>"
|
||||
(first l)
|
||||
html-id
|
||||
(second l)
|
||||
html-id
|
||||
(second l)
|
||||
size
|
||||
rows
|
||||
(if (fourth l)
|
||||
(fourth l)
|
||||
"")))
|
||||
((third l)
|
||||
(format nil
|
||||
"<div><label class='w3-text-black'><b>~A</b></label>~
|
||||
<input class='w3-input w3-border' type='~A'~
|
||||
name='~A-~A' id='~A-~A' value='~A'></div>"
|
||||
(first l) (third l)
|
||||
html-id (second l) html-id (second l)
|
||||
(if (fourth l)
|
||||
(fourth l)
|
||||
"")))
|
||||
(first l) (third l)
|
||||
html-id (second l) html-id (second l)
|
||||
(if (fourth l)
|
||||
(fourth l)
|
||||
"")))
|
||||
(t
|
||||
(format nil
|
||||
"<div><label class='w3-text-black'><b>~A</b></label>~
|
||||
"<div><label class='w3-text-black'><b>~A</b></label>~
|
||||
<input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>"
|
||||
(first l) html-id (second l) html-id (second l)))))
|
||||
(first l) html-id (second l) html-id (second l)))))
|
||||
fields)))
|
||||
(win (create-gui-window obj
|
||||
:title title
|
||||
:content (format nil
|
||||
"<div class='w3-panel'>
|
||||
"<div class='w3-panel'>
|
||||
~A
|
||||
<form class='w3-container' onSubmit='return false;'>
|
||||
~A
|
||||
|
|
@ -1722,9 +1741,9 @@ if confirmed or nil if canceled."
|
|||
</div>" (if content
|
||||
(format nil "<center>~A</center><br>" content)
|
||||
"")
|
||||
fls
|
||||
html-id ok-text ; ok
|
||||
html-id cancel-text) ; cancel
|
||||
fls
|
||||
html-id ok-text ; ok
|
||||
html-id cancel-text) ; cancel
|
||||
:top top
|
||||
:left left
|
||||
:width width
|
||||
|
|
@ -1746,8 +1765,8 @@ if confirmed or nil if canceled."
|
|||
(mapcar (lambda (l)
|
||||
(when (eq (third l) :filename)
|
||||
(let ((fld (attach-as-child body (format nil "~A-~A"
|
||||
html-id
|
||||
(second l))
|
||||
html-id
|
||||
(second l))
|
||||
:clog-type 'clog:clog-form-element)))
|
||||
(set-on-click fld (lambda (obj)
|
||||
(declare (ignore obj))
|
||||
|
|
@ -1777,6 +1796,8 @@ if confirmed or nil if canceled."
|
|||
(radio-value win name))
|
||||
((eq (third l) :checkbox)
|
||||
(checkbox-value win name))
|
||||
((eq (third l) :textarea)
|
||||
(textarea-value win name))
|
||||
(t
|
||||
(name-value win name))))))
|
||||
fields)))
|
||||
|
|
|
|||
|
|
@ -690,6 +690,7 @@ embedded in a native template application.)"
|
|||
(radio-value generic-function)
|
||||
(checkbox-value generic-function)
|
||||
(select-value generic-function)
|
||||
(textarea-value generic-function)
|
||||
(name-value generic-function)
|
||||
(pattern generic-function)
|
||||
(minimum generic-function)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue