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

fix resize on maximize for search

Browse source
This commit is contained in:
David Botton 2024-07-11 08:33:21 -04:00
parent ec1639a9f6
commit ba25af0313
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder-search.lisp
View file

@ -16,9 +16,9 @@
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(setf (hiddenp win) t))) (setf (hiddenp win) t)))
(set-on-window-size win (lambda (obj) (set-on-window-size-done win (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(clog-ace:resize (preview-ace panel)))) (clog-ace:resize (preview-ace panel))))
(setf (current-editor-is-lisp app) "clog-user") (setf (current-editor-is-lisp app) "clog-user")
(setup-lisp-ace (preview-ace panel) nil) (setup-lisp-ace (preview-ace panel) nil)
(setf (text-value (preview-ace panel)) (setf (text-value (preview-ace panel))