make-root-panel

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

(class
  ...
 (rename [super-make-root-panel make-root-panel])
 (private
   [status-panel (void)])
 (public
   [make-root-panel
    (lambda (class parent)
      (let* ([s-root (super-make-root-panel
                      mred:vertical-panel%
                      parent)]
             [root (make-object class s-root)])
        (set! status-panel s-root)
        root))])
  ...)

In this example, status-panel should contain two child panels, the first child is a panel containing the rest of the interesting children in the frame and the second panel contains the status indicators.

The searching buffer is implemented in this style.

• (send a-mred:empty-frame make-root-panel class parent) -> a mred:panel% object
      class : a class derived from mred:panel%
      parent : a mred:panel% object