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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

4
collects/racket/snip.rkt
View File

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