On this page:
new
allow-scroll-to-last
allow-tab-exit
call-as-primary-owner
force-display-focus
get-editor
get-line-count
horizontal-inset
lazy-refresh
on-char
on-event
on-focus
on-paint
on-size
scroll-to
scroll-with-bottom-base
set-editor
set-line-count
vertical-inset
wheel-step
Inherited methods:
from canvas<%>
accept-tab-focus
flush
get-canvas-background
get-dc
min-client-height
min-client-width
on-tab-in
resume-flush
set-canvas-background
set-resize-corner
suspend-flush
warp-pointer
from subwindow<%>
reparent
from window<%>
accept-drop-files
client->screen
enable
focus
get-client-handle
get-client-size
get-cursor
get-handle
get-height
get-label
get-plain-label
get-size
get-width
get-x
get-y
has-focus?
is-enabled?
is-shown?
on-drop-file
on-move
on-subwindow-char
on-subwindow-event
on-subwindow-focus
on-superwindow-enable
on-superwindow-show
popup-menu
refresh
screen->client
set-cursor
set-label
show
from area<%>
get-graphical-min-size
get-parent
get-top-level-window
min-height
min-width
stretchable-height
stretchable-width
from subarea<%>
horiz-margin
vert-margin

class

editor-canvas% : class?

  superclass: object%

  extends: canvas<%>
An editor-canvas% object manages and displays a text% or pasteboard% object.

constructor

(new editor-canvas% 
    [parent parent] 
    [[editor editor] 
    [style style] 
    [scrolls-per-page scrolls-per-page] 
    [label label] 
    [wheel-step wheel-step] 
    [line-count line-count] 
    [horizontal-inset horizontal-inset] 
    [vertical-inset vertical-inset] 
    [enabled enabled] 
    [vert-margin vert-margin] 
    [horiz-margin horiz-margin] 
    [min-width min-width] 
    [min-height min-height] 
    [stretchable-width stretchable-width] 
    [stretchable-height stretchable-height]]) 
  (is-a?/c editor-canvas%)
  parent : 
