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

add 'no-focus style to `editor-canvas%'

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-25 11:03:38 -04:00
parent cab8e5e0e2
commit f13a669d05
4 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/mrcanvas.rkt
View File

@ -258,7 +258,8 @@
(check-container-parent cwho parent) (check-container-parent cwho parent)
(check-instance cwho internal-editor<%> "text% or pasteboard%" #t editor) (check-instance cwho internal-editor<%> "text% or pasteboard%" #t editor)
(check-style cwho #f '(hide-vscroll hide-hscroll no-vscroll no-hscroll auto-vscroll auto-hscroll (check-style cwho #f '(hide-vscroll hide-hscroll no-vscroll no-hscroll auto-vscroll auto-hscroll
deleted control-border combo transparent no-border resize-corner) deleted control-border combo transparent no-border resize-corner
no-focus)
style) style)
(check-gauge-integer cwho scrolls-per-page) (check-gauge-integer cwho scrolls-per-page)
(check-label-string/false cwho label) (check-label-string/false cwho label)

3
collects/mred/private/wxme/editor-canvas.rkt
View File

@ -215,7 +215,8 @@
'(no-autoclear)) '(no-autoclear))
(keep-style style 'control-border) (keep-style style 'control-border)
(keep-style style 'combo) (keep-style style 'combo)
(keep-style style 'resize-corner)) (keep-style style 'resize-corner)
(keep-style style 'no-focus))
name name
gl-config) gl-config)

2
collects/scribblings/gui/canvas-class.scrbl
View File

@ -64,7 +64,7 @@ The @racket[style] argument indicates one or more of the following styles:
@racket['no-autoclear]} @racket['no-autoclear]}
@item{@racket['no-focus] --- prevents the canvas from accepting the @item{@racket['no-focus] --- prevents the canvas from accepting the
keyboard focus when the canvas is clicked, or when the keyboard focus when the canvas is clicked or when the
@method[window<%> focus] method is called} @method[window<%> focus] method is called}
@item{@racket['deleted] --- creates the canvas as initially hidden and without affecting @item{@racket['deleted] --- creates the canvas as initially hidden and without affecting

7
collects/scribblings/gui/editor-canvas-class.scrbl
View File

@ -14,7 +14,8 @@ An @racket[editor-canvas%] object manages and displays a
'no-hscroll 'no-vscroll 'no-hscroll 'no-vscroll
'hide-hscroll 'hide-vscroll 'hide-hscroll 'hide-vscroll
'auto-vscroll 'auto-hscroll 'auto-vscroll 'auto-hscroll
'resize-corner 'deleted 'transparent)) null] 'resize-corner 'no-focus 'deleted
'transparent)) null]
[scrolls-per-page (integer-in 1 10000) 100] [scrolls-per-page (integer-in 1 10000) 100]
[label (or/c label-string? false/c) #f] [label (or/c label-string? false/c) #f]
[wheel-step (or/c (integer-in 1 10000) false/c) 3] [wheel-step (or/c (integer-in 1 10000) false/c) 3]
@ -65,6 +66,10 @@ The @racket[style] list can contain the following flags:
@item{@racket['resize-corner] --- leaves room for a resize control at the canvas's @item{@racket['resize-corner] --- leaves room for a resize control at the canvas's
bottom right when only one scrollbar is visible} bottom right when only one scrollbar is visible}
@item{@racket['no-focus] --- prevents the canvas from accepting the
keyboard focus when the canvas is clicked or when the
@method[window<%> focus] method is called}
@item{@racket['deleted] --- creates the canvas as initially hidden and without affecting @item{@racket['deleted] --- creates the canvas as initially hidden and without affecting
@racket[parent]'s geometry; the canvas can be made active @racket[parent]'s geometry; the canvas can be made active
later by calling @racket[parent]'s @method[area-container<%> add-child] later by calling @racket[parent]'s @method[area-container<%> add-child]