changed setup a little bit so keybindings libraries can use the same stuff the tools use

svn: r4262

collects/drscheme/private/drscheme-normal.ss

@@ -275,4 +275,4 @@
                        (parent f))])
           (send f show #t)))))
   
-  (dynamic-require '(lib "start.ss" "drscheme" "private") #f))
+  (dynamic-require '(lib "tool-lib.ss" "drscheme") #f))

collects/drscheme/private/drsig.ss

@@ -27,8 +27,7 @@
            drscheme:font^
            drscheme:modes^
            drscheme:tool-exports^
-           drscheme:tool^
-	   drscheme^)
+           drscheme:tool^)
 
   (define-signature drscheme:modes^
     (add-mode
@@ -278,8 +277,4 @@
      (unit drscheme:help-desk : drscheme:help-desk^)
      (unit drscheme:eval : drscheme:eval^)
      (unit drscheme:teachpack : drscheme:teachpack^)
-     (unit drscheme:modes : drscheme:modes^)))
-
-  (define-signature drscheme^
-    ((unit drscheme:teachpack : drscheme:teachpack^)
-     (unit drscheme:language-configuration : drscheme:language-configuration/internal^))))
+     (unit drscheme:modes : drscheme:modes^))))

collects/drscheme/private/link.ss

@@ -65,5 +65,14 @@
                         modes
                         help-desk)])
       (export
+       (unit debug drscheme:debug)
+       (unit unit drscheme:unit)
+       (unit rep drscheme:rep)
+       (unit frame drscheme:frame)
+       (unit get/extend drscheme:get/extend)
+       (unit language-configuration drscheme:language-configuration)
+       (unit language drscheme:language)
+       (unit help-desk drscheme:help-desk)
+       (unit eval drscheme:eval)
        (unit teachpack drscheme:teachpack)
-       (unit language-configuration drscheme:language-configuration)))))
+       (unit modes drscheme:modes)))))

collects/drscheme/private/start.ss

@@ -1,12 +0,0 @@
-
-(module start mzscheme
-  (require "link.ss"
-	   "drsig.ss"
-	   (lib "class.ss")
-	   (lib "unitsig.ss")
-           (lib "framework.ss" "framework")
-	   (lib "splash.ss" "framework"))
-  
-  (shutdown-splash)
-  (define-values/invoke-unit/sig drscheme^ drscheme@)
-  (close-splash))

collects/drscheme/tool-lib.ss

@@ -0,0 +1,21 @@
+
+#|
+
+This first time this is loaded, it loads all of drscheme and invokes
+the main unit, starting up drscheme. After that, it just provides
+all of the names in the tools library, for use defining keybindings
+
+|#
+
+(module tool-lib mzscheme
+  (require "private/link.ss"
+	   "private/drsig.ss"
+	   (lib "class.ss")
+	   (lib "unitsig.ss")
+           (lib "framework.ss" "framework")
+	   (lib "splash.ss" "framework"))
+  
+  (shutdown-splash)
+  (define-values/invoke-unit/sig drscheme:tool^ drscheme@)
+  (close-splash)
+  (provide-signature-elements drscheme:tool^))