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

snip and editor-data class lists need to be eventspace-specific

Browse Source 
svn: r14575
This commit is contained in:
Matthew Flatt 2009-04-21 16:37:25 +00:00
parent 60325b670c
commit 4bc2ddaf9d
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/mred.ss
View File

@ -74,6 +74,11 @@
(namespace-require 'scheme/class)) (namespace-require 'scheme/class))
ns)) ns))
(define (make-eventspace)
(parameterize ([wx:the-snip-class-list (wx:make-the-snip-class-list)]
[wx:the-editor-data-class-list (wx:make-the-editor-data-class-list)])
(wx:make-eventspace)))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-syntax propagate (define-syntax propagate
@ -139,7 +144,6 @@
is-color-display? is-color-display?
key-event% key-event%
keymap% keymap%
make-eventspace
editor-admin% editor-admin%
editor-set-x-selection-mode editor-set-x-selection-mode
editor-snip-editor-admin<%> editor-snip-editor-admin<%>
@ -307,6 +311,7 @@
current-eventspace-has-standard-menus? current-eventspace-has-standard-menus?
current-eventspace-has-menu-root? current-eventspace-has-menu-root?
eventspace-handler-thread eventspace-handler-thread
make-eventspace
make-gui-namespace make-gui-namespace
make-gui-empty-namespace make-gui-empty-namespace
file-creator-and-type file-creator-and-type

14
collects/mred/private/wxme/snip.ss
View File

@ -26,6 +26,11 @@
get-the-snip-class-list get-the-snip-class-list
get-the-editor-data-class-list get-the-editor-data-class-list
the-editor-snip-class the-editor-snip-class
the-snip-class-list ;; parameter
make-the-snip-class-list
the-editor-data-class-list ;; parameter
make-the-editor-data-class-list
(struct-out snip-class-link) (struct-out snip-class-link)
(struct-out editor-data-class-link) (struct-out editor-data-class-link)
@ -1321,9 +1326,10 @@
(define (make-the-snip-class-list) (define (make-the-snip-class-list)
(new standard-snip-class-list%)) (new standard-snip-class-list%))
(define the-snip-class-list (make-the-snip-class-list)) (define the-snip-class-list (make-parameter (make-the-snip-class-list)))
(define (get-the-snip-class-list) (define (get-the-snip-class-list)
the-snip-class-list) (the-snip-class-list))
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
@ -1463,9 +1469,9 @@
(define (make-the-editor-data-class-list) (define (make-the-editor-data-class-list)
(new editor-data-class-list%)) (new editor-data-class-list%))
(define the-editor-data-class-list (make-the-editor-data-class-list)) (define the-editor-data-class-list (make-parameter (make-the-editor-data-class-list)))
(define (get-the-editor-data-class-list) (define (get-the-editor-data-class-list)
the-editor-data-class-list) (the-editor-data-class-list))
;; ------------------------------------------------------------ ;; ------------------------------------------------------------