diff --git a/collects/scribblings/framework/frame.scrbl b/collects/scribblings/framework/frame.scrbl index a0f94c39..75e4b280 100644 --- a/collects/scribblings/framework/frame.scrbl +++ b/collects/scribblings/framework/frame.scrbl @@ -38,13 +38,10 @@ @schemeblock[ (class ... ... - (rename [super-make-root-area-container - make-root-area-container]) - (field - [status-panel #f]) + (define status-panel #f) (define/override (make-root-area-container cls parent) (set! status-panel - (super-make-root-area-container vertical-panel% parent)) + (super make-root-area-container vertical-panel% parent)) (let ([root (make-object cls status-panel)]) (code:comment "... add other children to status-panel ...") diff --git a/collects/scribblings/gui/snip-class.scrbl b/collects/scribblings/gui/snip-class.scrbl index 56e07c02..dd590f4a 100644 --- a/collects/scribblings/gui/snip-class.scrbl +++ b/collects/scribblings/gui/snip-class.scrbl @@ -338,9 +338,10 @@ following symbols: @item{@indexed-scheme['handles-events] --- this snip can handle keyboard and mouse events when it has the keyboard focus} - @item{@indexed-scheme['handles-all-mouse-events] --- this snip can handle - mouse events that touch the snip, even if the snip does not - have the keyboard focus} + @item{@indexed-scheme['handles-all-mouse-events] --- this snip can + handle mouse events that touch the snip or that immediately + follow an event that touches the snip, even if the snip does + not have the keyboard focus} @item{@indexed-scheme['width-depends-on-x] --- this snip's display width depends on the snip's x-@techlink{location} within the