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

tooltip documentation on status bar

Browse source
This commit is contained in:
David Botton 2022-07-14 23:35:59 -04:00
parent 2de362e105
commit 47b8601d10
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -1123,8 +1123,10 @@ of controls and double click to select control."
(clog-ace::js-ace obj)))))
(unless (equal s "")
(with-input-from-string (i s)
(let* ((m (read i))
(let* ((*package* (find-package "CLOG-USER"))
(m (read i))
(r (swank:operator-arglist (format nil "~A" m) "CLOG-USER")))
(setf (advisory-title status) (documentation m 'function))
(when r
(setf (text status) r))))))))
(setf (clog-ace:theme (event-editor app)) "ace/theme/xcode")