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

more ellipsis snip fixes

Browse Source
This commit is contained in:
Robby Findler 2014-11-20 07:50:33 -06:00
parent 372b4d072b
commit d017dbdeda
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/drracket-pkgs/drracket/drracket/private/ellipsis-snip.rkt
View File

@ -78,7 +78,7 @@
(define snipclass (define snipclass
(new (class snip-class% (new (class snip-class%
(define/override (read f) (define/override (read f)
(define data (read (open-input-bytes (send f get-unterminated-bytes)))) (define data (r:read (open-input-bytes (send f get-unterminated-bytes))))
(cond (cond
[(valid-data? data) [(valid-data? data)
(new ellipsis-snip% (new ellipsis-snip%
@ -91,7 +91,7 @@
(send snipclass set-classname (send snipclass set-classname
(format "~s" '((lib "ellipsis-snip.rkt" "drracket" "private") (format "~s" '((lib "ellipsis-snip.rkt" "drracket" "private")
(lib "ellipsis-snip-wxme.rkt" "drracket" "private")))) (lib "ellipsis-snip-wxme.rkt" "drracket" "private"))))
(send (get-the-snip-class-list) add snipclass)
(module+ main (module+ main
(define f (new frame% [label ""] [width 100] [height 100])) (define f (new frame% [label ""] [width 100] [height 100]))