CLIM 2.0 has a mechanism for changing the mouse cursor. For example, (setf (sheet-pointer-cursor window) (if (< nx ox) (if (< ny oy) :upper-left :lower-left) (if (< ny oy) :upper-right :lower-right))) 0,,