mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 12:20:27 -08:00
Code Issues Projects Releases Wiki Activity

Refactoring

Browse source
This commit is contained in:
David Botton 2022-01-12 21:24:14 -05:00
parent f932947d56
commit 72fb2da934
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -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"))