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:searchable-frame make-root-panel) -> a mred:panel% object

  This installs another panel to make room for the searching controls in the bottom of the frame. See the make-root-panel method of mred:empty-frame%.