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

Move load-one to racket/snip.

Browse Source 
Create private directory for racket/snip.
Remove snip dependence on events.
This commit is contained in:
Sam Tobin-Hochstadt 2010-12-17 14:32:50 -05:00
parent e9e45fdc2c
commit cf3aec6b95
13 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/editor-data.rkt
View File

@ -3,11 +3,11 @@
(require scheme/class
scheme/file file/convertible
"../syntax.ss"
racket/snip/snip-flags
racket/snip/private/snip-flags
"private.ss"
"style.ss"
"load-one.rkt"
(only-in "cycle.ss"
racket/snip/private/load-one
(only-in "cycle.ss"
editor-stream-in% editor-stream-out%
get-editor-data-class set-get-editor-data-class!)
"../wx/common/event.rkt"

2
collects/mred/private/wxme/editor-snip-class.rkt
View File

@ -3,7 +3,7 @@
(require racket/class
racket/file file/convertible
"../syntax.ss"
racket/snip/snip-flags
racket/snip/private/snip-flags
"private.ss"
"style.ss"
racket/snip

2
collects/mred/private/wxme/editor-snip.rkt
View File

@ -4,7 +4,7 @@
"private.ss"
"const.ss"
racket/snip
racket/snip/snip-flags
racket/snip/private/snip-flags
"standard-snip-admin.rkt"
"editor.ss"
"editor-admin.ss"

2
collects/mred/private/wxme/editor.rkt
View File

@ -6,7 +6,7 @@
"private.ss"
"style.ss"
racket/snip
racket/snip/snip-flags
racket/snip/private/snip-flags
"editor-admin.ss"
"stream.ss"
"undo.ss"

2
collects/mred/private/wxme/mline.rkt
View File

@ -3,7 +3,7 @@
"../syntax.ss"
"const.ss"
racket/snip
racket/snip/snip-flags
racket/snip/private/snip-flags
"private.ss")
(provide create-mline

2
collects/mred/private/wxme/pasteboard.rkt
View File

@ -10,7 +10,7 @@
"undo.ss"
"style.ss"
racket/snip
racket/snip/snip-flags
racket/snip/private/snip-flags
"standard-snip-admin.rkt"
"keymap.ss"
(only-in "cycle.ss" set-pasteboard%!)

2
collects/mred/private/wxme/text.rkt
View File

@ -12,7 +12,7 @@
"undo.ss"
"style.ss"
racket/snip
racket/snip/snip-flags
racket/snip/private/snip-flags
"standard-snip-admin.rkt"
"keymap.ss"
(only-in "cycle.ss" set-text%!)

2
collects/mred/private/wxme/undo.rkt
View File

@ -2,7 +2,7 @@
(require scheme/class
"private.ss"
racket/snip
racket/snip/snip-flags)
racket/snip/private/snip-flags)
(provide change-record%
proc-record%

4
collects/racket/snip.rkt
View File

@ -1,3 +1,3 @@
#lang racket/base
(require "snip/snip.rkt" "snip/snip-admin.rkt")
(provide (all-from-out "snip/snip.rkt" "snip/snip-admin.rkt"))
(require "snip/private/snip.rkt" "snip/private/snip-admin.rkt")
(provide (all-from-out "snip/private/snip.rkt" "snip/private/snip-admin.rkt"))

0
collects/mred/private/wxme/load-one.rkt → collects/racket/snip/private/load-one.rkt
View File

2
collects/racket/snip/snip-admin.rkt → collects/racket/snip/private/snip-admin.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/class
mred/private/syntax
racket/draw/private/syntax
"snip.ss")
(provide snip-admin%)

0
collects/racket/snip/snip-flags.rkt → collects/racket/snip/private/snip-flags.rkt
View File

11
collects/racket/snip/snip.rkt → collects/racket/snip/private/snip.rkt
View File

@ -2,11 +2,10 @@
(require scheme/class
scheme/file file/convertible
"snip-flags.ss"
mred/private/syntax
mred/private/wxme/private
"load-one.rkt"
racket/draw/private/syntax
mred/private/wxme/style
mred/private/wxme/load-one
mred/private/wx/common/event
mred/private/wxme/private
racket/draw)
(provide snip%
@ -54,8 +53,8 @@
;; these are used only in contracts
;; we don't want the real definitions b/c they require the gui
(define-values (editor-stream-in% editor-stream-out% snip-admin%)
(values object% object% object%))
(define-values (editor-stream-in% editor-stream-out% snip-admin% mouse-event% key-event%)
(values object% object% object% object% object%))
(define (symbol-list? l)
(and (list? l) (andmap symbol? l)))