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

.

Browse Source 
original commit: 2972e6749d68cae6816ee284f7452c6b7bf31e1c
This commit is contained in:
Robby Findler 2004-10-24 13:49:26 +00:00
parent 8be44c13fb
commit a060e05a8d
2 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/framework/private/number-snip.ss
View File

@ -34,19 +34,18 @@
(define -snip-class%
(class snip-class%
(define/override (read f)
(let* ([number (string->number (send f get-string))]
[decimal-prefix (send f get-string)]
[fraction-str (send f get-string)]
[expansions-str (send f get-string)]
(let* ([number (string->number (bytes->string/utf-8 (send f get-bytes)))]
[decimal-prefix (bytes->string/utf-8 (send f get-bytes))]
[fraction-bytes (send f get-bytes)]
[expansions (string->number (bytes->string/utf-8 (send f get-bytes)))]
[fraction-view
(cond
[(string=? "#t" fraction-str) 'decimal]
[(string=? "#f" fraction-str)
[(equal? #"#t" fraction-bytes) 'decimal]
[(equal? #"#f" fraction-bytes)
(preferences:get 'framework:fraction-snip-style)]
[(string=? "mixed" fraction-str) 'mixed]
[(string=? "decimal" fraction-str) 'decimal]
[(string=? "improper" fraction-str) 'improper])]
[expansions (string->number expansions-str)]
[(equal? #"mixed" fraction-bytes) 'mixed]
[(equal? #"decimal" fraction-bytes) 'decimal]
[(equal? #"improper" fraction-bytes) 'improper])]
[snip
(instantiate number-snip% ()
[number number]
@ -54,7 +53,7 @@
(send snip iterate (max 0 (- expansions 1))) ;; one iteration is automatic
(send snip set-fraction-view fraction-view)
snip))
(super-instantiate ())))
(super-new)))
(define number-snipclass (new -snip-class%))
(send number-snipclass set-version 3)
@ -319,10 +318,10 @@
dens)])]))
(define/override (write f)
(send f put (number->string number))
(send f put decimal-prefix)
(send f put (format "~a" fraction-view))
(send f put (number->string expansions)))
(send f put (string->bytes/utf-8 (number->string number)))
(send f put (string->bytes/utf-8 decimal-prefix))
(send f put (string->bytes/utf-8 (format "~a" fraction-view)))
(send f put (string->bytes/utf-8 (number->string expansions))))
(define/override (copy)
(let ([snip (instantiate number-snip% ()

4
collects/framework/private/text.ss
View File

@ -1468,7 +1468,9 @@ WARNING: printf is rebound in the body of the unit to always
(channel-put-evt
resp-chan
(lambda (src line col pos)
nth))])))]
(if (is-a? nth readable-snip<%>)
(send nth read-special src line col pos)
nth)))])))]
[else
#f])]))