...

original commit: 5527637173c76adfd1ff3849bfaee35a8d330464

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 ())

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