From 72fb2da934bfc428d5ec1aa416bc5664249badc3 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 12 Jan 2022 21:24:14 -0500 Subject: [PATCH] Refactoring --- tools/clog-builder.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 9931266..6b85131 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -420,10 +420,8 @@ (setf (hiddenp (get-placer control)) nil))) (t (setf (text btn-sim) "Develop") - (when (current-control app) - (set-border (get-placer (current-control app)) (unit "px" 0) :none :blue) - (setf (current-control app) nil) - (on-populate-control-properties-win win)) + (deselect-current-control app) + (on-populate-control-properties-win win) (setf in-simulation t) (dolist (control control-list) (setf (hiddenp (get-placer control)) t)) @@ -609,5 +607,5 @@ (defun clog-builder () "Start clog-builder." (initialize nil) - (set-on-new-window 'on-new-builder :boot-file "/debug.html" :path "/builder") + (set-on-new-window 'on-new-builder :path "/builder") (open-browser :url "http://127.0.0.1:8080/builder"))