diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss index e2a54ae8..93467470 100644 --- a/collects/framework/frameworks.ss +++ b/collects/framework/frameworks.ss @@ -25,12 +25,13 @@ single-window<%> single-window-mixin - multi-view-mixin - multi-view<%> + ;multi-view-mixin + ;multi-view<%> single% single-pane% - multi-view%)) + ;multi-view% + )) (define-signature framework:exn^ ((struct exn ()) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index 51562a03..1f196d61 100644 --- a/collects/framework/keymap.ss +++ b/collects/framework/keymap.ss @@ -15,8 +15,8 @@ get-map-function-table get-map-function-table/ht)) - (define (aug-keymap-mixin super%) - (class* super% (aug-keymap<%>) args + (define aug-keymap-mixin + (mixin ((class->interface keymap%)) (aug-keymap<%>) args (private [chained-keymaps null]) (public