...

original commit: c2c7891c733e8564adec3b581c67d56cdecb1afe

collects/framework/frame.ss

@@ -11,6 +11,7 @@
 	  [finder : framework:finder^]
 	  [keymap : framework:keymap^]
 	  [text : framework:text^]
+	  [editor : framework:editor^]
 	  [mzlib:function : mzlib:function^])
 
   (rename [-editor<%> editor<%>]
@@ -706,7 +707,7 @@
 	     r-root))])
       
       (override
-        [get-editor<%> (lambda () text:info<%>)]
+        [get-editor<%> (lambda () editor:info<%>)]
         [get-editor% (lambda () text:info%)])
 
       (public

collects/framework/group.ss

@@ -8,7 +8,7 @@
   (define-struct frame (frame id))
   
   (define %
-    (class null ()
+    (class object% ()
       (private
 	[active-frame #f]
 	[frame-counter 0]
@@ -195,7 +195,9 @@
 		  (let* ([frame (frame-frame (car frames))])
 		    (if (test-frame frame)
 			frame
-			(loop (cdr frames))))]))))])))
+			(loop (cdr frames))))]))))])
+      (sequence
+	(super-init))))
   
   (define the-frame-group #f)
   

collects/framework/handler.ss

@@ -111,7 +111,7 @@
 
   (define *open-directory* ; object to remember last directory
     (make-object 
-	(class null ()
+	(class object% ()
 	  (private 
 	    [the-dir #f])
 	  (public
@@ -123,7 +123,8 @@
 	     (lambda ()
 	       (set! the-dir (current-directory)))])
 	  (sequence
-	    (set-to-default)))))
+	    (set-to-default)
+	    (super-init)))))
 
   (define open-file
     (lambda ()

collects/tests/framework/framework-test-engine.ss

@@ -1,4 +1,4 @@
-(require-library "errortrace.ss" "errortrace")
+(require-library "errortrace.ss" "errortrace") (error-print-width 80)
 
 (let* ([errs null]
        [sema (make-semaphore 1)]
@@ -15,9 +15,9 @@
 	  [exception->string
 	   (lambda (x)
 	     (if (exn? x)
-		 (if (defined? 'errortrace-print-trace)
+		 (if (defined? 'print-error-trace)
 		     (let ([p (open-output-string)])
-		       (errortrace-print-trace p x)
+		       (print-error-trace p x)
 		       (string-append (exn-message x) (string #\newline) (get-output-string p)))
 		     (exn-message x))
 		 (format "~s" x)))])