mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-04 00:02:57 -08:00
Code Issues Projects Releases Wiki Activity

sys browser menu and button added

Browse source
This commit is contained in:
David Botton 2024-04-04 14:33:33 -04:00
parent 6041759252
commit eca4c2dd43
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-gui.lisp
View file

@ -2036,7 +2036,8 @@ make-two-way-stream to provide a *query-io* using a clog-gui instead of console)
(let ((sem (bordeaux-threads:make-semaphore)))
(input-dialog (obj stream) (prompt (outbuf stream)) (lambda (result)
(add-line stream result)
(bordeaux-threads:signal-semaphore sem)))
(bordeaux-threads:signal-semaphore sem))
:modal nil)
(bordeaux-threads:wait-on-semaphore sem)))
(when (< (index stream) (length (buffer-of stream)))
(prog1