




The function 
pane-has-focus-p
 is the predicate for whether 
pane
 currently has the input focus.
Note:  On Motif, 
pane-has-focus-p
 cannot be used in menu functions such as the 
enabled-function
 or 
popup-callback
 of a menu item. It will always return 
nil,
 because the focus is on the menu button when the user clicks on it.
This function descends down a layout's hierachy to find the child that currently has the focus:
(defun find-pane-with-focus (layout)
(capi:map-pane-descendant-children
layout
#'(lambda (p)
(when (capi:pane-has-focus-p p)
(return-from find-pane-with-focus p)))))