From cfeee486852b083de0cc38b444a2a0c5df10085d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 20 Feb 2001 21:10:48 +0000
Subject: [PATCH] ...

original commit: 8236bf2f06e9c9b53e76be6e67f7d3d87c49dcda
---
 .../{frameworks.ss => private/sig.ss}         | 51 ++-----------------
 collects/framework/sig.ss                     | 47 +++++++++++++++++
 2 files changed, 51 insertions(+), 47 deletions(-)
 rename collects/framework/{frameworks.ss => private/sig.ss} (79%)
 create mode 100644 collects/framework/sig.ss

diff --git a/collects/framework/frameworks.ss b/collects/framework/private/sig.ss
similarity index 79%
rename from collects/framework/frameworks.ss
rename to collects/framework/private/sig.ss
index 050b3655..8819d0bf 100644
--- a/collects/framework/frameworks.ss
+++ b/collects/framework/private/sig.ss
@@ -1,10 +1,7 @@
-(module framework-sig mzscheme
+(module sig mzscheme
   (require (lib "unitsig.ss"))
-  (require "tests.ss")
-  (require "guiutilss.ss")
 
-  (provide framework^
-	   framework:menu^
+  (provide framework:menu^
 	   framework:prefs-file^
 	   framework:version^
 	   framework:panel^
@@ -31,7 +28,7 @@
 	   framework:main^
 	   framework:color-model^)	   
 
-  (define-signature framework:menu^
+    (define-signature framework:menu^
     (can-restore<%>
      can-restore-mixin
      can-restore-menu-item%
@@ -304,44 +301,4 @@
   (define-signature framework:main^ ())
 
   (define-signature framework:color-model^
-    (rgb-color-distance rgb->xyz xyz->rgb))
-
-  (define-signature frameworkc^
-    ([unit application : framework:application^]
-     [unit version : framework:version^]
-     [unit color-model : framework:color-model^]
-     [unit exn : framework:exn^]
-     [unit exit : framework:exit^]
-     [unit preferences : framework:preferences^]
-     [unit autosave : framework:autosave^]
-     [unit handler : framework:handler^] 
-     [unit keymap : framework:keymap^]
-     [unit match-cache : framework:match-cache^]
-     [unit paren : framework:paren^]
-     [unit scheme-paren : framework:scheme-paren^]
-     [unit path-utils : framework:path-utils^]
-     [unit icon : framework:icon^]
-
-     [unit editor : framework:editor^]
-     [unit pasteboard : framework:pasteboard^]
-     [unit text : framework:text^]
-
-     [unit gui-utils : framework:gui-utils^]
-
-     [unit finder : framework:finder^]
-
-     [unit group : framework:group^]
-
-     [unit canvas : framework:canvas^]
-
-     [unit panel : framework:panel^]
-
-     [unit menu : framework:menu^]
-     
-     [unit frame : framework:frame^]
-     [unit scheme : framework:scheme^]
-     [unit main : framework:main^]))
-
-  (define-signature framework^
-    ([unit test : framework:test^]
-     (open frameworkc^))))
\ No newline at end of file
+    (rgb-color-distance rgb->xyz xyz->rgb)))
diff --git a/collects/framework/sig.ss b/collects/framework/sig.ss
new file mode 100644
index 00000000..4f42f19d
--- /dev/null
+++ b/collects/framework/sig.ss
@@ -0,0 +1,47 @@
+(module sig mzscheme
+  (require (lib "unitsig.ss"))
+  (require "test-sig.ss")
+  (require "guiutils-sig.ss")
+  (require "private/sig.ss")
+
+  (provide framework^ frameworkc^)
+
+  (define-signature frameworkc^
+    ([unit application : framework:application^]
+     [unit version : framework:version^]
+     [unit color-model : framework:color-model^]
+     [unit exn : framework:exn^]
+     [unit exit : framework:exit^]
+     [unit preferences : framework:preferences^]
+     [unit autosave : framework:autosave^]
+     [unit handler : framework:handler^] 
+     [unit keymap : framework:keymap^]
+     [unit match-cache : framework:match-cache^]
+     [unit paren : framework:paren^]
+     [unit scheme-paren : framework:scheme-paren^]
+     [unit path-utils : framework:path-utils^]
+     [unit icon : framework:icon^]
+
+     [unit editor : framework:editor^]
+     [unit pasteboard : framework:pasteboard^]
+     [unit text : framework:text^]
+
+     [unit gui-utils : framework:gui-utils^]
+
+     [unit finder : framework:finder^]
+
+     [unit group : framework:group^]
+
+     [unit canvas : framework:canvas^]
+
+     [unit panel : framework:panel^]
+
+     [unit menu : framework:menu^]
+     
+     [unit frame : framework:frame^]
+     [unit scheme : framework:scheme^]
+     [unit main : framework:main^]))
+
+  (define-signature framework^
+    ([unit test : framework:test^]
+     (open frameworkc^))))
\ No newline at end of file