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

attempt 2 to deal with mac vs pc issue

Browse source
This commit is contained in:
David Botton 2024-04-18 11:19:46 -04:00
parent 17fc882760
commit 6ab298ef3f
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
source/clog-gui.lisp
View file

@ -609,10 +609,21 @@ first menu-window-select will receive change window notices only."))
(change-class window-select 'clog-gui-menu-window-select)
(unless (window-select app)
(setf (window-select app) window-select))
(set-on-mouse-enter window-select (lambda (obj)
(window-clean-zombies obj :use-select window-select)
(when content
(setf (selectedp (create-option window-select :content content)) t))))
; on mac on-click after a refill doesn't work
; on pc mouse-enter fires as long as in the control, so..
(flet ((refill (obj)
(set-on-mouse-enter obj nil)
(with-sync-event (obj)
(window-clean-zombies obj :use-select window-select))
(when content
(setf (selectedp (create-option window-select :content content)) t))))
(set-on-mouse-enter window-select (lambda (obj)
(refill obj)))
(set-on-mouse-leave window-select (lambda (obj)
(declare (ignore obj))
(sleep .5)
(set-on-mouse-enter window-select (lambda (obj)
(refill obj))))))
(set-on-change window-select (lambda (obj)
(let ((win (gethash (value obj) (windows app))))
(when win