On this page:
frame:  basic<%>
get-area-container%
get-area-container
get-menu-bar%
make-root-area-container
close
editing-this-file?
get-filename
make-visible
frame:  basic-mixin
show
can-exit?
on-exit
on-superwindow-show
on-drop-file
after-new-child
frame:  focus-table<%>
frame:  focus-table-mixin
show
on-close
frame:  size-pref<%>
adjust-size-when-monitor-setup-changes?
frame:  size-pref-mixin
new
on-size
on-move
frame:  register-group<%>
frame:  register-group-mixin
can-close?
on-close
on-activate
frame:  status-line<%>
open-status-line
close-status-line
update-status-line
frame:  status-line-mixin
make-root-area-container
frame:  info<%>
determine-width
lock-status-changed
update-info
set-info-canvas
get-info-canvas
get-info-editor
get-info-panel
show-info
hide-info
is-info-hidden?
frame:  info-mixin
make-root-area-container
on-close
frame:  text-info<%>
set-macro-recording
overwrite-status-changed
anchor-status-changed
editor-position-changed
add-line-number-menu-items
frame:  text-info-mixin
on-close
update-info
frame:  pasteboard-info<%>
frame:  pasteboard-info-mixin
frame:  standard-menus<%>
on-close
get-menu%
get-menu-item%
get-checkable-menu-item%
get-file-menu
get-edit-menu
get-help-menu
file-menu:  get-new-item
file-menu:  create-new?
file-menu:  new-callback
file-menu:  new-on-demand
file-menu:  new-string
file-menu:  new-help-string
file-menu:  between-new-and-open
file-menu:  get-open-item
file-menu:  create-open?
file-menu:  open-callback
file-menu:  open-on-demand
file-menu:  open-string
file-menu:  open-help-string
file-menu:  get-open-recent-item
file-menu:  create-open-recent?
file-menu:  open-recent-callback
file-menu:  open-recent-on-demand
file-menu:  open-recent-string
file-menu:  open-recent-help-string
file-menu:  between-open-and-revert
file-menu:  get-revert-item
file-menu:  create-revert?
file-menu:  revert-callback
file-menu:  revert-on-demand
file-menu:  revert-string
file-menu:  revert-help-string
file-menu:  between-revert-and-save
file-menu:  get-save-item
file-menu:  create-save?
file-menu:  save-callback
file-menu:  save-on-demand
file-menu:  save-string
file-menu:  save-help-string
file-menu:  get-save-as-item
file-menu:  create-save-as?
file-menu:  save-as-callback
file-menu:  save-as-on-demand
file-menu:  save-as-string
file-menu:  save-as-help-string
file-menu:  between-save-as-and-print
file-menu:  get-print-item
file-menu:  create-print?
file-menu:  print-callback
file-menu:  print-on-demand
file-menu:  print-string
file-menu:  print-help-string
file-menu:  between-print-and-close
file-menu:  get-close-item
file-menu:  create-close?
file-menu:  close-callback
file-menu:  close-on-demand
file-menu:  close-string
file-menu:  close-help-string
file-menu:  between-close-and-quit
file-menu:  get-quit-item
file-menu:  create-quit?
file-menu:  quit-callback
file-menu:  quit-on-demand
file-menu:  quit-string
file-menu:  quit-help-string
file-menu:  after-quit
edit-menu:  get-undo-item
edit-menu:  create-undo?
edit-menu:  undo-callback
edit-menu:  undo-on-demand
edit-menu:  undo-string
edit-menu:  undo-help-string
edit-menu:  get-redo-item
edit-menu:  create-redo?
edit-menu:  redo-callback
edit-menu:  redo-on-demand
edit-menu:  redo-string
edit-menu:  redo-help-string
edit-menu:  between-redo-and-cut
edit-menu:  get-cut-item
edit-menu:  create-cut?
edit-menu:  cut-callback
edit-menu:  cut-on-demand
edit-menu:  cut-string
edit-menu:  cut-help-string
edit-menu:  between-cut-and-copy
edit-menu:  get-copy-item
edit-menu:  create-copy?
edit-menu:  copy-callback
edit-menu:  copy-on-demand
edit-menu:  copy-string
edit-menu:  copy-help-string
edit-menu:  between-copy-and-paste
edit-menu:  get-paste-item
edit-menu:  create-paste?
edit-menu:  paste-callback
edit-menu:  paste-on-demand
edit-menu:  paste-string
edit-menu:  paste-help-string
edit-menu:  between-paste-and-clear
edit-menu:  get-clear-item
edit-menu:  create-clear?
edit-menu:  clear-callback
edit-menu:  clear-on-demand
edit-menu:  clear-string
edit-menu:  clear-help-string
edit-menu:  between-clear-and-select-all
edit-menu:  get-select-all-item
edit-menu:  create-select-all?
edit-menu:  select-all-callback
edit-menu:  select-all-on-demand
edit-menu:  select-all-string
edit-menu:  select-all-help-string
edit-menu:  between-select-all-and-find
edit-menu:  get-find-item
edit-menu:  create-find?
edit-menu:  find-callback
edit-menu:  find-on-demand
edit-menu:  find-string
edit-menu:  find-help-string
edit-menu:  get-find-from-selection-item
edit-menu:  create-find-from-selection?
edit-menu:  find-from-selection-callback
edit-menu:  find-from-selection-on-demand
edit-menu:  find-from-selection-string
edit-menu:  find-from-selection-help-string
edit-menu:  get-find-next-item
edit-menu:  create-find-next?
edit-menu:  find-next-callback
edit-menu:  find-next-on-demand
edit-menu:  find-next-string
edit-menu:  find-next-help-string
edit-menu:  get-find-previous-item
edit-menu:  create-find-previous?
edit-menu:  find-previous-callback
edit-menu:  find-previous-on-demand
edit-menu:  find-previous-string
edit-menu:  find-previous-help-string
edit-menu:  get-show/  hide-replace-item
edit-menu:  create-show/  hide-replace?
edit-menu:  show/  hide-replace-callback
edit-menu:  show/  hide-replace-on-demand
edit-menu:  show/  hide-replace-string
edit-menu:  show/  hide-replace-help-string
edit-menu:  get-replace-item
edit-menu:  create-replace?
edit-menu:  replace-callback
edit-menu:  replace-on-demand
edit-menu:  replace-string
edit-menu:  replace-help-string
edit-menu:  get-replace-all-item
edit-menu:  create-replace-all?
edit-menu:  replace-all-callback
edit-menu:  replace-all-on-demand
edit-menu:  replace-all-string
edit-menu:  replace-all-help-string
edit-menu:  get-find-case-sensitive-item
edit-menu:  create-find-case-sensitive?
edit-menu:  find-case-sensitive-callback
edit-menu:  find-case-sensitive-on-demand
edit-menu:  find-case-sensitive-string
edit-menu:  find-case-sensitive-help-string
edit-menu:  between-find-and-preferences
edit-menu:  get-preferences-item
edit-menu:  create-preferences?
edit-menu:  preferences-callback
edit-menu:  preferences-on-demand
edit-menu:  preferences-string
edit-menu:  preferences-help-string
edit-menu:  after-preferences
help-menu:  before-about
help-menu:  get-about-item
help-menu:  create-about?
help-menu:  about-callback
help-menu:  about-on-demand
help-menu:  about-string
help-menu:  about-help-string
help-menu:  after-about
frame:  standard-menus-mixin
on-close
frame:  editor<%>
get-entire-label
get-label-prefix
set-label-prefix
get-canvas%
get-canvas<%>
get-editor%
get-editor<%>
make-editor
revert
save
save-as
get-canvas
get-editor
frame:  editor-mixin
new
get-filename
editing-this-file?
on-close
can-close?
get-label
set-label
file-menu:  open-callback
file-menu:  revert-on-demand
file-menu:  revert-callback
file-menu:  create-revert?
file-menu:  save-callback
file-menu:  create-save?
file-menu:  save-as-callback
file-menu:  create-save-as?
file-menu:  print-callback
file-menu:  create-print?
file-menu:  between-save-as-and-print
edit-menu:  between-select-all-and-find
help-menu:  about-callback
help-menu:  about-string
help-menu:  create-about?
frame:  text<%>
frame:  text-mixin
new
get-editor<%>
frame:  pasteboard<%>
frame:  pasteboard-mixin
new
get-editor<%>
frame:  delegate<%>
get-delegated-text
set-delegated-text
delegated-text-shown?
hide-delegated-text
show-delegated-text
delegate-moved
frame:  delegate-mixin
make-root-area-container
get-editor<%>
get-editor%
frame:  searchable<%>
search
search-replace
replace-all
get-text-to-search
set-text-to-search
search-hidden?
hide-search
unhide-search
unhide-search-and-toggle-focus
get-case-sensitive-search?
search-hits-changed
frame:  searchable-mixin
edit-menu:  find-callback
edit-menu:  create-find?
edit-menu:  find-again-callback
edit-menu:  create-find-again?
edit-menu:  find-again-backwards-callback
edit-menu:  create-find-again-backwards?
edit-menu:  replace-all-callback
edit-menu:  replace-all-on-demand
edit-menu:  create-replace-all?
edit-menu:  find-case-sensitive-callback
edit-menu:  find-case-sensitive-on-demand
edit-menu:  create-find-case-sensitive?
make-root-area-container
on-close
frame:  searchable-text<%>
frame:  searchable-text-mixin
get-text-to-search
get-editor<%>
get-editor%
frame:  basic%
frame:  size-pref%
frame:  info%
frame:  text-info%
frame:  pasteboard-info%
frame:  status-line%
frame:  standard-menus%
frame:  editor%
frame:  text%
frame:  searchable%
frame:  delegate%
frame:  pasteboard%
frame:  setup-size-pref
frame:  add-snip-menu-items
frame:  reorder-menus
frame:  remove-empty-menus
frame:  current-icon
frame:  lookup-focus-table

