make-root-area-container

Override this method to insert a panel in between the panel used by the clients of this frame and the frame itself. For example, to insert a status line panel override this method with something like this:

  ...
 (rename [super-make-root-area-container make-root-area-container])
 (private
   [status-panel #f])
 (override
   [make-root-area-container
    (lambda (class parent)
      (set! status-panel
            (super-make-root-area-container
               vertical-panel%
               parent))
      (let* ([root (make-object class status-panel)])

        ; ... add other children to status-panel ...

        root))])
  ...

In this example, status-panel will contain a root panel for the other classes, and whatever panels are needed to display status information.

The searching frame is implemented using this method.

• (send a-frame:basic make-root-area-container class parent) -> (instance (implements area-container<%>))
      class : (implements area-container<%>)
      parent : (instance (implements area-container<%>))

  Calls make-object with class and parent.