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

use new require specs in many places

Browse Source 
svn: r8774

original commit: b1a08edd5a8c0db0bae4a9e052d9a93d1faabb4f
This commit is contained in:
Eli Barzilay 2008-02-23 09:42:03 +00:00
parent df196dbd9e
commit d956ae1736
155 changed files with 487 additions and 489 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/embedded-gui/private/aligned-pasteboard.ss
View File

@ -9,9 +9,9 @@
(provide aligned-pasteboard%)
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
mzlib/class
mred
mzlib/etc
(lib "click-forwarding-editor.ss" "mrlib")
"on-show-pasteboard.ss"
"really-resized-pasteboard.ss"

8
collects/embedded-gui/private/alignment-helpers.ss
View File

@ -1,10 +1,10 @@
(module alignment-helpers mzscheme
(require
(lib "list.ss")
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "contract.ss")
mzlib/list
mzlib/class
mred
mzlib/contract
"interface.ss"
"snip-lib.ss")

8
collects/embedded-gui/private/alignment.ss
View File

@ -23,10 +23,10 @@ neck and it is the most readable solution.
(module alignment mzscheme
(require
(lib "match.ss")
(lib "contract.ss")
(lib "etc.ss")
(lib "list.ss"))
mzlib/match
mzlib/contract
mzlib/etc
mzlib/list)
(define-struct rect (x y) (make-inspector))
(define-struct abs-rect (ondim offdim) (make-inspector))

6
collects/embedded-gui/private/button-snip.ss
View File

@ -3,9 +3,9 @@
(module button-snip mzscheme
(require
(lib "mred.ss" "mred")
(lib "class.ss")
(lib "etc.ss")
mred
mzlib/class
mzlib/etc
"snip-wrapper.ss")
(provide

8
collects/embedded-gui/private/cue-text.ss
View File

@ -9,10 +9,10 @@
(module cue-text mzscheme
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "framework.ss" "framework"))
mzlib/class
mred
mzlib/etc
framework)
(provide cue-text-mixin
cue-text%)

8
collects/embedded-gui/private/dllist.ss
View File

@ -1,10 +1,10 @@
(module dllist mzscheme
(require
(lib "class.ss")
(lib "list.ss")
(lib "etc.ss")
(lib "framework.ss" "framework")
mzlib/class
mzlib/list
mzlib/etc
framework
"interface.ss")
(provide dllist-mixin dllist% head% tail%)

4
collects/embedded-gui/private/embedded-message.ss
View File

@ -1,8 +1,8 @@
(module embedded-message mzscheme
(require
(lib "mred.ss" "mred")
(lib "class.ss")
mred
mzlib/class
"snip-wrapper.ss")
(provide embedded-message%)

6
collects/embedded-gui/private/fixed-width-label-snip.ss
View File

@ -1,9 +1,9 @@
(module fixed-width-label-snip mzscheme
(require
(lib "class.ss")
(lib "list.ss")
(lib "mred.ss" "mred"))
mzlib/class
mzlib/list
mred)
(provide fixed-width-label-snip)

6
collects/embedded-gui/private/grey-editor.ss
View File

@ -3,9 +3,9 @@
(provide grey-editor-snip-mixin grey-editor-mixin)
(require
(lib "mred.ss" "mred")
(lib "class.ss")
(lib "framework.ss" "framework"))
mred
mzlib/class
framework)
(define *disable-color* (make-object color% 235 235 255))

10
collects/embedded-gui/private/grid-alignment.ss
View File

@ -7,11 +7,11 @@
#;(module grid-alignment mzscheme
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "list.ss")
(lib "match.ss")
mzlib/class
mred
mzlib/etc
mzlib/list
mzlib/match
(prefix a: "alignment.ss")
(lib "click-forwarding-editor.ss" "mrlib")

2
collects/embedded-gui/private/interface.ss
View File

