...
original commit: 5527637173c76adfd1ff3849bfaee35a8d330464
This commit is contained in:
parent
6cd1f2d48a
commit
aecb4d0a9c
|
@ -25,12 +25,13 @@
|
||||||
single-window<%>
|
single-window<%>
|
||||||
single-window-mixin
|
single-window-mixin
|
||||||
|
|
||||||
multi-view-mixin
|
;multi-view-mixin
|
||||||
multi-view<%>
|
;multi-view<%>
|
||||||
|
|
||||||
single%
|
single%
|
||||||
single-pane%
|
single-pane%
|
||||||
multi-view%))
|
;multi-view%
|
||||||
|
))
|
||||||
|
|
||||||
(define-signature framework:exn^
|
(define-signature framework:exn^
|
||||||
((struct exn ())
|
((struct exn ())
|
||||||
|
|
|
@ -15,8 +15,8 @@
|
||||||
get-map-function-table
|
get-map-function-table
|
||||||
get-map-function-table/ht))
|
get-map-function-table/ht))
|
||||||
|
|
||||||
(define (aug-keymap-mixin super%)
|
(define aug-keymap-mixin
|
||||||
(class* super% (aug-keymap<%>) args
|
(mixin ((class->interface keymap%)) (aug-keymap<%>) args
|
||||||
(private
|
(private
|
||||||
[chained-keymaps null])
|
[chained-keymaps null])
|
||||||
(public
|
(public
|
||||||
|
|
Loading…
Reference in New Issue
Block a user