Impossible to set no :initial-focus on a capi:interface

Hi,

I am trying to display a CAPI interface and I want no initially focused pane.

(capi:define-interface test-focus ()
  ()
  (:panes
   (options
    capi:option-pane)
   (button
    capi:button
    :text "OK")))

In this example, options-1 is the :initial-focus pane, but there should be no focused pane.

If I implement the getter capi:pane-initial-focus as:

(defmethod capi:pane-initial-focus ((self test-focus))
  nil)

The method does not seem to be called at all.
And if I define it as:

(defmethod capi:pane-initial-focus ((self test-focus))
  'options-2)

The options-2 pane is not focused as it should be.
It seems the only way to affect the :initial-focus pane is to use the keyword in the :default-initargs of the interface definition.

I am using Mac OS X.
Does anyone know how to have an interface with no focused pane?


Best,
Cam


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html