mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
Control pallete item grouping
This commit is contained in:
David Botton
parent
5a5d71d080
commit
85eb1faf7f
4 changed files with 141 additions and 90 deletions
|
|
@ -1018,6 +1018,18 @@ optionally fill in with contents of data-list."))
|
|||
(dolist (value content)
|
||||
(add-select-option obj value value)))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; add-select-optgroup ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric add-select-optgroup (clog-select content)
|
||||
(:documentation "Add option VALUE to select."))
|
||||
|
||||
(defmethod add-select-optgroup ((obj clog-select) content)
|
||||
(create-child obj (format nil "<optgroup label='~A'/>"
|
||||
(escape-string content))
|
||||
:clog-type 'clog-element :auto-place t))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-option
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
|||
|
|
@ -580,15 +580,16 @@ embedded in a native template application.)"
|
|||
(label-for generic-function)
|
||||
|
||||
"CLOG-Select - Class for CLOG Selects"
|
||||
(clog-select class)
|
||||
(create-select generic-function)
|
||||
(clog-option class)
|
||||
(create-option generic-function)
|
||||
(clog-optgroup class)
|
||||
(create-optgroup generic-function)
|
||||
(selectedp generic-function)
|
||||
(add-select-option generic-function)
|
||||
(add-select-options generic-function)
|
||||
(clog-select class)
|
||||
(create-select generic-function)
|
||||
(clog-option class)
|
||||
(create-option generic-function)
|
||||
(clog-optgroup class)
|
||||
(create-optgroup generic-function)
|
||||
(selectedp generic-function)
|
||||
(add-select-option generic-function)
|
||||
(add-select-options generic-function)
|
||||
(add-select-optgroup generic-function)
|
||||
|
||||
"CLOG-Data-List - Class for CLOG Option Data Lists"
|
||||
(clog-data-list class)
|
||||
|
|
|
|||
|
|
@ -506,12 +506,43 @@
|
|||
|
||||
(defparameter *supported-controls*
|
||||
(list
|
||||
'(:name "group"
|
||||
:description "tools"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
'(:name "select"
|
||||
:description "Selection Tool"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "custom"
|
||||
:description "Custom HTML"
|
||||
:clog-type clog:clog-element
|
||||
:create clog:create-child
|
||||
:create-type :custom-query
|
||||
:create-content "<div></div>"
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "style-block"
|
||||
:description "Style Block"
|
||||
:clog-type clog:clog-style-block
|
||||
:create clog:create-style-block
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "media"
|
||||
:attr "media")
|
||||
(:name "type"
|
||||
:prop "type")
|
||||
,@*props-contents*))
|
||||
'(:name "group"
|
||||
:description "basic html"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "label"
|
||||
:description "Label"
|
||||
:clog-type clog:clog-label
|
||||
|
|
@ -680,6 +711,30 @@
|
|||
(:name "maximum"
|
||||
:prop "max")
|
||||
,@*props-base*))
|
||||
`(:name "dialog"
|
||||
:description "Dialog"
|
||||
:clog-type clog:clog-dialog
|
||||
:create clog:create-dialog
|
||||
:create-type :element
|
||||
:create-content ""
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "open"
|
||||
:get ,(lambda (control)
|
||||
(property control "open"))
|
||||
:set ,(lambda (control obj)
|
||||
(if (or (equalp (text obj) "true") (equalp (text obj) "open"))
|
||||
(setf (attribute control "open") t)
|
||||
(remove-attribute control "open"))
|
||||
(property control "open")))
|
||||
(:name "return value"
|
||||
:prop "returnValue")
|
||||
,@*props-element*))
|
||||
'(:name "group"
|
||||
:description "forms"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "form"
|
||||
:description "Form"
|
||||
:clog-type clog:clog-form
|
||||
|
|
@ -925,6 +980,55 @@
|
|||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
'(:name "group"
|
||||
:description "text display"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "span"
|
||||
:description "Span"
|
||||
:clog-type clog:clog-span
|
||||
:create clog:create-span
|
||||
:create-type :element
|
||||
:create-content "span"
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-contents*
|
||||
,@*props-element*))
|
||||
`(:name "link"
|
||||
:description "Link"
|
||||
:clog-type clog:clog-a
|
||||
:create clog:create-a
|
||||
:create-type :element
|
||||
:create-content "HTML Link"
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "href link"
|
||||
:prop "href")
|
||||
(:name "target"
|
||||
:prop "target")
|
||||
,@*props-element*))
|
||||
`(:name "hr"
|
||||
:description "Horizontal Rule"
|
||||
:clog-type clog:clog-hr
|
||||
:create clog:create-hr
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "br"
|
||||
:description "Line Break"
|
||||
:clog-type clog:clog-br
|
||||
:create clog:create-br
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "p"
|
||||
:description "Paragraph"
|
||||
:clog-type clog:clog-p
|
||||
:create clog:create-p
|
||||
:create-content "Paragraph"
|
||||
:create-type :element
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-element*))
|
||||
`(:name "ol"
|
||||
:description "Ordered List"
|
||||
:clog-type clog:clog-ordered-list
|
||||
|
|
@ -1092,6 +1196,12 @@
|
|||
:create-type :element
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-element*))
|
||||
'(:name "group"
|
||||
:description "multi-media"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "audio"
|
||||
:description "Audio Player"
|
||||
:clog-type clog:clog-audio
|
||||
|
|
@ -1134,90 +1244,16 @@
|
|||
(:name "loop"
|
||||
:prop "loop")
|
||||
,@*props-base*))
|
||||
'(:name "group"
|
||||
:description "graphics"
|
||||
:create nil
|
||||
:create-type nil
|
||||
:events nil
|
||||
:properties nil)
|
||||
`(:name "canvas"
|
||||
:description "Canvas"
|
||||
:clog-type clog:clog-canvas
|
||||
:create clog:create-canvas
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "dialog"
|
||||
:description "Dialog"
|
||||
:clog-type clog:clog-dialog
|
||||
:create clog:create-dialog
|
||||
:create-type :element
|
||||
:create-content ""
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "open"
|
||||
:get ,(lambda (control)
|
||||
(property control "open"))
|
||||
:set ,(lambda (control obj)
|
||||
(if (or (equalp (text obj) "true") (equalp (text obj) "open"))
|
||||
(setf (attribute control "open") t)
|
||||
(remove-attribute control "open"))
|
||||
(property control "open")))
|
||||
(:name "return value"
|
||||
:prop "returnValue")
|
||||
,@*props-element*))
|
||||
`(:name "span"
|
||||
:description "Span"
|
||||
:clog-type clog:clog-span
|
||||
:create clog:create-span
|
||||
:create-type :element
|
||||
:create-content "span"
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-contents*
|
||||
,@*props-element*))
|
||||
`(:name "link"
|
||||
:description "Link"
|
||||
:clog-type clog:clog-a
|
||||
:create clog:create-a
|
||||
:create-type :element
|
||||
:create-content "HTML Link"
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "href link"
|
||||
:prop "href")
|
||||
(:name "target"
|
||||
:prop "target")
|
||||
,@*props-element*))
|
||||
`(:name "hr"
|
||||
:description "Horizontal Rule"
|
||||
:clog-type clog:clog-hr
|
||||
:create clog:create-hr
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "br"
|
||||
:description "Line Break"
|
||||
:clog-type clog:clog-br
|
||||
:create clog:create-br
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))
|
||||
`(:name "p"
|
||||
:description "Paragraph"
|
||||
:clog-type clog:clog-p
|
||||
:create clog:create-p
|
||||
:create-content "Paragraph"
|
||||
:create-type :element
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-element*))
|
||||
`(:name "style-block"
|
||||
:description "Style Block"
|
||||
:clog-type clog:clog-style-block
|
||||
:create clog:create-style-block
|
||||
:create-type :base
|
||||
:events (,@*events-element*)
|
||||
:properties ((:name "media"
|
||||
:attr "media")
|
||||
(:name "type"
|
||||
:prop "type")
|
||||
,@*props-contents*))
|
||||
`(:name "custom"
|
||||
:description "Custom HTML"
|
||||
:clog-type clog:clog-element
|
||||
:create clog:create-child
|
||||
:create-type :custom-query
|
||||
:create-content "<div></div>"
|
||||
:events (,@*events-element*)
|
||||
:properties (,@*props-base*))))
|
||||
|
|
|
|||
|
|
@ -683,7 +683,9 @@ of controls and double click to select control."
|
|||
(setf (advisory-title control-list) (format nil "<ctrl> place static~%<shift> child to selected"))
|
||||
(setf (select-tool app) control-list)
|
||||
(dolist (control *supported-controls*)
|
||||
(add-select-option control-list (getf control :name) (getf control :description)))))))
|
||||
(if (equal (getf control :name) "group")
|
||||
(add-select-optgroup control-list (getf control :description))
|
||||
(add-select-option control-list (getf control :name) (getf control :description))))))))
|
||||
|
||||
(defun on-show-control-list-win (obj)
|
||||
"Show control list for selecting and manipulating controls by name"
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue