(in-package "CLOG-TOOLS")
(defclass quick-start (clog:clog-panel)
((instructions :reader instructions) (span-13 :reader span-13)
(image-12 :reader image-12)))
(defun create-quick-start
(clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t))
(let ((panel
(change-class
(clog:create-div clog-obj :content
"
CLOG The Common Lisp Omnificent GUI
Quick Start
Placing Controls
Placing Controls - Click a control from the control pallets in the top left panel. Click on your panel
Static Placement - Click a control from the control pallets in the top left panel. Click on your panel while holding down <ctrl/cmd>
Place as child control - Click the parent control in your panel. Click a control from the control pallets in the top left panel. Click on your panel while holding down <shift>
Place as static and child control - Click the parent control in your panel. Click a control from the control pallets in the top left panel. Click on your panel while holding down <shift>+<ctrl/cmd>
Existing Controls as Children
2 ways:
1. Click the parent control in your panel. Holding <shift> click the control to make a child.
2. Use the control list in the lower left to drag and drop holding the <shift> key
Existing Controls as Static
Use the positioning property in the property panel
Access Children Controls
Double click the parent control, it will freeze (unfreeze by double clicking it in the control list in the lower left panel), and children can not be manipulated
Change Creation/Tab Order
Use the control list in lower left panel to drag and drop order
"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'quick-start)))
(setf (slot-value panel 'instructions)
(attach-as-child clog-obj "CLOGB3868051570" :clog-type
'clog:clog-div :new-id t))
(setf (slot-value panel 'span-13)
(attach-as-child clog-obj "CLOGB3868051568" :clog-type
'clog:clog-span :new-id t))
(setf (slot-value panel 'image-12)
(attach-as-child clog-obj "CLOGB3868051567" :clog-type
'clog:clog-img :new-id t))
panel))