...

original commit: 1d112b12c363f5cbd8b90d0c26ef99e2e764c558

collects/framework/private/editor.ss

@@ -1,7 +1,7 @@
 (module editor mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
-	   "../guiutils-sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "file.ss"))
 

collects/framework/private/exit.ss

@@ -1,7 +1,7 @@
 (module exit mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
-	   "../guiutils-sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "file.ss"))
 

collects/framework/private/finder.ss

@@ -1,6 +1,7 @@
 (module finder mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "string.ss")
 	   (lib "list.ss")
@@ -33,19 +34,6 @@
       (define make-relative
 	(lambda (s) s))
       
-      (define current-find-file-directory
-	(opt-lambda ([dir 'get])
-	  (cond
-	   [(eq? dir 'get)
-	    (if (not last-directory)
-		(set! last-directory (current-directory)))
-	    last-directory]
-	   [(and (string? dir)
-		 (directory-exists? dir))
-	    (set! last-directory dir)
-	    #t]
-	   [else #f])))
-      
       (define build-updir
 	(lambda (dir)
 	  (let-values ([(base _1 _2) (split-path dir)])

collects/framework/private/frame.ss

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

collects/framework/private/handler.ss

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

collects/framework/private/text.ss

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

collects/framework/sig.ss

@@ -1,7 +1,7 @@
 (module sig mzscheme
   (require (lib "unitsig.ss")
 	   "test-sig.ss"
-	   "guiutils-sig.ss"
+	   "gui-utils-sig.ss"
 	   "private/sig.ss")
 
   (provide framework^ frameworkc^)