From ec1639a9f6c027fc60052d339f2a10f8acb71454 Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 11 Jul 2024 08:12:40 -0400 Subject: [PATCH] full width regex on props --- tools/clog-builder-control-properties.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder-control-properties.lisp b/tools/clog-builder-control-properties.lisp index dc4c4a8..e139f93 100644 --- a/tools/clog-builder-control-properties.lisp +++ b/tools/clog-builder-control-properties.lisp @@ -11,9 +11,10 @@ :keep-on-top t :width 400)) (content (window-content win)) - (control-list (create-table content))) + (control-list (create-table content :style "width:100%;"))) (add-class content *builder-pallete-class*) (set-on-window-close win (lambda (obj) + (declare (ignore obj)) (setf (control-properties-win app) nil))) (set-on-window-move win (lambda (obj) (setf (height obj) (height obj)))) @@ -53,9 +54,11 @@ (setf (inner-html table) "") (browser-gc obj) (let* ((tr (create-table-row table)) - (td (create-table-column tr :column-span 2)) + (td (create-table-column tr + :column-span 2)) (rx (create-form-element td :input :value (regex-prop app) + :style "width:100%;" :placeholder "regex search properties"))) (set-on-change rx (lambda (i) (setf (regex-prop app) (text-value i))