From c7bb005e94d2307eb8f90b193c5ca9c45d5b6035 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sun, 23 Jan 2022 16:50:43 -0500
Subject: [PATCH] update tool tip

---
 tools/clog-builder.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 090a308..5d63d12 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -614,7 +614,8 @@ of controls and double click to select control."
 					   :width 200 :has-pinner t)))
 	  (setf (control-list-win app) 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)))))))
 
 ;; These templates are here due to compiler or slime bug,