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

update tool tip

Browse source
This commit is contained in:
David Botton 2022-01-23 16:50:43 -05:00
parent 03b615d6b6
commit c7bb005e94
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -614,7 +614,8 @@ of controls and double click to select control."
:width 200 :has-pinner t))) :width 200 :has-pinner t)))
(setf (control-list-win app) win) (setf (control-list-win app) win)
(setf (advisory-title (window-content win)) (setf (advisory-title (window-content win))
(format nil "Drag and drop order~%<ctrl> place static~%<shift> child to selected")) (format nil "Drag and drop order~%Double click non-focusable~%~
<ctrl> place static~%<shift> child to selected"))
(set-on-window-close win (lambda (obj) (setf (control-list-win app) nil))))))) (set-on-window-close win (lambda (obj) (setf (control-list-win app) nil)))))))
;; These templates are here due to compiler or slime bug, ;; These templates are here due to compiler or slime bug,