diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index ad13336..9180380 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -763,7 +763,8 @@ (:name "encoding" :prop "encoding") (:name "form element count" - :get ,(lambda (control) (form-element-count control))))) + :get ,(lambda (control) (form-element-count control))) + ,@*props-element*)) `(:name "input" :description "Form Input" :clog-type clog:clog-form-element diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 1e2d357..a4bc825 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -816,7 +816,7 @@ of controls and double click to select control." \(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\" :hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\) -~{~A~}~{~A~} panel\)\)" +~{~A~}~{~A~} panel\)\)~%" (string-upcase package) cname ;;defclass cmembers @@ -1333,6 +1333,7 @@ of controls and double click to select control." (declare (ignore obj))())))) (defun on-new-app-template (obj) + "Menu option to create new project from template" (let* ((app (connection-data-item obj "builder-app-data")) (win (create-gui-window obj :title "New Application Template" :width 500 :height 400)) diff --git a/tools/clog-templates.clog b/tools/clog-templates.clog index ba42718..29451bf 100644 --- a/tools/clog-templates.clog +++ b/tools/clog-templates.clog @@ -1 +1 @@ -
\ No newline at end of file +
\ No newline at end of file diff --git a/tools/clog-templates.lisp b/tools/clog-templates.lisp index 23649e2..1126521 100644 --- a/tools/clog-templates.lisp +++ b/tools/clog-templates.lisp @@ -4,9 +4,9 @@ (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 "CLOGB3852939544" :clog-type 'CLOG:CLOG-BUTTON :new-id t)) - (setf (slot-value panel 'template-box) (attach-as-child clog-obj "CLOGB3852939543" :clog-type 'CLOG:CLOG-SELECT :new-id t)) + (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)) (set-on-click (fill-button panel) (lambda (target) (declare (ignorable target)) (fill-button-clicked panel))) - panel)) \ No newline at end of file + panel))