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

pointer arrow on panel name

Browse source
This commit is contained in:
David Botton 2024-07-28 08:20:18 -04:00
parent 42ac76f008
commit 4d02a3c689
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-control-list.lisp
View file

@ -128,7 +128,9 @@ of controls and double click to select control."
(let ((lwin (control-list-win app))) (let ((lwin (control-list-win app)))
(setf (inner-html lwin) "") (setf (inner-html lwin) "")
(browser-gc content) (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) (lambda (obj data)
(declare (ignore obj data)) (declare (ignore obj data))
(deselect-current-control app) (deselect-current-control app)