...

original commit: 11e262af3cba199bba37e079522b21ec1415054a

collects/framework/private/canvas.ss

@@ -9,7 +9,7 @@
 
   (define canvas@
     (unit/sig framework:canvas^
-      (import [mred : mred^]
+      (import mred^
 	      [preferences : framework:preferences^]
 	      [frame : framework:frame^])
       

collects/framework/private/frame.ss

@@ -1,6 +1,7 @@
 (module frame mzscheme
   (require (lib "unitsig.ss")
 	   (lib "class.ss")
+	   (lib "include.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   "../macro.ss"
@@ -159,14 +160,7 @@
       (public
 	[get-area-container (lambda () panel)])
       (sequence
-	(set! after-init? #t)
+	(set! after-init? #t))))
-	(when (getenv "MREDMEMORYDEBUG")
-	  (global-defined-value 'open-frames
-				(cons (make-weak-box this)
-				      (global-defined-value 'open-frames)))))))
-
-  (when (getenv "MREDMEMORYDEBUG")
-    (global-defined-value 'open-frames null))
 
   (define lock-canvas%
     (class canvas% (parent . args)

collects/framework/private/group.ss

@@ -231,10 +231,10 @@
 	  (sequence
 	    (super-init))))
       
-      (define the-frame-group #f)
+      (define (internal-get-the-frame-group)
+	(let ([the-frame-group (make-object %)])
+	  (set! internal-get-the-frame-group (lambda () the-frame-group))
+	  (internal-get-the-frame-group)))
       
       (define get-the-frame-group
-	(lambda ()
+	(internal-get-the-frame-group)))))
-	  (set! the-frame-group (make-object %))
-	  (set! get-the-frame-group (lambda () the-frame-group))
-	  (get-the-frame-group))))))

collects/framework/private/panel.ss

@@ -4,7 +4,8 @@
 	   "sig"
 	   "../macro.ss"
 	   (lib "mred-sig.ss" "mred")
-	   (lib "list.ss"))
+	   (lib "list.ss")
+	   (lib "etc.ss"))
 
   (provide panel@)
 

collects/framework/private/sig.ss

@@ -2,7 +2,6 @@
   (require (lib "unitsig.ss"))
 
   (provide framework:menu^
-	   framework:prefs-file^
 	   framework:version^
 	   framework:panel^
 	   framework:exn^
@@ -34,9 +33,6 @@
      can-restore-menu-item%
      can-restore-checkable-menu-item%))
 
-  (define-signature framework:prefs-file^
-    (get-preferences-filename))
-
   (define-signature framework:version^
     (add-spec
      version))

collects/framework/test.ss

@@ -8,6 +8,6 @@
   (provide-signature-elements framework:test^)
 
   (define-values/invoke-unit/sig framework:test^
-    test@
+    framework:test@
     #f
     mred^))