Podium Message

Hello again,
  I am trying to print a message to the LW IDE Podium status area (where
it shows things like "Active Window: Listener 1" when you change
windows). 
I have written the following function to do this:

(defun set-podium-message (msg)
  (let* ((podium-interface (capi:find-interface
'lispworks-tools::podium))
         (message-area (capi:titled-object-message podium-interface)))
    (setf (capi:titled-object-message podium-interface) msg)))

  where msg is a string


 (if there is another, more correct way, please let me know).

The problem I am having with it is that it is changing the window focus
to the Podium when I call this function.  This is undesired behavior.
Currently wherever I use this, I save what the (current-window) is, then
call my set-podium-message, then go back to the saved current window.
This works, however, when it is called repeatedly (in quick succession)
it generates some very annoying flashes as the active window keeps
flipping back and forth. 

 Is there a command to set that message without causing it to select the
associated window?  Or does anyone know where the code is that causes
the "Active Window: Listener 1" messages to be displayed when you change
windows (so that I can see how they do it and adapt it to my situation).


When I use the titled-object-message slot method on a window that I
create, I don't get this selection behavior.

CL-USER 42 > (setq w1 (capi:contain (make-instance 'capi:text-input-pane
:message "A message")))

CL-USER 44 > (setf (capi:titled-object-message w1) "heya shawn")
"heya shawn"

 does not cause the container window to be selected (leaving focus in
the listener).


 On a related note, I haven't been able to figure out how to set the
font for that message, if anyone can assist with that.

 
Thank you,
  Shawn