6941a07998
for the case where one keybinding's keys is a prefix of anothers (and the keymaps are chained)
48 lines
1.9 KiB
Racket
48 lines
1.9 KiB
Racket
#lang scribble/doc
|
|
@(require scribble/manual scribble/extract)
|
|
@(require (for-label framework))
|
|
@(require (for-label scheme/gui))
|
|
@title{Keymap}
|
|
|
|
@definterface[keymap:aug-keymap<%> (keymap%)]{
|
|
This keymap overrides some of the built in @racket[keymap%] methods to be
|
|
able to extract the keybindings from the keymap.
|
|
|
|
@defmethod*[(((get-chained-keymaps) (listof (is-a?/c keymap%))))]{
|
|
Returns the list of keymaps that are chained to this one.
|
|
}
|
|
|
|
@defmethod*[(((get-map-function-table) hash?))]{
|
|
Returns a hash-table that maps symbols naming key sequences to the names of
|
|
the keymap functions the are bound to.
|
|
}
|
|
|
|
@defmethod*[(((get-map-function-table/ht (ht hash?)) hash?))]{
|
|
This is a helper function for @method[keymap:aug-keymap<%>
|
|
get-map-function-table] that returns a similar result, except it accepts a
|
|
hash-table that it inserts the bindings into. It does not replace any
|
|
bindings already in @racket[ht]. The result is different from
|
|
@method[keymap:aug-keymap<%> get-map-function-table] only in that
|
|
@racket[keymap:aug-keymap<%> get-map-function-table] will remove keybindings
|
|
that are also have a prefix (since those keybindings are not active).
|
|
}
|
|
}
|
|
@defmixin[keymap:aug-keymap-mixin (keymap%) (keymap:aug-keymap<%>)]{
|
|
@defmethod*[#:mode override (((chain-to-keymap (next (is-a?/c keymap%)) (prefix? boolean?)) void))]{
|
|
Keeps a list of the keymaps chained to this one.
|
|
}
|
|
|
|
@defmethod*[#:mode override (((remove-chained-keymap (keymap (is-a?/c keymap))) void))]{
|
|
Keeps the list of the keymaps chained to this one up to date.
|
|
}
|
|
|
|
@defmethod*[#:mode override (((map-function (key-name string) (function-name string)) void))]{
|
|
Keeps a separate record of the key names and functions that they are bound
|
|
to in this keymap.
|
|
}
|
|
}
|
|
|
|
@defclass[keymap:aug-keymap% (keymap:aug-keymap-mixin keymap%) ()]{}
|
|
|
|
@(include-previously-extracted "main-extracts.rkt" #rx"^keymap:")
|