(or/c (is-a?/c frame%) (is-a?/c dialog%)
      (is-a?/c panel%) (is-a?/c pane%))
  editor : (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
   = #f
  style : 
(listof (or/c 'no-border 'control-border 'combo
              'no-hscroll 'no-vscroll
              'hide-hscroll 'hide-vscroll
              'auto-vscroll 'auto-hscroll
              'resize-corner 'no-focus 'deleted
              'transparent))
 = null
  scrolls-per-page : (integer-in 1 10000) = 100
  label : (or/c label-string? #f) = #f
  wheel-step : (or/c (integer-in 1 10000) #f) = 3
  line-count : (or/c (integer-in 1 1000) #f) = #f
  horizontal-inset : (integer-in 0 1000) = 5
  vertical-inset : (integer-in 0 1000) = 5
  enabled : any/c = #t
  vert-margin : (integer-in 0 1000) = 0
  horiz-margin : (integer-in 0 1000) = 0
  min-width : (integer-in 0 10000) = graphical-minimum-width
  min-height : (integer-in 0 10000) = graphical-minimum-height
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
If a canvas is initialized with #f for editor, install an editor later with set-editor.

The style list can contain the following flags:

While vertical scrolling of text editors is based on lines, horizontal scrolling and pasteboard vertical scrolling is based on a fixed number of steps per horizontal page. The scrolls-per-page argument sets this value.

If provided, the wheel-step argument is passed on to the wheel-step method. The default wheel step can be overridden globally though the 'GRacket:wheelStep preference; see Preferences.

If line-count is not #f, it is passed on to the set-line-count method.

If horizontal-inset is not 5, it is passed on to the horizontal-inset method. Similarly, if vertical-inset is not 5, it is passed on to the vertical-inset method.

For information about the enabled argument, see window<%>. For information about the horiz-margin and vert-margin arguments, see subarea<%>. For information about the min-width, min-height, stretchable-width, and stretchable-height arguments, see area<%>.

method

(send an-editor-canvas allow-scroll-to-last)  boolean?

(send an-editor-canvas allow-scroll-to-last on?)  void?
  on? : any/c
Enables or disables last-line scrolling, or gets the current enable state. If last-line scrolling is enabled, then an editor displayed in this canvas can be scrolled so that the last line of text is at the top of the canvas (or bottom of the canvas when bottom-based scrolling is enabled; see scroll-with-bottom-base). By default, an editor can only be scrolled until the last line is at the bottom (or top) of the canvas.

method

(send an-editor-canvas allow-tab-exit)  boolean?

(send an-editor-canvas allow-tab-exit on?)  void?
  on? : any/c
Gets or sets whether tab-exit is enabled for the editor canvas. When tab-exit is enabled, the user can move the keyboard focus out of the editor using the Tab and arrow keys, invoke the default button using the Enter/Return key, or invoke a dialog’s close action with Escape. By default, tab-exit is disabled.

When tab-exit is enabled for an editor canvas, Tab and Enter keyboard events are consumed by a frame’s default on-traverse-char method; in addition, a dialog’s default method consumes Escape key events. Otherwise, on-traverse-char allows the keyboard events to be propagated to the canvas.

method

(send an-editor-canvas call-as-primary-owner f)  any

  f : (-> any)
Calls a thunk and returns the value. While the thunk is being called, if the canvas has an editor, the editor’s get-admin method returns the administrator for this canvas. This method is only useful when an editor is displayed in multiple canvases.

method

(send an-editor-canvas force-display-focus)  boolean?

(send an-editor-canvas force-display-focus on?)  void?
  on? : any/c
Enables or disables force-focus mode. In force-focus mode, the caret or selection of the editor displayed in this canvas is drawn even when the canvas does not have the keyboard focus.

method

(send an-editor-canvas get-editor)

  (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
Returns the editor currently displayed by this canvas, or #f if the canvas does not have an editor.

method

(send an-editor-canvas get-line-count)

  (or/c (integer-in 1 1000) #f)
Returns a line count installed with set-line-count, or #f if no minimum line count is set.

method

(send an-editor-canvas horizontal-inset)

  (integer-in 1 10000)
(send an-editor-canvas horizontal-inset step)  void?
  step : (integer-in 1 10000)
Gets or sets the number of pixels within the canvas reserved to the left and right of editor content. The default is 5.

method

(send an-editor-canvas lazy-refresh)  boolean?

(send an-editor-canvas lazy-refresh on?)  void?
  on? : any/c
Enables or disables lazy-refresh mode, or gets the current enable state. In lazy-refresh mode, the canvas’s refresh method is called when the window needs to be updated, rather than on-paint. By default, an editor-canvas% object is not in lazy-refresh mode.

method

(send an-editor-canvas on-char event)  void?

  event : (is-a?/c key-event%)
Overrides on-char in canvas<%>.
Handles 'wheel-up and 'wheel-down events by scrolling vertically. Otherwise, passes the event to the canvas’s editor, if any, by calling its on-char method.

See also get-editor.

method

(send an-editor-canvas on-event event)  void?

  event : (is-a?/c mouse-event%)
Overrides on-event in canvas<%>.
Passes the event to the canvas’s editor, if any, by calling its on-event method.

See also get-editor.

method

(send an-editor-canvas on-focus on?)  void?

  on? : any/c
Overrides on-focus in window<%>.
Enables or disables the caret in the display’s editor, if there is one.

method

(send an-editor-canvas on-paint)  void?

Overrides on-paint in canvas<%>.
Repaints the editor, or clears the canvas if no editor is being displayed.

This method is called after clearing the margin around the editor, unless the canvas is created with the 'transparent style, but the editor area is not automatically cleared. In other words, editor-canvas% update by default is like canvas% update with the 'no-autoclear style, except that the margin around the editor area is always cleared.

method

(send an-editor-canvas on-size width    
  height)  void?
  width : (integer-in 0 10000)
  height : (integer-in 0 10000)
Overrides on-size in window<%>.
If the canvas is displaying an editor, its on-display-size method is called.

method

(send an-editor-canvas scroll-to localx    
  localy    
  w    
  h    
  refresh?    
  [bias])  boolean?
  localx : real?
  localy : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  refresh? : any/c
  bias : (or/c 'start 'end 'none) = 'none
Requests scrolling so that the given region in the currently displayed editor is made visible.

The localx, localy, w, and h arguments specify a region of the editor to be made visible by the scroll (in editor coordinates).

If refresh? is not #f, then the editor is updated immediately after a successful scroll.

The bias argument is one of:
  • 'start if the range doesn’t fit in the visible area, show the top-left region

  • 'none no special scrolling instructions

  • 'end if the range doesn’t fit in the visible area, show the bottom-right region

The return value is #t if the display is scrolled, #f if not (either because the requested region is already visible, because the display has zero size, or because the editor is currently printing).

method

(send an-editor-canvas scroll-with-bottom-base)  boolean?

(send an-editor-canvas scroll-with-bottom-base on?)  void?
  on? : any/c
Enables or disables bottom-base scrolling, or gets the current enable state. If bottom-base scrolling is on, then scroll positions are determined by line boundaries aligned with the bottom of the viewable area (rather than with the top of the viewable area). If last-line scrolling is also enabled (see allow-scroll-to-last), then the editor is bottom-aligned in the display area even when the editor does not fill the viewable area.

method

(send an-editor-canvas set-editor edit    
  [redraw?])  void?
  edit : (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)
  redraw? : any/c = #t
Sets the editor that is displayed by the canvas, releasing the current editor (if any). If the new editor already has an administrator that is not associated with an editor-canvas%, then the new editor is not installed into the canvas.

If redraw? is #f, then the editor is not immediately drawn; in this case, something must force a redraw later (e.g., a call to the on-paint method).

If the canvas has a line count installed with set-line-count, the canvas’s minimum height is adjusted.

method

(send an-editor-canvas set-line-count count)  void?

  count : (or/c (integer-in 1 1000) #f)
Sets the canvas’s graphical minimum height to display a particular number of lines of text. The line height is determined by measuring the difference between the top and bottom of a displayed editor’s first line. The minimum height is not changed until the canvas gets an editor. When the canvas’s editor is changed, the minimum height is recalculated.

If the line count is set to #f, then the canvas’s graphical minimum height is restored to its original value.

method

(send an-editor-canvas vertical-inset)  (integer-in 1 10000)

(send an-editor-canvas vertical-inset step)  void?
  step : (integer-in 1 10000)
Gets or sets the number of pixels within the canvas reserved above and below editor content. The default is 5.

method

(send an-editor-canvas wheel-step)

  (or/c (integer-in 1 10000) #f)
(send an-editor-canvas wheel-step step)  void?
  step : (or/c (integer-in 1 10000) #f)
Gets or sets the number of vertical scroll steps taken for one click of the mouse wheel via a 'wheel-up or 'wheel-down key-event%. A #f value disables special handling for wheel events (i.e., wheel events are passed on to the canvas’s editor).