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

fix marshalling of embedded editors

Browse Source
This commit is contained in:
Robby Findler 2016-05-15 16:02:01 -05:00
parent 50fb0e9a93
commit 10425033b8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui-lib/framework/private/text.rkt
View File

@ -2270,7 +2270,9 @@
[the-snipclass [the-snipclass
(define base (new editor-stream-out-bytes-base%)) (define base (new editor-stream-out-bytes-base%))
(define stream (make-object editor-stream-out% base)) (define stream (make-object editor-stream-out% base))
(write-editor-global-header stream)
(send snip write stream) (send snip write stream)
(write-editor-global-footer stream)
(snip-special snip (snip-special snip
(send the-snipclass get-classname) (send the-snipclass get-classname)
(send base get-bytes))] (send base get-bytes))]
@ -2284,7 +2286,10 @@
(define base (make-object editor-stream-in-bytes-base% (define base (make-object editor-stream-in-bytes-base%
(snip-special-bytes snip-special))) (snip-special-bytes snip-special)))
(define es (make-object editor-stream-in% base)) (define es (make-object editor-stream-in% base))
(or (send snipclass read es) (read-editor-global-header es)
(define the-snip (send snipclass read es))
(read-editor-global-footer es)
(or the-snip
(snip-special-snip snip-special))] (snip-special-snip snip-special))]
[else [else
(snip-special-snip snip-special)])) (snip-special-snip snip-special)]))