@ -1,6 +1,6 @@
(module interface mzscheme
(require (lib "class.ss"))
(require mzlib/class)
(provide stretchable-snip<%>
alignment<%>

6
collects/embedded-gui/private/lines.ss
View File

@ -1,9 +1,9 @@
(module lines mzscheme
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
mzlib/class
mzlib/etc
mred
"snip-wrapper.ss"
"interface.ss")

10
collects/embedded-gui/private/locked-pasteboard.ss
View File

@ -5,11 +5,11 @@
(module locked-pasteboard mzscheme
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "contract.ss")
(lib "framework.ss" "framework"))
mzlib/class
mred
mzlib/etc
mzlib/contract
framework)
(provide/contract
(locked-pasteboard-mixin mixin-contract))

8
collects/embedded-gui/private/on-show-editor.ss
View File

@ -1,10 +1,10 @@
(module on-show-editor mzscheme
(define (writeln x) (write x) (newline))
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
(lib "framework.ss" "framework")
mzlib/class
mzlib/etc
mred
framework
"snip-lib.ss")
(provide

6
collects/embedded-gui/private/on-show-pasteboard.ss
View File

@ -1,9 +1,9 @@
(module on-show-pasteboard mzscheme
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred"))
mzlib/class
mzlib/etc
mred)
(provide
on-show-pasteboard%

8
collects/embedded-gui/private/program-editor.ss
View File

@ -22,10 +22,10 @@ is being reset.
(module program-editor mzscheme
(require
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "class.ss")
(lib "framework.ss" "framework")
mred
mzlib/etc
mzlib/class
framework
"snip-lib.ss")
(provide program-editor-mixin

6
collects/embedded-gui/private/really-resized-pasteboard.ss
View File

@ -12,9 +12,9 @@ get text deteleted from them, etc.
(module really-resized-pasteboard mzscheme
(require
(lib "etc.ss")
(lib "class.ss")
(lib "mred.ss" "mred"))
mzlib/etc
mzlib/class
mred)
(provide
really-resized-pasteboard-mixin

6
collects/embedded-gui/private/single-line-text.ss
View File

@ -1,9 +1,9 @@
(module single-line-text mzscheme
(require
(lib "mred.ss" "mred")
(lib "framework.ss" "framework")
(lib "class.ss"))
mred
framework
mzlib/class)
(provide single-line-text-mixin)

10
collects/embedded-gui/private/snip-lib.ss
View File

@ -3,11 +3,11 @@
(module snip-lib mzscheme
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
(lib "list.ss")
(lib "contract.ss")
mzlib/class
mzlib/etc
mred
mzlib/list
mzlib/contract
"interface.ss")
;; a snip

6
collects/embedded-gui/private/snip-wrapper.ss
View File

@ -1,9 +1,9 @@
(module snip-wrapper mzscheme
(require
(lib "etc.ss")
(lib "class.ss")
(lib "mred.ss" "mred")
mzlib/etc
mzlib/class
mred
"interface.ss"
(prefix sl: "snip-lib.ss")
"dllist.ss")

6
collects/embedded-gui/private/stretchable-editor-snip.ss
View File

@ -5,9 +5,9 @@
stretchable-editor-snip-mixin)
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
mzlib/class
mred
mzlib/etc
"interface.ss")

6
collects/embedded-gui/private/suppress-modify-editor.ss
View File

@ -1,9 +1,9 @@
(module suppress-modify-editor mzscheme
(require
(lib "etc.ss")
(lib "class.ss")
(lib "mred.ss" "mred"))
mzlib/etc
mzlib/class
mred)
(provide suppress-modify-editor-mixin)

12
collects/embedded-gui/private/tabbable-text.ss
View File

@ -2,12 +2,12 @@
(module tabbable-text mzscheme
(require
(lib "class.ss")
(lib "list.ss")
(lib "etc.ss")
(lib "framework.ss" "framework")
(lib "mred.ss" "mred")
(lib "contract.ss"))
mzlib/class
mzlib/list
mzlib/etc
framework
mred
mzlib/contract)
(define tabbable-text<%>
(interface ()

6
collects/embedded-gui/private/tests/alignment-test.ss
View File

@ -1,7 +1,7 @@
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
mzlib/class
mzlib/etc
mred
"../verthoriz-alignment.ss"
"../lines.ss"
"../aligned-pasteboard.ss"

6
collects/embedded-gui/private/tests/not-stetching.ss
View File

@ -2,9 +2,9 @@
(require
(lib "debug.ss" "mike-lib")
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
mzlib/class
mzlib/etc
mred
(lib "aligned-pasteboard.ss" "embedded-gui")
(lib "stretchable-editor-snip.ss" "embedded-gui")
(lib "verthoriz-alignment.ss" "embedded-gui"))

10
collects/embedded-gui/private/tests/only-one-child.ss
View File

@ -1,9 +1,9 @@
(require
(lib "mred.ss" "mred")
(lib "class.ss")
(lib "etc.ss")
(lib "list.ss")
(lib "match.ss")
mred
mzlib/class
mzlib/etc
mzlib/list
mzlib/match
(prefix a: "../alignment.ss")
"../alignment-helpers.ss"
"../dllist.ss"

6
collects/embedded-gui/private/tests/peer-stretchables.ss
View File

@ -1,7 +1,7 @@
(require
(lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
mzlib/class
mzlib/etc
mred
"../stretchable-editor-snip.ss"
"../verthoriz-alignment.ss"
"../aligned-pasteboard.ss")

10
collects/embedded-gui/private/tests/stretching-in-alignment.ss
View File

@ -1,13 +1,13 @@
(module stretching-in-alignment mzscheme
(require
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "class.ss")
mred
mzlib/etc
mzlib/class
(lib "interface.ss" "mrlib" "private" "aligned-pasteboard")
(lib "debug.ss" "mike-lib")
(lib "list.ss")
(lib "match.ss")
mzlib/list
mzlib/match
(prefix a: "alignment.ss")
(lib "click-forwarding-editor.ss" "mrlib")
(lib "snip-lib.ss" "mrlib" "private" "aligned-pasteboard")

4
collects/embedded-gui/private/tests/target-not-object.ss
View File

@ -1,6 +1,6 @@
(require
(lib "class.ss")
(lib "embedded-gui.ss" "embedded-gui"))
mzlib/class
embedded-gui)
(let* ([pb (new aligned-pasteboard%)]
[interactions (new vertical-alignment% (parent pb))])

6
collects/embedded-gui/private/tests/test-alignment.ss
View File

@ -1,7 +1,7 @@
(require
(lib "etc.ss")
(lib "list.ss")
(lib "match.ss")
mzlib/etc
mzlib/list
mzlib/match
"../alignment.ss"
"test-macro.ss")

22
collects/embedded-gui/private/tests/test-case-box.ss
View File

@ -1,16 +1,16 @@
(require
(lib "class.ss")
(lib "list.ss")
(lib "mred.ss" "mred")
(lib "unitsig.ss")
mzlib/class
mzlib/list
mred
mzlib/unitsig
(lib "tool.ss" "drscheme")
(lib "etc.ss")
(lib "match.ss")
(lib "framework.ss" "framework")
(lib "readerr.ss" "syntax")
(lib "string-constant.ss" "string-constants")
(lib "embedded-gui.ss" "embedded-gui")
(lib "string-constant.ss" "string-constants"))
mzlib/etc
mzlib/match
framework
syntax/readerr
string-constants
embedded-gui
string-constants)
(define test-case:program-editor% text%)

2
collects/embedded-gui/private/tests/test-macro.ss
View File

@ -1,6 +1,6 @@
(module test-macro mzscheme
(require (lib "etc.ss"))
(require mzlib/etc)
(provide test)

4
collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss
View File

@ -1,6 +1,6 @@
(require
(lib "class.ss")
(lib "mred.ss" "mred")
mzlib/class
mred
"../aligned-pasteboard.ss"
"../verthoriz-alignment.ss"
"../snip-wrapper.ss"

10
collects/embedded-gui/private/tests/test-show-feature.ss
View File

@ -4,11 +4,11 @@
|#
(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "list.ss")
(lib "match.ss")
mzlib/class
mred
mzlib/etc
mzlib/list
mzlib/match
(prefix a: "../alignment.ss")
"../snip-lib.ss"

8
collects/embedded-gui/private/verthoriz-alignment.ss
View File

@ -1,10 +1,10 @@
(module verthoriz-alignment mzscheme
(require
(lib "class.ss")
(lib "etc.ss")
(lib "list.ss")
(lib "match.ss")
mzlib/class
mzlib/etc
mzlib/list
mzlib/match
(prefix a: "alignment.ss")
"interface.ss"
"alignment-helpers.ss"

4
collects/framework/collapsed-snipclass.ss
View File

@ -1,6 +1,6 @@
(module collapsed-snipclass mzscheme
(require (lib "mred.ss" "mred")
(lib "class.ss")
(require mred
mzlib/class
"private/collapsed-snipclass-helpers.ss")
(provide snip-class)

2
collects/framework/comment-snip.ss
View File

@ -1,5 +1,5 @@
(module comment-snip mzscheme
(require (lib "framework.ss" "framework"))
(require framework)
(provide (rename comment-box:snipclass snip-class)))

4
collects/framework/decorated-editor-snip.ss
View File

@ -4,8 +4,8 @@
decorated-editor-snipclass%
decorated-editor-snip-mixin)
(require (lib "class.ss")
(lib "mred.ss" "mred")
(require mzlib/class
mred
"preferences.ss")
(define (decorated-editor-snip-mixin super%)

8
collects/framework/framework.ss
View File

@ -1,10 +1,10 @@
(module framework mzscheme
(require (lib "unit.ss")
(require mzlib/unit
(lib "mred-unit.ss" "mred")
(lib "mred-sig.ss" "mred")
(lib "mred.ss" "mred")
(lib "class.ss")
mred
mzlib/class
"preferences.ss"
"test.ss"
@ -14,7 +14,7 @@
"framework-unit.ss"
"private/sig.ss"
(lib "contract.ss"))
mzlib/contract)
(provide-signature-elements
(prefix application: framework:application-class^)

10
collects/framework/gui-utils.ss
View File

@ -1,10 +1,10 @@
(module gui-utils mzscheme
(require (lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "contract.ss")
(lib "string-constant.ss" "string-constants"))
(require mzlib/class
mred
mzlib/etc
mzlib/contract
string-constants)
(define-syntax (provide/contract/docs stx)
(syntax-case stx ()

14
collects/framework/keybinding-lang.ss
View File

@ -1,14 +1,14 @@
(module keybinding-lang mzscheme
(require (lib "mred.ss" "mred")
(lib "string-constant.ss" "string-constants")
(lib "framework.ss" "framework")
(lib "class.ss"))
(require mred
string-constants
framework
mzlib/class)
(provide (rename kl-module-begin #%module-begin)
(all-from-except mzscheme #%module-begin)
(all-from (lib "framework.ss" "framework"))
(all-from (lib "mred.ss" "mred"))
(all-from (lib "class.ss")))
(all-from framework)
(all-from mred)
(all-from mzlib/class))
(define-syntax (kl-module-begin stx)
(syntax-case stx ()

6
collects/framework/preferences.ss
View File

@ -27,9 +27,9 @@ the state transitions / contracts are:
|#
(module preferences mzscheme
(require (lib "file.ss")
(lib "etc.ss")
(lib "contract.ss"))
(require mzlib/file
mzlib/etc
mzlib/contract)
(provide exn:struct:unknown-preference)

6
collects/framework/private/autosave.ss
View File

@ -1,14 +1,14 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
scheme/file
"sig.ss"
"../gui-utils.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "string-constant.ss" "string-constants"))
mzlib/list
string-constants)
(import mred^
[prefix exit: framework:exit^]

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
"sig.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred"))

4
collects/framework/private/collapsed-snipclass-helpers.ss
View File

@ -1,6 +1,6 @@
(module collapsed-snipclass-helpers mzscheme
(require (lib "mred.ss" "mred")
(lib "class.ss"))
(require mred
mzlib/class)
(provide make-sexp-snipclass%)

4
collects/framework/private/color-model.ss
View File

@ -1,8 +1,8 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
"sig.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss"))
mzlib/list)
(import)
(export framework:color-model^)

8
collects/framework/private/color-prefs.ss
View File

@ -1,8 +1,8 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
(lib "string-constant.ss" "string-constants")
(require mzlib/class
mzlib/etc
mred
string-constants
"../preferences.ss"
"sig.ss")

10
collects/framework/private/color.ss
View File

@ -1,12 +1,12 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "thread.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(require mzlib/class
mzlib/thread
mred
mzlib/etc
(lib "token-tree.ss" "syntax-color")
(lib "paren-tree.ss" "syntax-color")
(lib "default-lexer.ss" "syntax-color")
string-constants/string-constant
string-constants
"../preferences.ss"
"sig.ss")

8
collects/framework/private/comment-box.ss
View File

@ -1,13 +1,13 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "etc.ss")
(lib "mred.ss" "mred")
(require mzlib/class
mzlib/etc
mred
"sig.ss"
"../decorated-editor-snip.ss"
(lib "include-bitmap.ss" "mrlib")
(lib "string-constant.ss" "string-constants"))
string-constants)
(import [prefix text: framework:text^]
[prefix scheme: framework:scheme^]

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

@ -1,11 +1,11 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "string-constant.ss" "string-constants")
(require mzlib/class
string-constants
"sig.ss"
"../preferences.ss"
"../gui-utils.ss"
(lib "etc.ss")
mzlib/etc
(lib "mred-sig.ss" "mred")
scheme/path)

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

@ -1,6 +1,6 @@
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(require string-constants
"sig.ss"
"../preferences.ss"
"../gui-utils.ss"

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

@ -1,12 +1,12 @@
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(require string-constants
"sig.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred")
(lib "string.ss")
mzlib/string
scheme/path
(lib "etc.ss"))
mzlib/etc)
(import mred^

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

@ -1,15 +1,15 @@
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(lib "include.ss")
(require string-constants
mzlib/class
mzlib/include
"sig.ss"
"../preferences.ss"
"../gui-utils.ss"
"bday.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
mzlib/list
scheme/path
(lib "etc.ss"))
mzlib/etc)
(import mred^
[prefix group: framework:group^]

4
collects/framework/private/gen-standard-menus.ss
View File

@ -1,7 +1,7 @@
(module gen-standard-menus mzscheme
(require (lib "pretty.ss"))
(require (lib "list.ss"))
(require mzlib/pretty)
(require mzlib/list)
(require "standard-menus-items.ss")
;; build-before-super-item-clause : an-item -> (listof clause)

6
collects/framework/private/group.ss
View File

@ -1,12 +1,12 @@
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(require string-constants
mzlib/class
"sig.ss"
"../preferences.ss"
"../gui-utils.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
mzlib/list
scheme/path)
(import mred^

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

@ -1,14 +1,14 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "list.ss")
(require mzlib/class
mzlib/list
(lib "hierlist.ss" "hierlist")
"sig.ss"
"../preferences.ss"
"../gui-utils.ss"
(lib "mred-sig.ss" "mred")
scheme/path
(lib "string-constant.ss" "string-constants"))
string-constants)
(import mred^

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

@ -1,7 +1,7 @@
#lang scheme/unit
(require (for-syntax scheme/base)
scheme/promise
(lib "class.ss")
mzlib/class
(lib "include-bitmap.ss" "mrlib")
"bday.ss"
"sig.ss"

8
collects/framework/private/keymap.ss
View File

@ -1,11 +1,11 @@
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(lib "list.ss")
(require string-constants
mzlib/class
mzlib/list
(lib "mred-sig.ss" "mred")
(lib "match.ss")
mzlib/match
"../preferences.ss"
"tex-table.ss"
"sig.ss")

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
"sig.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred"))

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
"sig.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred"))

4
collects/framework/private/mode.ss
View File

@ -1,6 +1,6 @@
#lang scheme/unit
(require (lib "surrogate.ss")
(lib "class.ss")
(require mzlib/surrogate
mzlib/class
"sig.ss")
(import)

4
collects/framework/private/number-snip.ss
View File

@ -3,9 +3,9 @@
(require "sig.ss"
(lib "mred-sig.ss" "mred")
(lib "class.ss")
mzlib/class
"../preferences.ss"
(lib "string-constant.ss" "string-constants"))
string-constants)
(import mred^)
(export (rename framework:number-snip^

6
collects/framework/private/panel.ss
View File

@ -1,10 +1,10 @@
#lang scheme/unit
(require (lib "class.ss")
(require mzlib/class
"sig.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "etc.ss"))
mzlib/list
mzlib/etc)
(import [prefix icon: framework:icon^]
mred^)

6
collects/framework/private/preferences.ss
View File

@ -28,14 +28,14 @@ the state transitions / contracts are:
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(require string-constants
mzlib/class
scheme/file
"sig.ss"
"../gui-utils.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss"))
mzlib/list)
(import mred^
[prefix exit: framework:exit^]

8
collects/framework/private/scheme.ss
View File

@ -3,12 +3,12 @@
#lang scheme/unit
(require "collapsed-snipclass-helpers.ss"
(lib "string-constant.ss" "string-constants")
(lib "class.ss")
string-constants
mzlib/class
"sig.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "etc.ss")
mzlib/list
mzlib/etc
(lib "scheme-lexer.ss" "syntax-color")
"../gui-utils.ss"
"../preferences.ss")

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

@ -6,20 +6,20 @@ WARNING: printf is rebound in the body of the unit to always
|#
#lang scheme/unit
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(lib "match.ss")
(require string-constants
mzlib/class
mzlib/match
scheme/path
"sig.ss"
"../gui-utils.ss"
"../preferences.ss"
(lib "mred-sig.ss" "mred")
(lib "interactive-value-port.ss" "mrlib")
(lib "list.ss")
(lib "etc.ss")
(lib "dirs.ss" "setup")
(lib "string.ss")
(prefix-in srfi1: (lib "1.ss" "srfi")))
mzlib/list
mzlib/etc
setup/dirs
mzlib/string
(prefix-in srfi1: srfi/1))
(require setup/xref
scribble/xref
scribble/struct

4
collects/framework/private/version.ss
View File

@ -2,8 +2,8 @@
(require "sig.ss"
(lib "mred-sig.ss" "mred")
(lib "string.ss")
(lib "list.ss"))
mzlib/string
mzlib/list)
(import)
(export (rename framework:version^
[-version version]))

10
collects/framework/splash.ss
View File

@ -1,8 +1,8 @@
(module splash mzscheme
(require (lib "class.ss")
(lib "file.ss")
(lib "mred.ss" "mred"))
(require mzlib/class
mzlib/file
mred)
(provide get-splash-bitmap
set-splash-bitmap
@ -127,8 +127,8 @@
(getenv "PLTDRDEBUG"))
(parameterize ([current-namespace (make-namespace)])
(values
(dynamic-require '(lib "cm.ss") 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require '(lib "cm.ss") 'manager-trace-handler)))
(dynamic-require 'mzlib/cm 'make-compilation-manager-load/use-compiled-handler)
(dynamic-require 'mzlib/cm 'manager-trace-handler)))
(values #f #f))])
(current-load

8
collects/framework/test.ss
View File

@ -1,9 +1,9 @@
(module test mzscheme
(require (lib "mred.ss" "mred")
(lib "class.ss")
(lib "etc.ss")
(lib "contract.ss"))
(require mred
mzlib/class
mzlib/etc
mzlib/contract)
(define-syntax (provide/contract/docs stx)
(syntax-case stx ()

10
collects/hierlist/hierlist-unit.ss
View File

@ -1,14 +1,14 @@
(module hierlist-unit mzscheme
(require (all-except (lib "unit.ss") rename)
(lib "class.ss")
(lib "class100.ss")
(require (all-except mzlib/unit rename)
mzlib/class
mzlib/class100
(lib "mred-sig.ss" "mred")
(lib "include-bitmap.ss" "mrlib")
"hierlist-sig.ss")
(require (rename (lib "list.ss") sort* sort)
(lib "etc.ss"))
(require (rename mzlib/list sort* sort)
mzlib/etc)
(define turn-up (include-bitmap "../icons/turn-up.png" 'png))
(define turn-down (include-bitmap "../icons/turn-down.png" 'png))

2
collects/hierlist/hierlist.ss
View File

@ -1,6 +1,6 @@
(module hierlist mzscheme
(require (lib "unit.ss")
(require mzlib/unit
(lib "mred-sig.ss" "mred")
(lib "mred-unit.ss" "mred"))

2
collects/mred/edit-main.ss
View File

@ -3,7 +3,7 @@
(module edit-main mzscheme
(require "edit.ss"
(lib "cmdline.ss"))
mzlib/cmdline)
(command-line
"Edit"

6
collects/mred/edit.ss
View File

@ -3,9 +3,9 @@
;; and new-pasteboard-frame
(module edit mzscheme
(require (lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss"))
(require mzlib/class
mred
mzlib/etc)
(provide new-text-frame
new-pasteboard-frame

8
collects/mred/lang/main.ss
View File

@ -1,6 +1,6 @@
(module main mzscheme
(require (lib "class.ss")
(lib "mred.ss" "mred"))
(require mzlib/class
mred)
(provide (all-from mzscheme)
(all-from (lib "class.ss"))
(all-from (lib "mred.ss" "mred"))))
(all-from mzlib/class)
(all-from mred)))

2
collects/mred/mred-unit.ss
View File

@ -1,5 +1,5 @@
(module mred-unit mzscheme
(require (lib "unit.ss")
(require mzlib/unit
"mred-sig.ss"
"mred.ss")
(provide standard-mred@)

6
collects/mred/mred.ss
View File

@ -4,7 +4,7 @@
namespace-anchor->empty-namespace
make-base-empty-namespace)
scheme/class
(lib "etc.ss")
mzlib/etc
(prefix wx: "private/kernel.ss")
"private/wxtop.ss"
"private/app.ss"
@ -47,7 +47,7 @@
(define (make-gui-empty-namespace)
(let ([ns (make-base-empty-namespace)])
(namespace-attach-module (namespace-anchor->empty-namespace anchor)
'mred/mred
'mred
ns)
ns))
@ -55,7 +55,7 @@
(let ([ns (make-gui-empty-namespace)])
(parameterize ([current-namespace ns])
(namespace-require 'scheme/base)
(namespace-require 'mred/mred)
(namespace-require 'mred)
(namespace-require 'scheme/class))
ns))

2
collects/mred/private/app.ss
View File

@ -1,5 +1,5 @@
(module app mzscheme
(require (lib "class.ss")
(require mzlib/class
(prefix wx: "kernel.ss")
"lock.ss"
"helper.ss"

2
collects/mred/private/check.ss
View File

@ -1,5 +1,5 @@
(module check mzscheme
(require (lib "class.ss")
(require mzlib/class
(prefix wx: "kernel.ss")
"wx.ss"
"const.ss")

4
collects/mred/private/const.ss
View File

@ -1,6 +1,6 @@
(module const mzscheme
(require (lib "class.ss")
(lib "file.ss")
(require mzlib/class
mzlib/file
(prefix wx: "kernel.ss"))
(provide (protect (all-defined)))

10
collects/mred/private/editor.ss
View File

@ -1,9 +1,9 @@
(module editor mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "etc.ss")
(lib "list.ss")
(lib "file.ss")
(require mzlib/class
mzlib/class100
mzlib/etc
mzlib/list
mzlib/file
(prefix wx: "kernel.ss")
"seqcontract.ss"
"lock.ss"

6
collects/mred/private/filedialog.ss
View File

@ -1,7 +1,7 @@
(module filedialog mzscheme
(require (lib "class.ss")
(lib "etc.ss")
(lib "list.ss")
(require mzlib/class
mzlib/etc
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"wx.ss"

6
collects/mred/private/fontdialog.ss
View File

@ -1,7 +1,7 @@
(module fontdialog mzscheme
(require (lib "class.ss")
(lib "etc.ss")
(lib "list.ss")
(require mzlib/class
mzlib/etc
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"wx.ss"

6
collects/mred/private/gdi.ss
View File

@ -1,7 +1,7 @@
(module gdi mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"check.ss"

2
collects/mred/private/helper.ss
View File

@ -1,5 +1,5 @@
(module helper mzscheme
(require (lib "class.ss")
(require mzlib/class
(prefix wx: "kernel.ss")
"lock.ss")

2
collects/mred/private/kernel.ss
View File

@ -3,7 +3,7 @@
;; kernel.ss is generated by a target in <builddir>/mred/wxs/Makefile.
(module kernel mzscheme
(require (all-except (lib "class.ss") object%))
(require (all-except mzlib/class object%))
;; Pull pieces out of #%mred-kernel dynamically, so that
;; the library compiles with setup-plt in mzscheme.

8
collects/mred/private/messagebox.ss
View File

@ -1,8 +1,8 @@
(module messagebox mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "etc.ss")
(lib "string.ss")
(require mzlib/class
mzlib/class100
mzlib/etc
mzlib/string
(prefix wx: "kernel.ss")
"const.ss"
"check.ss"

6
collects/mred/private/misc.ss
View File

@ -1,7 +1,7 @@
(module misc mzscheme
(require (lib "class.ss")
(lib "file.ss")
(lib "process.ss")
(require mzlib/class
mzlib/file
mzlib/process
(prefix wx: "kernel.ss"))
(provide file-creator-and-type

6
collects/mred/private/moredialogs.ss
View File

@ -1,7 +1,7 @@
(module moredialogs mzscheme
(require (lib "class.ss")
(lib "etc.ss")
(lib "list.ss")
(require mzlib/class
mzlib/etc
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

6
collects/mred/private/mrcanvas.ss
View File

@ -1,7 +1,7 @@
(module mrcanvas mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

6
collects/mred/private/mrcontainer.ss
View File

@ -1,7 +1,7 @@
(module mrcontainer mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"helper.ss"

6
collects/mred/private/mritem.ss
View File

@ -1,7 +1,7 @@
(module mritem mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

6
collects/mred/private/mrmenu.ss
View File

@ -1,7 +1,7 @@
(module mrmenu mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

2
collects/mred/private/mrmenuintf.ss
View File

@ -1,5 +1,5 @@
(module mrmenuintf mzscheme
(require (lib "class.ss"))
(require mzlib/class)
(provide menu-item<%>
labelled-menu-item<%>

4
collects/mred/private/mrpanel.ss
View File

@ -1,6 +1,6 @@
(module mrpanel mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(require mzlib/class
mzlib/class100
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

6
collects/mred/private/mrpopup.ss
View File

@ -1,7 +1,7 @@
(module mrpopup mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

6
collects/mred/private/mrtextfield.ss
View File

@ -1,7 +1,7 @@
(module mrtextfield mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"const.ss"

8
collects/mred/private/mrtop.ss
View File

@ -1,8 +1,8 @@
(module mrtop mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(lib "etc.ss")
(lib "list.ss")
(require mzlib/class
mzlib/class100
mzlib/etc
mzlib/list
(prefix wx: "kernel.ss")
"lock.ss"
"helper.ss"

4
collects/mred/private/mrwindow.ss
View File

@ -1,6 +1,6 @@
(module mrwindow mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(require mzlib/class
mzlib/class100
(prefix wx: "kernel.ss")
"lock.ss"
"helper.ss"

2
collects/mred/private/path-dialog.ss
View File

@ -1,5 +1,5 @@
(module path-dialog mzscheme
(require (lib "class.ss") (lib "list.ss") (lib "string.ss") (lib "file.ss")
(require mzlib/class mzlib/list mzlib/string mzlib/file
(prefix wx: "kernel.ss")
"helper.ss" "mrtop.ss" "mritem.ss" "mrpanel.ss" "mrtextfield.ss"
"messagebox.ss" "mrmenu.ss")

4
collects/mred/private/repl.ss
View File

@ -1,6 +1,6 @@
(module repl mzscheme
(require (lib "class.ss")
(lib "class100.ss")
(require mzlib/class
mzlib/class100
(prefix wx: "kernel.ss")
"editor.ss"
"app.ss"

Some files were not shown because too many files have changed in this diff Show More