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

.

Browse Source 
original commit: 66a76d773dd33e5e994a9d303b280f228941d2b6
This commit is contained in:
Matthew Flatt 2003-12-09 17:34:15 +00:00
parent 3dfd1987b9
commit eb84c81577
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

@ -7500,7 +7500,9 @@
(next-snip empty-string) (next-snip empty-string)
(set! pos (add1 pos))) (set! pos (add1 pos)))
(values val size))) (values val size)))
(values (send the-snip copy) alt-size)) (begin
(next-snip empty-string)
(values (send the-snip copy) alt-size)))
(begin (begin
(next-snip empty-string) (next-snip empty-string)
(values the-snip alt-size)))))] (values the-snip alt-size)))))]

11
collects/tests/mred/editor.ss
View File

@ -104,7 +104,16 @@
(test '(1 12 13) 'pos (call-with-values (lambda () (port-next-location p)) list)) (test '(1 12 13) 'pos (call-with-values (lambda () (port-next-location p)) list))
(test 'multi 'read (read p)) (test 'multi 'read (read p))
(test '(1 13 14) 'pos (call-with-values (lambda () (port-next-location p)) list)) (test '(1 13 14) 'pos (call-with-values (lambda () (port-next-location p)) list))
(test eof 'read (read p)))) (test eof 'read (read p)))
(stv e insert (make-object image-snip% (build-path
(collection-path "icons")
"plt.gif")))
(let ([p (open-input-text-editor e)])
(test 'hello 'read (read p))
(test 'there 'read (read p))
(test 'multi 'read (read p))
(test 'multi 'read (read p))
(test #t 'read (is-a? (read p) image-snip%))))