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

fix handling of snip%s that don't have a snipclass

Browse Source
This commit is contained in:
Robby Findler 2015-05-04 18:01:47 -05:00
parent 860f14b7ed
commit d9fd94f608
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2232,14 +2232,20 @@
(struct snip-special (snip name bytes))
(define (make-snip-special snip)
(define base (new editor-stream-out-bytes-base%))
(define stream (make-object editor-stream-out% base))
(send snip write stream)
(snip-special snip
(send (send snip get-snipclass) get-classname)
(send base get-bytes)))
(define the-snipclass (send snip get-snipclass))
(cond
[the-snipclass
(define base (new editor-stream-out-bytes-base%))
(define stream (make-object editor-stream-out% base))
(send snip write stream)
(snip-special snip
(send the-snipclass get-classname)
(send base get-bytes))]
[else
(snip-special snip #f #f)]))
(define (snip-special->snip snip-special)
(define snipclass (send (get-the-snip-class-list) find (snip-special-name snip-special)))
(define the-name (snip-special-name snip-special))
(define snipclass (and the-name (send (get-the-snip-class-list) find the-name)))
(cond
[snipclass
(define base (make-object editor-stream-in-bytes-base%