original commit: e9b58213637cefa6278641a1c7299fd738e0c5d6
This commit is contained in:
Robby Findler 2005-02-16 01:11:16 +00:00
parent c95fac2b03
commit 040b36b035
15 changed files with 7 additions and 25 deletions

View File

@ -12,13 +12,11 @@
"framework-unit.ss"
"framework-sig.ss"
"macro.ss"
(lib "contract.ss"))
(provide-signature-elements framework-class^)
(provide (all-from "macro.ss")
(all-from "test.ss")
(provide (all-from "test.ss")
(all-from "gui-utils.ss")
(all-from "decorated-editor-snip.ss"))

View File

@ -2,7 +2,6 @@
(require (lib "unitsig.ss")
(lib "class.ss")
"sig.ss"
"../macro.ss"
(lib "mred-sig.ss" "mred"))
(provide canvas@)

View File

@ -7,8 +7,7 @@
(lib "token-tree.ss" "syntax-color")
(lib "paren-tree.ss" "syntax-color")
(lib "default-lexer.ss" "syntax-color")
"sig.ss"
"../macro.ss")
"sig.ss")
(provide color@)

View File

@ -5,7 +5,6 @@
(lib "string-constant.ss" "string-constants")
"sig.ss"
"../gui-utils.ss"
"../macro.ss"
(lib "etc.ss")
(lib "mred-sig.ss" "mred")
(lib "file.ss"))

View File

@ -6,7 +6,6 @@
(lib "include.ss")
"sig.ss"
"../gui-utils.ss"
"../macro.ss"
"bday.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")

View File

@ -2,7 +2,6 @@
(module keymap mzscheme
(require (lib "string-constant.ss" "string-constants")
(lib "unitsig.ss")
"../macro.ss"
(lib "class.ss")
(lib "list.ss")
(lib "mred-sig.ss" "mred")

View File

@ -3,7 +3,6 @@
(lib "class.ss")
"sig.ss"
"../gui-utils.ss"
"../macro.ss"
(lib "string-constant.ss" "string-constants")
(lib "mred-sig.ss" "mred"))

View File

@ -2,7 +2,6 @@
(require (lib "unitsig.ss")
(lib "class.ss")
"sig.ss"
"../macro.ss"
(lib "mred-sig.ss" "mred"))
(provide menu@)

View File

@ -3,7 +3,6 @@
(require (lib "unitsig.ss")
(lib "class.ss")
"sig.ss"
"../macro.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "etc.ss"))

View File

@ -7,7 +7,6 @@
(lib "unitsig.ss")
(lib "class.ss")
"sig.ss"
"../macro.ss"
(lib "mred-sig.ss" "mred")
(lib "mred.ss" "mred")
(lib "list.ss")

View File

@ -11,7 +11,6 @@ WARNING: printf is rebound in the body of the unit to always
(lib "class.ss")
(lib "match.ss")
"sig.ss"
"../macro.ss"
"../gui-utils.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")

View File

@ -3,7 +3,6 @@
(require (lib "class.ss")
(lib "list.ss")
(lib "math.ss")
(lib "macro.ss" "framework")
(lib "mred.ss" "mred")
(lib "contract.ss"))

View File

@ -1,7 +1,6 @@
(module aligned-pasteboard mzscheme
(require
(lib "framework.ss" "framework")
(lib "click-forwarding-editor.ss" "mrlib")
"geometry-managed-pasteboard.ss"
"locked-pasteboard.ss")
@ -12,14 +11,12 @@
;; contruct the basic mixin that both pasteboards will be created from
(define (click/lock type)
(editor:basic-mixin
(click-forwarding-editor-mixin
(locked-pasteboard-mixin
(make-aligned-pasteboard type)))))
(click-forwarding-editor-mixin
(locked-pasteboard-mixin
(make-aligned-pasteboard type))))
(define vertical-pasteboard%
(click/lock 'vertical))
(define horizontal-pasteboard%
(click/lock 'horizontal))
)
(click/lock 'horizontal)))

View File

@ -8,8 +8,7 @@
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
(lib "contract.ss")
(lib "framework.ss" "framework"))
(lib "contract.ss"))
(provide/contract
(locked-pasteboard-mixin mixin-contract))

View File

@ -1,6 +1,5 @@
(require
"../locked-pasteboard.ss"
(lib "framework.ss" "framework")
(lib "click-forwarding-editor.ss" "mrlib"))
(define f (new frame% (width 400) (height 500) (label "test")))