.

original commit: 58377f467612bbaab63cc52fe50b030ef378a191

collects/framework/editor.ss

@@ -29,7 +29,7 @@
 ;     (override
 ;      [copy-self
 ;	(lambda ()
-;	  (let ([editor (make-object (object-class this))])
+;	  (let ([editor (make-object (object-interface this))])
 ;	   (copy-self-to editor)
 ;	    editor))])
 	   

collects/framework/frame.ss

@@ -93,7 +93,7 @@
         [on-drop-file
          (lambda (filename)
            (handler:edit-file filename))]
-	[on-new-child
+	[after-new-child
 	 (lambda (child)
 	   (when after-init?
 	     (error 'frame:basic-mixin

collects/framework/group.ss

@@ -55,7 +55,7 @@
 		   (lambda (frame)
 		     (let ([label (send frame get-label)])
 		       (if (string=? label "")
-			   (if (ivar-in-class? 'get-entire-label (object-class frame))
+			   (if (ivar-in-interface? 'get-entire-label (object-interface frame))
 			       (let ([label (send frame get-entire-label)])
 				 (if (string=? label "")
 				     default-name

collects/framework/panel.ss

@@ -8,9 +8,9 @@
   (define single-mixin
     (mixin (area-container<%>) (single<%>) args
       (inherit get-alignment)
-      (rename [super-on-new-child on-new-child])
+      (rename [super-after-new-child after-new-child])
       (override
-	[on-new-child
+	[after-new-child
 	 (lambda (c)
 	   (if current-active-child
 	       (send c show #f)

collects/framework/prefs.ss

@@ -537,7 +537,7 @@
 			      (unless (ppanel-panel ppanel)
 				(let ([panel ((ppanel-container ppanel) single-panel)])
 				  (unless (and (object? panel)
-					       (implementation? (object-class panel) area-container<%>))
+					       (is-a? panel area-container<%>))
 				    (error 'preferences-dialog
 					   "expected the result of the function passed to preferences:add-panel to implement the area-container% interface. Got ~a~n"
 					   panel))