14 Frame

interface

frame:basic<%> : interface?

  implements: frame%
Classes matching this interface support the basic frame% functionality required by the framework.

The class that this method returns is used to create the area-container<%> in this frame.

method

(send a-frame:basic get-area-container)

  (is-a?/c area-container<%>)
This returns the main area-container<%> in the frame

method

(send a-frame:basic get-menu-bar%)  (subclass?/c menu-bar%)

The result of this method is used to create the initial menu bar for this frame.

Return menu-bar%.

method

(send a-frame:basic make-root-area-container class 
  parent) 
  (is-a?/c area-container<%>)
  class : (implementation?/c area-container<%>)
  parent : (is-a?/c area-container<%>)
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:

(class ...
  ...
  (define status-panel #f)
  (define/override (make-root-area-container cls parent)
    (set! status-panel
          (super make-root-area-container vertical-pane% parent))
    (let ([root (make-object cls 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.

method

(send a-frame:basic close)  void?

This method closes the frame by calling the can-close?, on-close, and show methods.

It’s implementation is:
(inherit can-close? on-close)
(public
  [show
    (lambda ()
      (when (can-close?)
        (on-close)
        (show #f)))])

method

(send a-frame:basic editing-this-file? filename)  boolean?

  filename : path?
Indicates if this frame contains this buffer (and can edit that file).

Returns #f.

method

(send a-frame:basic get-filename [temp])  (or/c #f path?)

  temp : (or/c #f (box boolean?)) = #f
This returns the filename that the frame is currently being saved as, or #f if there is no appropriate filename.

Returns #f by default.

If temp is a box, it is filled with #t or #f, depending if the filename is a temporary filename.

method

(send a-frame:basic make-visible filename)  void?

  filename : string?
Makes the file named by filename visible (intended for use with tabbed editing).

mixin

frame:basic-mixin : (class? . -> . class?)

  argument extends/implements: frame%
  result implements: frame:basic<%>
This mixin provides the basic functionality that the framework expects. It helps manage the list of frames in the group:% object returned by group:get-the-frame-group.
Do not give panel% or control<%> objects this frame as parent. Instead, use the result of the get-area-container method.
This mixin also creates a menu bar for the frame, as the frame is initialized. It uses the class returned by get-menu-bar%. It only passes the frame as an initialization argument. In addition, it creates the windows menu in the menu bar.
This mixin calls its accept-drop-files with #t.
It also calls its set-icon method according to the current value of frame:current-icon.

method

(send a-frame:basic show on?)  void?

  on? : boolean?
Calls the super method.

When on? is #t, inserts the frame into the frame group and when it is #f, removes the frame from the group.

method

(send a-frame:basic can-exit?)  boolean?

This, together with on-exit mimics exit:exit.

First, it calls exit:set-exiting with #t. Then, it calls exit:can-exit?. If it returns #t, so does this method. If it returns #f, this method calls exit:set-exiting with #f.

method

(send a-frame:basic on-exit)  void?

Together with can-exit? this mimics the behavior of exit:exit.

Calls exit:on-exit and then queues a callback to call Racket’s exit function. If that returns, it calls exit:set-exiting to reset that flag to #f.

method

(send a-frame:basic on-superwindow-show shown?)  void?

  shown? : any/c
Notifies the result of (group:get-the-frame-group) that a frame has been shown, by calling the frame-shown/hidden method.

method

(send a-frame:basic on-drop-file pathname)  void?

  pathname : string?
Overrides on-drop-file in window<%>.
Calls handler:edit-file with pathname as an argument.

method

(send a-frame:basic after-new-child)  void?

Raises an exception if attempting to add a child to this frame (except if using the make-root-area-container method).

mixin

frame:focus-table-mixin : (class? . -> . class?)

  argument extends/implements: frame%
  result implements: frame:focus-table<%>
Instances of classes returned from this mixin track how frontmost they are based on calls made to methods at the Racket level, instead of using the calls made by the operating system as it tracks the focus.

method

(send a-frame:focus-table show on?)  void?

  on? : boolean?
When on? is #t, adds this frame to the front of the list of frames stored with the frame’s eventspace. When on? is #f, this method removes this frame from the list.

method

(send a-frame:focus-table on-close)  void?

Removes this frame from the list of frames stored with the frame’s eventspace.

interface

frame:size-pref<%> : interface?

  implements: frame:basic<%>

method

(send a-frame:size-pref adjust-size-when-monitor-setup-changes?)

  boolean?
Determines if the frame’s size should be automatically adjusted when the monitors configuration changes.

Defaults to returning #f.

mixin

frame:size-pref-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:size-pref<%>

constructor

(new frame:size-pref-mixin 
    [size-preferences-key size-preferences-key] 
    [[position-preferences-key position-preferences-key] 
    [width width] 
    [height height] 
    [x x] 
    [y y]] 
    ...superclass-args...) 
  (is-a?/c frame:size-pref-mixin)
  size-preferences-key : symbol?
  position-preferences-key : (or/c symbol? #f) = #f
  width : (or/c dimension-integer? #f) = #f
  height : (or/c dimension-integer? #f) = #f
  x : (or/c position-integer? #f) = #f
  y : (or/c position-integer? #f) = #f
The size-preferences-key symbol is used with preferences:get and preferences:set to track the current size.

If present, the position-preferences-key symbol is used with preferences:get and preferences:set to track the current position.

Both preferences are tracked on a per-monitor-configuration basis. That is, the preference value saved is a mapping from the current monitor configuration (derived from the results of get-display-count, get-display-left-top-inset, and get-display-size).

Passes the x, y, and width and height initialization arguments to the superclass and calls maximize based on the current values of the preferences.

See also frame:setup-size-pref.

method

(send a-frame:size-pref on-size width    
  height)  void?
  width : dimension-integer?
  height : dimension-integer?
Overrides on-size in window<%>.
Updates the preferences, according to the width and height. The preferences key is the one passed to the initialization argument of the class.

method

(send a-frame:size-pref on-move width    
  height)  void?
  width : position-integer?
  height : position-integer?
Overrides on-move in window<%>.
Updates the preferences according to the width and height, if position-preferences-key is not #f, using it as the preferences key.

Frames that implement this interface are registered with the group. See group:get-the-frame-group and frame:register-group-mixin.

mixin

frame:register-group-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:register-group<%>
During initialization, calls insert-framewith this.

method

(send a-frame:register-group can-close?)  boolean?

Calls the inner method, with a default of #t. If that returns #t, it checks for one of the these three conditions:

If any of those conditions hold, the method returns #t.

method

(send a-frame:register-group on-close)  void?

First calls the inner method. Next, calls the remove-frame method of the result of group:get-the-frame-group with this as an argument. Finally, unless exit:exiting? returns #t, and if there are no more frames open, it calls exit:exit.

method

(send a-frame:register-group on-activate on?)  void?

  on? : boolean?
Calls set-active-frame with this when on? is true.

interface

frame:status-line<%> : interface?

  implements: frame:basic<%>
The mixin that implements this interface provides an interface to a set of status lines at the bottom of this frame.
Each status line must be opened with open-status-line before any messages are shown in the status line and once close-status-line is called, no more messages may be displayed, unless the status line is re-opened.
The screen space for status lines is not created until update-status-line is called with a string. Additionally, the screen space for one status line is re-used when by another status line when the first passes #f to update-status-line. In this manner, the status line frame avoids opening too many status lines and avoids flashing the status lines open and closed too often.

method

(send a-frame:status-line open-status-line id)  void?

  id : symbol?
Creates a new status line identified by the symbol argument. The line will not appear in the frame until a message is put into it, via update-status-line.

method

(send a-frame:status-line close-status-line id)  void?

  id : symbol?
Closes the status line id.

method

(send a-frame:status-line update-status-line id    
  status)  void?
  id : symbol?
  status : (or/c #f string?)
Updates the status line named by id with status. If status is #f, the status line is becomes blank (and may be used by other ids).

mixin

frame:status-line-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:status-line<%>

method

(send a-frame:status-line make-root-area-container class 
  parent) 
  (is-a?/c panel%)
  class : (subclass?/c panel%)
  parent : (is-a?/c panel%)
Adds a panel at the bottom of the frame to hold the status lines.

interface

frame:info<%> : interface?

  implements: frame:basic<%>
Frames matching this interface support a status line.
The preference 'framework:show-status-line controls the visibility of the status line. If it is #t, the status line is visible and if it is #f, the status line is not visible (see preferences:get for more info about preferences)

method

(send a-frame:info determine-width str    
  canvas    
  text)  integer
  str : string
  canvas : (is-a?/c editor-canvas%)
  text : (is-a?/c text%)
This method is used to calculate the size of an editor-canvas% with a particular set of characters in it. It is used to calculate the sizes of the edits in the status line.

method

(send a-frame:info lock-status-changed)  void?

This method is called when the lock status of the editor<%> changes.

Updates the lock icon in the status line panel.

method

(send a-frame:info update-info)  void?

This method updates all of the information in the panel.

method

(send a-frame:info set-info-canvas canvas)  void?

  canvas : (or/c (is-a?/c canvas:basic%) #f)
Sets this canvas to be the canvas that the info frame shows info about. The on-focus and set-editor methods call this method to ensure that the info canvas is set correctly.

method

(send a-frame:info get-info-canvas)

  (or/c (is-a?/c canvas:basic%) #f)
Returns the canvas that the frame:info<%> currently shows info about. See also set-info-canvas

method

(send a-frame:info get-info-editor)

  (or/c #f (is-a?/c editor<%>))
Override this method to specify the editor that the status line contains information about.

Returns the result of get-editor.

method

(send a-frame:info get-info-panel)

  (is-a?/c horizontal-panel%)
This method returns the panel where the information about this editor is displayed.

method

(send a-frame:info show-info)  void?

Shows the info panel.

See also is-info-hidden?.

method

(send a-frame:info hide-info)  void?

Hides the info panel.

See also is-info-hidden?.

method

(send a-frame:info is-info-hidden?)  boolean?

Result indicates if the show info panel has been explicitly hidden with hide-info.

If this method returns #t and (preferences:get 'framework:show-status-line) is #f, then the info panel will not be visible. Otherwise, it is visible.

mixin

frame:info-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:info<%>
This mixin provides support for displaying various info in the status line of the frame.
The result of this mixin uses the same initialization arguments as the mixin’s argument.

method

(send a-frame:info make-root-area-container class 
  parent) 
  (is-a?/c area-container<%>)
  class : (subclass?/c area-container<%>)
  parent : (is-a?/c area-container<%>)
Builds an extra panel for displaying various information.

method

(send a-frame:info on-close)  void?

Removes the GC icon with unregister-collecting-blit and cleans up other callbacks.

interface

frame:text-info<%> : interface?

  implements: frame:info<%>
Objects matching this interface receive information from editors constructed with editor:info-mixin and display it.

method

(send a-frame:text-info set-macro-recording on?)  void?

  on? : boolean?
Shows/hides the icon in the info bar that indicates if a macro recording is in progress.

method

(send a-frame:text-info overwrite-status-changed)  void?

This method is called when the overwrite mode is turned either on or off in the editor<%> in this frame.

method

(send a-frame:text-info anchor-status-changed)  void?

This method is called when the anchor is turned either on or off in the editor<%> in this frame.

method

(send a-frame:text-info editor-position-changed)  void?

This method is called when the position in the editor<%> changes.

method

(send a-frame:text-info add-line-number-menu-items menu)

  void?
  menu : (is-a?/c menu-item-container<%>)
This method is called when the line/column display in the info bar is clicked. It is passed a menu-item-container<%> that can be filled in with menu items; those menu items will appear in the menu that appears when line/colun display is clicked.

mixin

frame:text-info-mixin : (class? . -> . class?)

  argument extends/implements: frame:info<%>
  result implements: frame:text-info<%>
This mixin adds status information to the info panel relating to an edit.

method

(send a-frame:text-info on-close)  void?

removes a preferences callback for 'framework:line-offsets. See preferences:add-callback for more information.

method

(send a-frame:text-info update-info)  void?

mixin

frame:pasteboard-info-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:pasteboard-info<%>

method

(send a-frame:standard-menus on-close)  void?

Removes the preferences callbacks for the menu items

method

(send a-frame:standard-menus get-menu%)

  (is-a?/c menu:can-restore-underscore-menu%)
The result of this method is used as the class for creating the result of these methods: get-file-menu, get-edit-menu, and get-help-menu.

method

(send a-frame:standard-menus get-menu-item%)

  (is-a?/c menu:can-restore-menu-item%)
The result of this method is used as the class for creating the menu items in this frame.

Returns menu:can-restore-menu-item by default.
The result of this method is used as the class for creating checkable menu items in this class.

returns menu:can-restore-checkable-menu-item by default.

method

(send a-frame:standard-menus get-file-menu)  (is-a?/c menu%)

Returns the file menu. See also get-menu%.

method

(send a-frame:standard-menus get-edit-menu)  (is-a?/c menu%)

Returns the edit menu. See also get-menu%.

method

(send a-frame:standard-menus get-help-menu)  (is-a?/c menu%)

Returns the help menu. See also get-menu%.

method

(send a-frame:standard-menus file-menu:get-new-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-new?).

method

(send a-frame:standard-menus file-menu:create-new?)  boolean?

The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus file-menu:new-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:new-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:new-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant new-menu-item).

method

(send a-frame:standard-menus file-menu:new-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant new-info).

method

(send a-frame:standard-menus file-menu:between-new-and-open menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the new and the open menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus file-menu:get-open-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-open?).

method

(send a-frame:standard-menus file-menu:create-open?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus file-menu:open-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:open-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:open-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant open-menu-item).

method

(send a-frame:standard-menus file-menu:open-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant open-info).

method

(send a-frame:standard-menus file-menu:get-open-recent-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-open-recent?).

method

(send a-frame:standard-menus file-menu:create-open-recent?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus file-menu:open-recent-callback x 
  y) 
  void?
  x : (is-a?/c menu-item%)
  y : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:open-recent-on-demand menu)

  void?
  menu : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:open-recent-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant open-recent-menu-item).

method

(send a-frame:standard-menus file-menu:open-recent-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant open-recent-info).

method

(send a-frame:standard-menus file-menu:between-open-and-revert menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the open and the revert menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus file-menu:get-revert-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-revert?).

method

(send a-frame:standard-menus file-menu:create-revert?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus file-menu:revert-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:revert-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:revert-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant revert-menu-item).

method

(send a-frame:standard-menus file-menu:revert-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant revert-info).

method

(send a-frame:standard-menus file-menu:between-revert-and-save menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the revert and the save menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus file-menu:get-save-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-save?).

method

(send a-frame:standard-menus file-menu:create-save?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus file-menu:save-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:save-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:save-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant save-menu-item).

method

(send a-frame:standard-menus file-menu:save-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant save-info).

method

(send a-frame:standard-menus file-menu:get-save-as-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-save-as?).

method

(send a-frame:standard-menus file-menu:create-save-as?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus file-menu:save-as-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:save-as-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:save-as-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant save-as-menu-item).

method

(send a-frame:standard-menus file-menu:save-as-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant save-as-info).

method

(send a-frame:standard-menus file-menu:between-save-as-and-print menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the save-as and the print menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus file-menu:get-print-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-print?).

method

(send a-frame:standard-menus file-menu:create-print?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus file-menu:print-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:print-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:print-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant print-menu-item).

method

(send a-frame:standard-menus file-menu:print-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant print-info).

method

(send a-frame:standard-menus file-menu:between-print-and-close menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the print and the close menu-item. Override it to add additional menu items at that point.

Defaults to creating a separator-menu-item%.

method

(send a-frame:standard-menus file-menu:get-close-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-close?).

method

(send a-frame:standard-menus file-menu:create-close?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus file-menu:close-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

(begin (when (can-close?) (on-close) (show #f)) #t)

method

(send a-frame:standard-menus file-menu:close-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:close-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (if (eq? (system-type) 'unix) (string-constant close-menu-item) (string-constant close-window-menu-item)).

method

(send a-frame:standard-menus file-menu:close-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant close-info).

method

(send a-frame:standard-menus file-menu:between-close-and-quit menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the close and the quit menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus file-menu:get-quit-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by file-menu:create-quit?).

method

(send a-frame:standard-menus file-menu:create-quit?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to (not (eq? (system-type) 'macosx)).

method

(send a-frame:standard-menus file-menu:quit-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus file-menu:quit-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus file-menu:quit-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (if (eq? (system-type) 'windows) (string-constant quit-menu-item-windows) (string-constant quit-menu-item-others)).

method

(send a-frame:standard-menus file-menu:quit-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant quit-info).

method

(send a-frame:standard-menus file-menu:after-quit menu)  void?

  menu : (is-a?/c menu-item%)
This method is called after the addition of the quit menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-undo-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-undo?).

method

(send a-frame:standard-menus edit-menu:create-undo?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:undo-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'undo)))
  #t)

method

(send a-frame:standard-menus edit-menu:undo-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'undo))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:undo-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant undo-menu-item).

method

(send a-frame:standard-menus edit-menu:undo-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant undo-info).

method

(send a-frame:standard-menus edit-menu:get-redo-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-redo?).

method

(send a-frame:standard-menus edit-menu:create-redo?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:redo-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'redo)))
  #t)

method

(send a-frame:standard-menus edit-menu:redo-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'redo))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:redo-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant redo-menu-item).

method

(send a-frame:standard-menus edit-menu:redo-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant redo-info).

method

(send a-frame:standard-menus edit-menu:between-redo-and-cut menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the redo and the cut menu-item. Override it to add additional menu items at that point.

Defaults to creating a separator-menu-item%.

method

(send a-frame:standard-menus edit-menu:get-cut-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-cut?).

method

(send a-frame:standard-menus edit-menu:create-cut?)  boolean?

The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:cut-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'cut)))
  #t)

method

(send a-frame:standard-menus edit-menu:cut-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'cut))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:cut-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant cut-menu-item).

method

(send a-frame:standard-menus edit-menu:cut-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant cut-info).

method

(send a-frame:standard-menus edit-menu:between-cut-and-copy menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the cut and the copy menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-copy-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-copy?).

method

(send a-frame:standard-menus edit-menu:create-copy?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:copy-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'copy)))
  #t)

method

(send a-frame:standard-menus edit-menu:copy-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'copy))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:copy-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant copy-menu-item).

method

(send a-frame:standard-menus edit-menu:copy-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant copy-info).

method

(send a-frame:standard-menus edit-menu:between-copy-and-paste menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the copy and the paste menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-paste-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-paste?).

method

(send a-frame:standard-menus edit-menu:create-paste?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:paste-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'paste)))
  #t)

method

(send a-frame:standard-menus edit-menu:paste-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'paste))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:paste-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant paste-menu-item).

method

(send a-frame:standard-menus edit-menu:paste-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant paste-info).

method

(send a-frame:standard-menus edit-menu:between-paste-and-clear menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the paste and the clear menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-clear-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-clear?).

method

(send a-frame:standard-menus edit-menu:create-clear?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:clear-callback menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'clear)))
  #t)

method

(send a-frame:standard-menus edit-menu:clear-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'clear))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:clear-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (if (eq? (system-type) 'windows) (string-constant clear-menu-item-windows) (string-constant clear-menu-item-windows)).

method

(send a-frame:standard-menus edit-menu:clear-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant clear-info).

method

(send a-frame:standard-menus edit-menu:between-clear-and-select-all menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the clear and the select-all menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-select-all-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-select-all?).

method

(send a-frame:standard-menus edit-menu:create-select-all?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #t.

method

(send a-frame:standard-menus edit-menu:select-all-callback 
  menu 
  evt) 
  void?
  menu : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Defaults to
(begin
  (let ((edit (get-edit-target-object)))
    (when (and edit (is-a? edit editor<%>))
      (send edit do-edit-operation 'select-all)))
  #t)

method

(send a-frame:standard-menus edit-menu:select-all-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(let* ((editor (get-edit-target-object))
       (enable?
        (and editor
             (is-a? editor editor<%>)
             (send editor can-do-edit-operation? 'select-all))))
  (send item enable enable?))

method

(send a-frame:standard-menus edit-menu:select-all-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant select-all-menu-item).

method

(send a-frame:standard-menus edit-menu:select-all-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant select-all-info).

method

(send a-frame:standard-menus edit-menu:between-select-all-and-find menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the select-all and the find menu-item. Override it to add additional menu items at that point.

Defaults to creating a separator-menu-item%.

method

(send a-frame:standard-menus edit-menu:get-find-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-find?).

method

(send a-frame:standard-menus edit-menu:create-find?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:find-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:find-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(send item enable
  (let
   ((target (get-edit-target-object)))
   (and target (is-a? target editor<%>))))

method

(send a-frame:standard-menus edit-menu:find-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant find-menu-item).

method

(send a-frame:standard-menus edit-menu:find-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant find-info).

method

(send a-frame:standard-menus edit-menu:get-find-from-selection-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-find-from-selection?).

method

(send a-frame:standard-menus edit-menu:create-find-from-selection?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:find-from-selection-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:find-from-selection-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(send item enable
  (let
   ((target (get-edit-target-object)))
   (and target (is-a? target editor<%>))))

method

(send a-frame:standard-menus edit-menu:find-from-selection-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant find-from-selection-menu-item).

method

(send a-frame:standard-menus edit-menu:find-from-selection-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant find-info).

method

(send a-frame:standard-menus edit-menu:get-find-next-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-find-next?).

method

(send a-frame:standard-menus edit-menu:create-find-next?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:find-next-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:find-next-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(send item enable
  (let
   ((target (get-edit-target-object)))
   (and target (is-a? target editor<%>))))

method

(send a-frame:standard-menus edit-menu:find-next-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant find-next-menu-item).

method

(send a-frame:standard-menus edit-menu:find-next-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant find-next-info).

method

(send a-frame:standard-menus edit-menu:get-find-previous-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-find-previous?).

method

(send a-frame:standard-menus edit-menu:create-find-previous?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:find-previous-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:find-previous-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(send item enable
  (let
   ((target (get-edit-target-object)))
   (and target (is-a? target editor<%>))))

method

(send a-frame:standard-menus edit-menu:find-previous-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant find-previous-menu-item).

method

(send a-frame:standard-menus edit-menu:find-previous-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant find-previous-info).

method

(send a-frame:standard-menus edit-menu:get-show/hide-replace-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-show/hide-replace?).

method

(send a-frame:standard-menus edit-menu:create-show/hide-replace?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:show/hide-replace-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:show/hide-replace-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus edit-menu:show/hide-replace-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant show-replace-menu-item).

method

(send a-frame:standard-menus edit-menu:show/hide-replace-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant show/hide-replace-info).

method

(send a-frame:standard-menus edit-menu:get-replace-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-replace?).

method

(send a-frame:standard-menus edit-menu:create-replace?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:replace-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:replace-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus edit-menu:replace-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant replace-menu-item).

method

(send a-frame:standard-menus edit-menu:replace-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant replace-info).

method

(send a-frame:standard-menus edit-menu:get-replace-all-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-replace-all?).

method

(send a-frame:standard-menus edit-menu:create-replace-all?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:replace-all-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:replace-all-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus edit-menu:replace-all-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant replace-all-menu-item).

method

(send a-frame:standard-menus edit-menu:replace-all-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant replace-all-info).

method

(send a-frame:standard-menus edit-menu:get-find-case-sensitive-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-find-case-sensitive?).

method

(send a-frame:standard-menus edit-menu:create-find-case-sensitive?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus edit-menu:find-case-sensitive-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:find-case-sensitive-on-demand item)

  void?
  item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to
(send item enable
  (let
   ((target (get-edit-target-object)))
   (and target (is-a? target editor<%>))))

method

(send a-frame:standard-menus edit-menu:find-case-sensitive-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant find-case-sensitive-menu-item).

method

(send a-frame:standard-menus edit-menu:find-case-sensitive-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant find-case-sensitive-info).

method

(send a-frame:standard-menus edit-menu:between-find-and-preferences menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called between the addition of the find and the preferences menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus edit-menu:get-preferences-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by edit-menu:create-preferences?).

method

(send a-frame:standard-menus edit-menu:create-preferences?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

method

(send a-frame:standard-menus edit-menu:preferences-callback 
  item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus edit-menu:preferences-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus edit-menu:preferences-string)

  string?
The result of this method is used as the name of the menu-item%.

Defaults to (string-constant preferences-menu-item).

method

(send a-frame:standard-menus edit-menu:preferences-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant preferences-info).

method

(send a-frame:standard-menus edit-menu:after-preferences menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called after the addition of the preferences menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus help-menu:before-about menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called before the addition of the about menu-item. Override it to add additional menu items at that point.

method

(send a-frame:standard-menus help-menu:get-about-item)

  (or/c false/c (is-a?/c menu-item%))
This method returns the menu-item% object corresponding to this menu item, if it has been created (as controlled by help-menu:create-about?).

method

(send a-frame:standard-menus help-menu:create-about?)

  boolean?
The result of this method determines if the corresponding menu item is created. Override it to control the creation of the menu item.

Defaults to #f.

method

(send a-frame:standard-menus help-menu:about-callback item 
  control) 
  void?
  item : (is-a?/c menu-item%)
  control : (is-a?/c control-event%)
Defaults to

method

(send a-frame:standard-menus help-menu:about-on-demand menu-item)

  void?
  menu-item : (is-a?/c menu-item%)
The menu item’s on-demand proc calls this method.

Defaults to

method

(send a-frame:standard-menus help-menu:about-string)  string?

The result of this method is used as the name of the menu-item%.

Defaults to (string-constant about-menu-item).

method

(send a-frame:standard-menus help-menu:about-help-string)

  string?
The result of this method is used as the help string when the menu-item% object is created.

Defaults to (string-constant about-info).

method

(send a-frame:standard-menus help-menu:after-about menu)

  void?
  menu : (is-a?/c menu-item%)
This method is called after the addition of the about menu-item. Override it to add additional menu items at that point.

mixin

frame:standard-menus-mixin : (class? . -> . class?)

  argument extends/implements: frame:basic<%>
  result implements: frame:standard-menus<%>
The result of this mixin implements frame:standard-menus<%>.

method

(send a-frame:standard-menus on-close)  void?

Removes the preferences callbacks for the menu items

Frame classes matching this interface support embedded editors.

method

(send a-frame:editor get-entire-label)  string

This method returns the entire label for the frame. See also set-label and set-label-prefix.

method

(send a-frame:editor get-label-prefix)  string?

This returns the prefix for the frame’s label.

method

(send a-frame:editor set-label-prefix prefix)  void?

  prefix : string?
Sets the prefix for the label of the frame.

method

(send a-frame:editor get-canvas%)

  (subclass?/c editor-canvas%)
The result of this method is used to create the canvas for the editor<%> in this frame.

Returns editor-canvas%.

method

(send a-frame:editor get-canvas<%>)  (is-a?/c canvas:basic%)

The result of this method is used to guard the result of the get-canvas% method.

method

(send a-frame:editor get-editor%)

  (implementation?/c editor<%>)
The result of this class is used to create the editor<%> in this frame.

Override this method to specify a different editor class.

Returns the value of the init-field editor%.

method

(send a-frame:editor get-editor<%>)  interface?

The result of this method is used by make-editor to check that get-editor% is returning a reasonable editor.

Returns editor<%>.

method

(send a-frame:editor make-editor)  (is-a?/c editor<%>)

This method is called to create the editor in this frame. It calls get-editor<%> and uses that interface to make sure the result of get-editor% is reasonable.

Calls (make-object get-editor%).

method

(send a-frame:editor revert)  void?

Loads the most recently saved version of the file to the disk. If the editor<%> is a text%, the start and end positions are restored.

method

(send a-frame:editor save [format])  boolean?

  format : (or/c 'guess 'standard 'text 'text-force-cr 'same 'copy)
   = 'same
Saves the file being edited, possibly calling save-as if the editor has no filename yet.

Returns #f if the user cancels this operation (only possible when the file has not been saved before and the user is prompted for a new filename) and returns #t if not.

method

(send a-frame:editor save-as [format])  boolean?

  format : (or/c 'guess 'standard 'text 'text-force-cr 'same 'copy)
   = 'same
Queries the use for a file name and saves the file with that name.

Returns #f if the user cancells the file-choosing dialog and returns #t otherwise.

method

(send a-frame:editor get-canvas)  (is-a?/c canvas%)

Returns the canvas used to display the editor<%> in this frame.

method

(send a-frame:editor get-editor)  (is-a?/c editor<%>)

Returns the editor in this frame.

mixin

frame:editor-mixin : (class? . -> . class?)

  argument extends/implements: frame:standard-menus<%>
  result implements: frame:editor<%>
This mixin adds functionality to support an editor<%> in the frame. This includes management of the title, implementations of some of the menu items, a reasonable initial size, and access to the editor<%> itself.
The size of this frame with be either 600 by 650 or 65 less than the width and height of the screen, whichever is smaller.

constructor

(new frame:editor-mixin 
    [filename filename] 
    [editor% editor%] 
    [[parent parent] 
    [width width] 
    [height height] 
    [x x] 
    [y y] 
    [style style] 
    [enabled enabled] 
    [border border] 
    [spacing spacing] 
    [alignment alignment] 
    [min-width min-width] 
    [min-height min-height] 
    [stretchable-width stretchable-width] 
    [stretchable-height stretchable-height]]) 
  (is-a?/c frame:editor-mixin)
  filename : string?
  editor% : (implementation?/c editor:basic<%>)
  parent : (or/c (is-a?/c frame%) false/c) = #f
  width : (or/c dimension-integer? false/c) = #f
  height : (or/c dimension-integer? false/c) = #f
  x : (or/c position-integer? false/c) = #f
  y : (or/c position-integer? false/c) = #f
  style : 
(listof (or/c 'no-resize-border
              'no-caption
              'no-system-menu
              'hide-menu-bar
              'mdi-parent
              'mdi-child
              'toolbar-button
              'float
              'metal))
 = null
  enabled : any/c = #t
  border : spacing-integer? = 0
  spacing : spacing-integer? = 0
  alignment : (list/c (or/c 'left 'center 'right) (or/c 'top 'center 'bottom))
   = '(center top)
  min-width : dimension-integer? = graphical-minimum-width
  min-height : dimension-integer? = graphical-minimum-height
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t

method

(send a-frame:editor get-filename)  (or/c #f path?)

Returns the filename in the editor returned by get-editor.

method

(send a-frame:editor editing-this-file? filename)  boolean?

  filename : path?
Returns #t if the filename is the file that this frame is editing.

method

(send a-frame:editor on-close)  void?

Calls the editor:basic<%>’s method on-close.

method

(send a-frame:editor can-close?)  void?

Calls the editor:basic<%>’s method can-close?.

method

(send a-frame:editor get-label)  string?

Overrides get-label in window<%>.
Returns the portion of the label after the hyphen. See also get-entire-label.

method

(send a-frame:editor set-label label)  void?

  label : string?
Overrides set-label in window<%>.
Sets the label, but preserves the label’s prefix. See also set-label-prefix.

method

(send a-frame:editor file-menu:open-callback item    
  evt)  void?
  item : (is-a?/c menu-item<%>)
  evt : (is-a?/c mouse-event%)
Calls handler:open-file with the directory of the saved file associated with this editor (if any).

method

(send a-frame:editor file-menu:revert-on-demand)  void?

Disables the menu item when the editor is locked.

method

(send a-frame:editor file-menu:revert-callback item    
  evt)  void?
  item : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Informs the user that this action is not undoable and, if they still want to continue, calls revert.

method

(send a-frame:editor file-menu:create-revert?)  boolean?

returns #t.

method

(send a-frame:editor file-menu:save-callback item    
  evt)  void?
  item : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Saves the file in the editor.

method

(send a-frame:editor file-menu:create-save?)  boolean?

returns #t.

method

(send a-frame:editor file-menu:save-as-callback item    
  evt)  void?
  item : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Prompts the user for a file name and uses that filename to save the buffer. Calls save-as with no arguments.

method

(send a-frame:editor file-menu:create-save-as?)  boolean?

returns #t.

method

(send a-frame:editor file-menu:print-callback item    
  evt)  void?
  item : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Calls the print method of editor<%> with the default arguments, except that the output-mode argument is the result of calling preferences:get with 'framework:print-output-mode.

method

(send a-frame:editor file-menu:create-print?)  boolean?

returns #t.

method

(send a-frame:editor file-menu:between-save-as-and-print file-menu)

  void?
  file-menu : (is-a?/c menu%)
Creates a Print Setup menu item if can-get-page-setup-from-user? and file-menu:create-print? both return true.

method

(send a-frame:editor edit-menu:between-select-all-and-find edit-menu)

  void?
  edit-menu : (is-a?/c menu%)
Adds a menu item for toggling auto-wrap in the focused text.

method

(send a-frame:editor help-menu:about-callback item    
  evt)  void?
  item : (is-a?/c menu-item%)
  evt : (is-a?/c control-event%)
Calls message-box with a message welcoming the user to the application named by application:current-app-name

method

(send a-frame:editor help-menu:about-string)  string

Returns the result of (application:current-app-name)

method

(send a-frame:editor help-menu:create-about?)  boolean?

returns #t.

interface

frame:text<%> : interface?

  implements: frame:editor<%>
Frames matching this interface provide support for text%s.

mixin

frame:text-mixin : (class? . -> . class?)

  argument extends/implements: frame:editor<%>
  result implements: frame:text<%>
This mixins adds support for text%s in the frame.

constructor

(new frame:text-mixin [editor% editor%])

  (is-a?/c frame:text-mixin)
  editor% : (extends text%)
Calls the super initialization with either the value of the editor% init or, if none was supplied, it passes text%.

method

(send a-frame:text get-editor<%>)  interface

interface

frame:pasteboard<%> : interface?

  implements: frame:editor<%>
Frames matching this interface provide support for pasteboard%s.

mixin

frame:pasteboard-mixin : (class? . -> . class?)

  argument extends/implements: frame:editor<%>
  result implements: frame:pasteboard<%>
This mixin provides support for pasteboards in a frame.

constructor

(new frame:pasteboard-mixin [editor% editor%])

  (is-a?/c frame:pasteboard-mixin)
  editor% : (extends pasteboard%)
Calls the super initialization with either the value of the editor% init or, if none was supplied, it passes pasteboard%.

method

(send a-frame:pasteboard get-editor<%>)  interface

Frames that implement this interface provide a 20,000 feet overview of the text in the main editor. The term delegate in these method descriptions refers to the original editor and the term delegatee refers to the editor showing the 20,000 feet overview.

method

(send a-frame:delegate get-delegated-text)

  (or/c #f (is-a?/c text:delegate<%>))
Returns the current delegate text, if any.

method

(send a-frame:delegate set-delegated-text d)  void?

  d : (or/c #f (is-a?/c text:delegate<%>))
Sets the delegate text to d.

method

(send a-frame:delegate delegated-text-shown?)  boolean?

Returns #t if the delegate is visible, and #f if it isn’t.

method

(send a-frame:delegate hide-delegated-text)  void?

Hides the delegated text.

When the delegated text is hidden, it is not being updated. This is accomplished by calling the set-delegate method of get-editorwith #f.

method

(send a-frame:delegate show-delegated-text)  void?

Makes the delegated text visible.

When the delegated text is shown, the set-delegate method of get-delegated-textis called with the text to delegate messages to.

See also hide-delegated-text.

method

(send a-frame:delegate delegate-moved)  void?

This method is called when the visible region of the delegate editor changes, so that the blue region in the delegatee is updated.

mixin

frame:delegate-mixin : (class? . -> . class?)

  argument extends/implements: frame:status-line<%>
 frame:text<%>
  result implements: frame:delegate<%>
Adds support for a 20,000-feet view via text:delegate<%> and text:delegate-mixin.

method

(send a-frame:delegate make-root-area-container class 
  parent) 
  (is-a?/c panel%)
  class : (subclass?/c panel%)
  parent : (is-a?/c panel%)
Adds a panel outside to hold the delegate editor-canvas% and text%.

method

(send a-frame:delegate get-editor<%>)  interface

method

(send a-frame:delegate get-editor%)

  (is-a?/c text:delegate<%>)
returns the super result, with the text:delegate-mixin mixed in.

interface

frame:searchable<%> : interface?

  implements: frame:basic<%>
Frames that implement this interface support searching.

method

(send a-frame:searchable search direction)  void?

  direction : (symbols 'forward 'backward)
Searches for the text in the search edit in the result of get-text-to-search.

If the text is found and it sets the selection to the found text.

method

(send a-frame:searchable search-replace)  boolean?

If there is a dark purple bubble (ie, if the replace portion of the search bar is visible and there is a search hit after the insertion point), then this will replace it with the contents of the replace editor and move the insertion point to just after that, or to the end of the editor (if there are no more search hits after the insertion point, but there are search hits before it).

method

(send a-frame:searchable replace-all)  void?

Loops through the text from the beginning to the end, replacing all occurrences of the search string with the contents of the replace edit.

method

(send a-frame:searchable get-text-to-search)  (is-a?/c text%)

Returns the last value passed to set-text-to-search.

method

(send a-frame:searchable set-text-to-search txt)  void?

  txt : (or/c false/c (is-a?/c (subclass?/c text%)))
Sets the current text to be searched.

method

(send a-frame:searchable search-hidden?)  boolean?

Returns #t if the search subwindow is visiable and #f otherwise.

method

(send a-frame:searchable hide-search)  void?

This method hides the searching information on the bottom of the frame.

method

(send a-frame:searchable unhide-search 
  move-focus? 
  [#:new-search-string-from-selection? new-search-string-from-selection?]) 
  void?
  move-focus? : boolean?
  new-search-string-from-selection? : boolean? = #f
When the searching sub window is hidden, makes it visible. If move-focus? is #f, the focus is not moved, but if it is any other value, the focus is moved to the find window.

If new-search-string-from-selection? is a true value and the selection in the result of get-text-to-search is not empty, then the search editor is replaced with the selection.

method

(send a-frame:searchable unhide-search-and-toggle-focus [#:new-search-string-from-selection? new-search-string-from-se