Hello John,
you've remembered well, it worked, but the cursor was always queried from the sheet
over which the pointer was located (in McCLIM); in other words setting the top-level
sheet cursor did not work, because the cursor was over the interactor (and the interactor
was the child of a top-level sheet). Most notably, this command would work in your example:
(define-presentation-type-abbreviation cursor-type ()
`(member :default :prompt :button :busy :not-allowed))
(define-test-cursor-command (com-busy3 :name t) ((type 'cursor-type)) (let* ((sheet (frame-standard-output *application-frame*)))
(setf (sheet-pointer-cursor sheet) type)))
That said I agree that this behavior is sub-optimal, so I've implemented bits necessary to
have the most intuitive behavior, namely:
- if the sheet has an associated cursor, use it
- otherwise look among sheet ancestors until you find the first defined cursor
- if there is no such cursor, use the cursor associated with port-pointer cursor
This way if you first associate the pointer cursor, it will take effect, but when you assign
the top-level sheet cursor, that will take the precedence -- and similarily, when you assign
the interactor cursor, it will take the precedence when the cursor is over it.
These changes were pushed to master a moment ago.
Best regards,
Daniel
--
Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland
"Be the change that you wish to see in the world." - Mahatma Gandhi
On Thursday, October 9th, 2025 at 9:10 PM, John Morrison <jm@symbolic-simulation.com> wrote:
Hi;
Sorry if this is either a dumb question or Pilot Error, but I am having trouble showing the user a "busy" cursor when a long-running command is invoked.
- Current "master" codeberg McCLIM
- Fedora Core 41
- xorg-x11-server-Xwayland-24.1.8-1.fc41.x86_64
- SBCL vintage 2.1.1 (homebuilt)
I *THINK* I used to be able to do this years ago running under X11 (vs Wayland).
Please find attached a hopefully short program which either shows the problem, or shows my ignorance.
Thanks in advance for any help.
-jm
---
CONFIDENTIALITY NOTICE: The information transmitted by this email is intended only for the person or entity to which it is addressed. This email may contain proprietary, business-confidential, and/or privileged material. If you are not the intended recipient of this message, be aware that any use, review, retransmission, distribution, reproduction or any action taken in reliance upon this message is strictly prohibited. If you received this in error, please contact the sender and delete the material from all computers.
