From 4d02a3c689fd09aed31222ba6a08406b68352da0 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 28 Jul 2024 08:20:18 -0400 Subject: [PATCH] pointer arrow on panel name --- tools/clog-builder-control-list.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/clog-builder-control-list.lisp b/tools/clog-builder-control-list.lisp index 4d3f3e9..636c328 100644 --- a/tools/clog-builder-control-list.lisp +++ b/tools/clog-builder-control-list.lisp @@ -128,7 +128,9 @@ of controls and double click to select control." (let ((lwin (control-list-win app))) (setf (inner-html lwin) "") (browser-gc content) - (set-on-mouse-click (create-div lwin :content (attribute content "data-clog-name")) + (set-on-mouse-click (create-div lwin + :style "cursor:default;" + :content (attribute content "data-clog-name")) (lambda (obj data) (declare (ignore obj data)) (deselect-current-control app)