mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

better performance for linux

Browse source
This commit is contained in:
David Botton 2022-12-08 19:16:16 -05:00
parent f736f6b6e6
commit 384fe77dfb
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -932,7 +932,7 @@ not a temporary attached one when using select-control."
"Populate the control properties for the current control"
;; obj if current-control is nil must be content
(with-sync-event (obj)
(on-populate-control-events-win obj)
(bordeaux-threads:make-thread (lambda () (on-populate-control-events-win obj)))
(let ((app (connection-data-item obj "builder-app-data")))
(let* ((prop-win (control-properties-win app))
(control (if (current-control app)