suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 1d112b12c363f5cbd8b90d0c26ef99e2e764c558
This commit is contained in:
Robby Findler 2001-02-25 21:33:16 +00:00
parent 376157f67a
commit 2d8eadda96
7 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/editor.ss
View File

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

2
collects/framework/private/exit.ss
View File

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

14
collects/framework/private/finder.ss
View File

@ -1,6 +1,7 @@
(module finder mzscheme (module finder mzscheme
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
"sig.ss" "sig.ss"
"../gui-utils-sig.ss"
(lib "mred-sig.ss" "mred") (lib "mred-sig.ss" "mred")
(lib "string.ss") (lib "string.ss")
(lib "list.ss") (lib "list.ss")
@ -33,19 +34,6 @@
(define make-relative (define make-relative
(lambda (s) s)) (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 (define build-updir
(lambda (dir) (lambda (dir)
(let-values ([(base _1 _2) (split-path dir)]) (let-values ([(base _1 _2) (split-path dir)])

1
collects/framework/private/frame.ss
View File

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

1
collects/framework/private/handler.ss
View File

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

1
collects/framework/private/text.ss
View File

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

2
collects/framework/sig.ss
View File

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