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

.

Browse Source 
original commit: 228ffa759f60b967578b3288d00a0639ceca114c
This commit is contained in:
Matthew Flatt 2004-02-23 23:14:49 +00:00
parent 387ab66058
commit 5c51ae9581
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mred/draw.ss
View File

@ -71,12 +71,12 @@
(define (get-b&w-light-stipple) (define (get-b&w-light-stipple)
(make-object bitmap% (make-object bitmap%
(list->string (map integer->char '(#x88 0 #x22 0 #x88 0 #x22 0))) (list->bytes '(#x88 0 #x22 0 #x88 0 #x22 0))
8 8)) 8 8))
(define (get-b&w-half-stipple) (define (get-b&w-half-stipple)
(make-object bitmap% (make-object bitmap%
(list->string (map integer->char '(#xcc #x33 #xcc #x33 #xcc #x33 #xcc #x33))) (list->bytes '(#xcc #x33 #xcc #x33 #xcc #x33 #xcc #x33))
8 8)) 8 8))
(let* ([f (make-object frame% "Graphics Test" #f 300 450)] (let* ([f (make-object frame% "Graphics Test" #f 300 450)]
@ -180,7 +180,7 @@
(send dc set-text-foreground (make-object color% "RED")) (send dc set-text-foreground (make-object color% "RED"))
(send dc set-text-mode 'solid)) (send dc set-text-mode 'solid))
(send dc draw-text (string-append size " P\351n") ; 351 is e with ' (send dc draw-text (string-append size " P\uE9n") ; \uE9 is e with '
(+ x 5) (+ y 8)) (+ x 5) (+ y 8))
(send dc set-font ofont) (send dc set-font ofont)
@ -470,10 +470,10 @@
(let ([obg (send dc get-background)] (let ([obg (send dc get-background)]
[tan (make-object color% "TAN")]) [tan (make-object color% "TAN")])
(send dc set-background tan) (send dc set-background tan)
(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/+"] (let* ([bits #"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/+"]
[bm (make-object bitmap% bits 64 8)]) [bm (make-object bitmap% bits 64 8)])
(send dc draw-bitmap bm 306 164 'opaque)) (send dc draw-bitmap bm 306 164 'opaque))
(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567"] (let* ([bits #"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567"]
[bm (make-object bitmap% bits 48 10)]) [bm (make-object bitmap% bits 48 10)])
(send dc draw-bitmap bm 306 184 'opaque)) (send dc draw-bitmap bm 306 184 'opaque))
(send dc set-background obg))) (send dc set-background obg)))

3
collects/tests/mred/item.ss
View File

@ -674,7 +674,8 @@
'(vertical)))) '(vertical))))
(define txt (make-object text-field% (define txt (make-object text-field%
(if null-label? #f "T&ext") ip2 void (if null-label? #f "T&ext \u7238") ; \u7238 is Chinese "father"
ip2 void
"initial & starting" "initial & starting"
(add-label-direction (add-label-direction
label-h? label-h?