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.
Calls make-object with class and parent.
Builds a panel for the searching information.