property adjustment

FUTURE.md

@@ -13,6 +13,7 @@ Creating a Bootstrap 5 based app
 Creating a W3CSS based app
 When to use page vs panel
 Running JavaScript
+Plug-in panels for use on other sites
 
 Future additions (if interested in doing any let me know):
 

tools/clog-builder-settings.lisp

@@ -316,7 +316,7 @@
   `((:name "css classes"
      :prop "className")))
 
-(defparameter *props-base*
+(defparameter *props-display*
   `((:name "hidden"
      :get  ,(lambda (control)
 	      (property control "hidden"))
@@ -334,6 +334,8 @@
 		 (setf (visiblep control) t)
 		 (setf (visiblep control) nil))
 	      (style control "visibility")))
+    (:name "display"
+     :style "display")
     (:name "editable"
      :prop "contenteditable")
     (:name "spell check"
@@ -370,7 +372,7 @@
     ,@*props-with-height*
     ,@*props-css*
     ,@*props-colors*
-    ,@*props-base*
+    ,@*props-display*
     ,@*props-nav*))
 
 (defparameter *props-element*
@@ -379,7 +381,7 @@
     ,@*props-text*
     ,@*props-css*
     ,@*props-colors*
-    ,@*props-base*
+    ,@*props-display*
     ,@*props-nav*
     ,@*props-contents*))
 
@@ -418,7 +420,7 @@
     ,@*props-form-values*
     ,@*props-css*
     ,@*props-colors*
-    ,@*props-base*
+    ,@*props-display*
     ,@*props-nav*))
 
 (defparameter *events-element*
@@ -540,7 +542,7 @@
      :create-type    :custom-query
      :create-content "<div></div>"
      :events         (,@*events-element*)
-     :properties     (,@*props-base*))
+     :properties     (,@*props-element*))
    `(:name           "style-block"
      :description    "Style Block"
      :clog-type      clog:clog-style-block

tools/clog-builder.lisp

@@ -164,11 +164,17 @@
 (defun control-info (control-type-name)
   "Return control informaton record for CONTROL-TYPE-NAME from the *supported-controls* list."
   (if (equal control-type-name "clog-data")
-       '(:name           "clog-data"
+       `(:name           "clog-data"
 	 :description    "Panel Properties"
 	 :events         nil
 	 :properties     ((:name "in-package"
-			   :attr "data-in-package")))
+			   :attr "data-in-package")
+			  (:name "width"
+			   :get  ,(lambda (control) (width control))
+			   :setup :read-only)
+			  (:name "height"
+			   :setup :read-only
+			   :get  ,(lambda (control) (height control)))))
       (find-if (lambda (x) (equal (getf x :name) control-type-name)) *supported-controls*)))
 
 (defun create-control (parent content control-record uid &key custom-query)
@@ -907,6 +913,9 @@ of controls and double click to select control."
 			   (destroy-control-list app panel-id)
 			   (on-populate-control-properties-win content :win win)
 			   (on-populate-control-list-win content)))
+    (set-on-window-size-done win
+			     (lambda (obj)
+			       (on-populate-control-properties-win content :win win)))
     ;; setup tool bar events
     (set-on-click btn-copy (lambda (obj)
 			     (declare (ignore obj))