...

original commit: 42fea76e0ae8c4252be9adfded86157d77900d8a

collects/framework/gui-utils.ss

@@ -1,7 +1,14 @@
-(require-library "refer.ss")
-(require-library "guiutilss.ss" "framework")
-(define-values/invoke-unit/sig 
- framework:gui-utils^
- (require-library "guiutilsr.ss" "framework")
- gui-utils
- mred^)
+(module gui-utils mzscheme
+  (require (lib "unitsig.ss")
+	   "gui-utils-sig.ss"
+	   "gui-utils-unit.ss"
+	   (lib "mred-sig.ss" "mred")
+	   (lib "mred.ss" "mred"))
+
+  (provide-signature-elements framework:gui-utils^)
+
+  (define-values/invoke-unit/sig 
+    framework:gui-utils^
+    gui-utils@
+    #f
+    mred^))

collects/framework/private/autosave.ss

@@ -1,5 +1,6 @@
 (module autosave mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred"))
 

collects/framework/private/canvas.ss

@@ -1,5 +1,6 @@
 (module canvas mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred"))
 

collects/framework/private/color-model.ss

@@ -1,5 +1,6 @@
 (module color-model mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss"))

collects/framework/private/editor.ss

@@ -1,5 +1,6 @@
 (module editor mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")

collects/framework/private/exit.ss

@@ -1,5 +1,6 @@
 (module exit mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")

collects/framework/private/finder.ss

@@ -1,5 +1,6 @@
 (module finder mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")

collects/framework/private/frame.ss

@@ -1,5 +1,6 @@
 (module frame mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")

collects/framework/private/group.ss

@@ -1,5 +1,6 @@
 (module group mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss")

collects/framework/private/handler.ss

@@ -1,5 +1,6 @@
 (module handle mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")

collects/framework/private/icon.ss

@@ -1,5 +1,6 @@
 (module icon mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "mred-sig.ss" "mred"))

collects/framework/private/keymap.ss

@@ -1,5 +1,6 @@
 (module keymap mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   (lib "list.ss")
 	   (lib "mred-sig.ss" "mred"))
 

collects/framework/private/main.ss

@@ -1,5 +1,6 @@
 (module main mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig.ss"
 	   (lib "mred-sig.ss" "mred"))
   

collects/framework/private/menu.ss

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

collects/framework/private/panel.ss

@@ -1,5 +1,6 @@
 (module panel mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss"))

collects/framework/private/pasteboard.ss

@@ -1,5 +1,6 @@
 (module pasteboard mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   (lib "mred-sig.ss" "mred"))
 

collects/framework/private/path-util.ss

@@ -1,5 +1,6 @@
 (module path-utils mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   (lib "mred-sig.ss" "mred"))
 

collects/framework/private/preferences.ss

@@ -1,5 +1,6 @@
 (module preferences mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "pretty.ss"))

collects/framework/private/scheme.ss

@@ -5,6 +5,7 @@
 
 (module scheme mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss")

collects/framework/private/text.ss

@@ -1,5 +1,6 @@
 (module text mzscheme
   (require (lib "unitsig.ss")
+	   (lib "class.ss")
 	   "sig"
 	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")