diff --git a/source/clog-panel.lisp b/source/clog-panel.lisp index e88543f..a18a653 100644 --- a/source/clog-panel.lisp +++ b/source/clog-panel.lisp @@ -9,7 +9,7 @@ (cl:in-package :clog) ;;; clog-panels are for doing layouts, base class for pluggins and custom -;;; widgets. +;;; widgets and is the base class for CLOG Builder's panels. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Implementation - clog-panel @@ -34,10 +34,11 @@ CLOG-OBJ. Optionally you can set the :X, :Y, :WIDTH and :HEIGHT (in :UNITS defulting to :px, if set to nil unit type must be provided for x,y,width and height), BORDER-STYLE (see BORDER-STYLE-TYPE), -BORDER-WIDTH, BORDER-COLOR, :POSITIONING (default is :FIXED) (see -POSITIONING-TYPE), :OVERFLOW (default is :CLIP) with :CONTENT (default -\"\") and :RESIZABLE defaults to :NONE. Additional css styles can be -set in :STYLE (default \"\") if :AUTO-PLACE (default t) +BORDER-WIDTH, BORDER-COLOR, :POSITIONING (default is :FIXED the +default builder panels are :STATIC) (see POSITIONING-TYPE), +:OVERFLOW (default is :CLIP) with :CONTENT (default \"\") and +:RESIZABLE defaults to :NONE. Additional css styles can be set in +:STYLE (default \"\") if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ. If hidden is true visiblep is set to nil. Resizable only works if overflow is set to :SCROLL")) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index ac56d98..59e448b 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -573,7 +573,7 @@ not a temporary attached one when using select-control." (get-control-list app panel-id)) (let ((result (format nil "\(in-package \"~A\"\) -\(defclass ~A \(clog:clog-div\) +\(defclass ~A \(clog:clog-panel\) \(~{~A~}\)\) \(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\) \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\" diff --git a/tools/clog-templates.lisp b/tools/clog-templates.lisp index 1126521..df6e899 100644 --- a/tools/clog-templates.lisp +++ b/tools/clog-templates.lisp @@ -1,12 +1,12 @@ (in-package "CLOG-TOOLS") -(defclass clog-templates (clog:clog-div) +(defclass clog-templates (clog:clog-panel) ( (fill-button :reader fill-button) (template-box :reader template-box) (win :accessor win))) (defun create-clog-templates (clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t)) - (let ((panel (change-class (clog:create-div clog-obj :content "
" + (let ((panel (change-class (clog:create-div clog-obj :content "" :hidden hidden :class class :html-id html-id :auto-place auto-place) 'clog-templates))) - (setf (slot-value panel 'fill-button) (attach-as-child clog-obj "CLOGB3853161214" :clog-type 'CLOG:CLOG-BUTTON :new-id t)) - (setf (slot-value panel 'template-box) (attach-as-child clog-obj "CLOGB3853161213" :clog-type 'CLOG:CLOG-SELECT :new-id t)) + (setf (slot-value panel 'fill-button) (attach-as-child clog-obj "CLOGB3854134564" :clog-type 'CLOG:CLOG-BUTTON :new-id t)) + (setf (slot-value panel 'template-box) (attach-as-child clog-obj "CLOGB3854134563" :clog-type 'CLOG:CLOG-SELECT :new-id t)) (set-on-click (fill-button panel) (lambda (target) (declare (ignorable target)) (fill-button-clicked panel))) panel))