.

original commit: b10923101e0181aa0a6838769c1864278a8d583e

collects/framework/framework.ss

@@ -621,7 +621,7 @@
       (union false? regexp?)
       string?
       (union false? (is-a?/c top-level-window<%>)))
-     (union string? false?))
+     (union (listof string?) false?))
     (()
      ((directory #f)
       (prompt "Select File")

collects/framework/private/frame.ss

@@ -518,7 +518,6 @@
                               (+ magic-space (- (inexact->exact (floor (unbox rb)))
                                                 (inexact->exact (floor (unbox lb))))))))))]
           
-          (rename [super-on-close on-close])
           [define outer-info-panel 'top-info-panel-uninitialized]
           
           ;; this flag is specific to this frame
@@ -556,8 +555,9 @@
              (lambda (p v)
                (update-info-visibility v)))]
           [define memory-cleanup void] ;; only for CVSers; used with memory-text
-          (override on-close)
-          [define on-close
+
+          (rename [super-on-close on-close])
+          [define/override on-close
             (lambda ()
               (super-on-close)
               (unregister-collecting-blit gc-canvas)
@@ -687,7 +687,6 @@
       (define text-info-mixin
         (mixin (info<%>) (text-info<%>)
           (inherit get-info-editor)
-          (rename [super-on-close on-close])
           [define remove-first
             (preferences:add-callback
              'framework:col-offsets
@@ -703,9 +702,9 @@
                (editor-position-changed-offset/numbers
                 (preferences:get 'framework:col-offsets)
                 v)
-               #t))]          
-          (override on-close)
-          [define on-close
+               #t))]
+          (rename [super-on-close on-close])
+          [define/override on-close
             (lambda ()
               (super-on-close)
               (remove-first)
@@ -2065,8 +2064,7 @@
              (lambda (p v)
                (when p
                  (hide-search)))))
-          (override on-close)
-          (define on-close
+          (define/override on-close
             (lambda ()
               (super-on-close)
               (remove-callback)

collects/framework/private/menu.ss

@@ -1,7 +1,6 @@
 (module menu mzscheme
   (require (lib "unitsig.ss")
 	   (lib "class.ss")
-	   (lib "class100.ss")
 	   "sig.ss"
 	   "../macro.ss"
 	   (lib "mred-sig.ss" "mred"))

collects/framework/private/pasteboard.ss

@@ -1,9 +1,6 @@
 (module pasteboard mzscheme
   (require (lib "unitsig.ss")
-	   (lib "class.ss")
-	   (lib "class100.ss")
 	   "sig.ss"
-	   "../macro.ss"
 	   (lib "mred-sig.ss" "mred"))
 
   (provide pasteboard@)

collects/framework/private/text.ss

@@ -3,7 +3,6 @@
   (require (lib "string-constant.ss" "string-constants")
            (lib "unitsig.ss")
 	   (lib "class.ss")
-	   (lib "class100.ss")
 	   "sig.ss"
 	   "../macro.ss"
 	   "../gui-utils.ss"