move the module browser into the drracket-tool-lib pkg

for lighter-weight reuse

pkgs/drracket-pkgs/drracket-test/tests/drracket/module-browser.rkt

@@ -2,6 +2,7 @@
 (require racket/unit
          racket/async-channel
          drracket/private/module-browser
+         drracket/private/standalone-module-browser
          rackunit)
 
 (define (fetch-files stx/fn)

pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl

@@ -299,3 +299,11 @@ that are exposed via Racket APIs to be used with other editors.
                     syncheck:add-jump-to-definition
                     syncheck:add-id-set 
                     syncheck:color-range]
+
+@section{Module Browser}
+
+@defmodule[drracket/module-browser]
+
+@defproc[(module-browser [path path-string?]) void?]{
+  Opens a window containing the module browser for @racket[path].
+}

pkgs/drracket-pkgs/drracket-tool-lib/drracket/info.rkt

@@ -0,0 +1,7 @@
+#lang info
+
+(define raco-commands
+  (list (list "dependencies-graph"
+              'drracket/private/raco-module-browser
+              "opens a GUI window showing transitive module dependencies (aka `Module Browser')"
+              #f)))

pkgs/drracket-pkgs/drracket-tool-lib/drracket/module-browser.rkt

@@ -0,0 +1,5 @@
+#lang racket/base
+(require "private/standalone-module-browser.rkt")
+(provide module-browser)
+(define (module-browser file)
+  (standalone-module-overview/file file))

pkgs/drracket-pkgs/drracket-tool-lib/drracket/private/raco-module-browser.rkt

@@ -3,11 +3,11 @@
 
 (define file (command-line #:args (file) file))
 
-(define-runtime-path module-browser.rkt "module-browser.rkt")
+(define-runtime-path module-browser.rkt "standalone-module-browser.rkt")
 (define standalone-module-overview/file 
   (dynamic-require module-browser.rkt 'standalone-module-overview/file))
 
 (standalone-module-overview/file file)
 
 ;; so 'raco test' doesn't try to run the module browser
-(module test racket/base)
+(module test racket/base)

pkgs/drracket-pkgs/drracket-tool-lib/info.rkt

@@ -6,8 +6,10 @@
                "scribble-lib"
                "string-constants-lib"
                "scribble-lib"
-               "racket-index"))
-(define build-deps '("at-exp-lib"))
+               "racket-index"
+               "gui-lib"))
+(define build-deps '("at-exp-lib"
+                     "rackunit-lib"))
 
 (define pkg-desc "Code implementing programmatic interfaces to some IDE tools that DrRacket supports")
 

pkgs/drracket-pkgs/drracket/drracket/info.rkt

@@ -91,9 +91,3 @@
     'name "Tol's White on Black"
     'white-on-black-base? #t
     'colors tol-white-on-black-colors)))
-
-(define raco-commands
-  (list (list "dependencies-graph"
-              'drracket/private/standalone-module-browser
-              "opens a GUI window showing transitive module dependencies (aka `Module Browser')"
-              #f)))

pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt

@@ -25,7 +25,7 @@
          "rep.rkt"
          "eval-helpers-and-pref-init.rkt"
          "local-member-names.rkt"
-         "rectangle-intersect.rkt"
+         drracket/private/rectangle-intersect
          pkg/lib
          pkg/gui
          framework/private/logging-timer

pkgs/drracket-pkgs/drracket/drracket/private/syncheck/blueboxes-gui.rkt

@@ -6,7 +6,7 @@
          racket/runtime-path
          data/interval-map
          images/icons/misc
-         "../rectangle-intersect.rkt"
+         drracket/private/rectangle-intersect
          string-constants
          framework/private/logging-timer
          scribble/blueboxes)