suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cleaned up code example for make-root-area-container

Browse Source 
original commit: 0ab512ce8c342224c178efac4c9e3c53dde7d7c4
This commit is contained in:
Robby Findler 2010-07-03 08:55:23 -05:00
commit c6fc1b3b47
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribblings/framework/frame.scrbl
View File

@ -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 ...")

7
collects/scribblings/gui/snip-class.scrbl
View File

@ -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