try using make-bitmap for the bitmaps under unix to see if drdr
likes that better
|
@ -39,13 +39,15 @@
|
||||||
raw-bitmap-filename)]
|
raw-bitmap-filename)]
|
||||||
[old-bitmap (if (file-exists? bitmap-filename)
|
[old-bitmap (if (file-exists? bitmap-filename)
|
||||||
(read-bitmap bitmap-filename)
|
(read-bitmap bitmap-filename)
|
||||||
(let* ([bm (make-screen-bitmap 100 20)]
|
(let* ([bm (make-bitmap 100 20)]
|
||||||
[bdc (make-object bitmap-dc% bm)])
|
[bdc (make-object bitmap-dc% bm)])
|
||||||
(send bdc clear)
|
(send bdc clear)
|
||||||
(send bdc draw-text "does not exist" 0 0)
|
(send bdc draw-text "does not exist" 0 0)
|
||||||
(send bdc set-bitmap #f)
|
(send bdc set-bitmap #f)
|
||||||
bm))]
|
bm))]
|
||||||
[new-bitmap (make-screen-bitmap
|
[new-bitmap ((if (eq? (system-type) 'unix)
|
||||||
|
make-bitmap
|
||||||
|
make-screen-bitmap)
|
||||||
(ceiling (inexact->exact (pict-width pict)))
|
(ceiling (inexact->exact (pict-width pict)))
|
||||||
(ceiling (inexact->exact (pict-height pict))))]
|
(ceiling (inexact->exact (pict-height pict))))]
|
||||||
[bdc (make-object bitmap-dc% new-bitmap)])
|
[bdc (make-object bitmap-dc% new-bitmap)])
|
||||||
|
|
Before Width: | Height: | Size: 2.8 KiB After Width: | Height: | Size: 2.4 KiB |
Before Width: | Height: | Size: 737 B After Width: | Height: | Size: 678 B |
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 1.1 KiB |
Before Width: | Height: | Size: 18 KiB After Width: | Height: | Size: 16 KiB |
Before Width: | Height: | Size: 4.2 KiB After Width: | Height: | Size: 3.6 KiB |
Before Width: | Height: | Size: 8.4 KiB After Width: | Height: | Size: 6.8 KiB |
Before Width: | Height: | Size: 1.5 KiB After Width: | Height: | Size: 1.3 KiB |
Before Width: | Height: | Size: 5.8 KiB After Width: | Height: | Size: 5.1 KiB |
Before Width: | Height: | Size: 5.2 KiB After Width: | Height: | Size: 4.3 KiB |
Before Width: | Height: | Size: 6.4 KiB After Width: | Height: | Size: 5.5 KiB |
Before Width: | Height: | Size: 7.7 KiB After Width: | Height: | Size: 6.7 KiB |
Before Width: | Height: | Size: 2.9 KiB After Width: | Height: | Size: 2.5 KiB |
Before Width: | Height: | Size: 8.5 KiB After Width: | Height: | Size: 7.6 KiB |
Before Width: | Height: | Size: 6.7 KiB After Width: | Height: | Size: 6.4 KiB |
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 1.2 KiB |
Before Width: | Height: | Size: 15 KiB After Width: | Height: | Size: 13 KiB |
Before Width: | Height: | Size: 1.8 KiB After Width: | Height: | Size: 1.5 KiB |
Before Width: | Height: | Size: 5.4 KiB After Width: | Height: | Size: 4.3 KiB |
Before Width: | Height: | Size: 5.2 KiB After Width: | Height: | Size: 4.3 KiB |
Before Width: | Height: | Size: 3.3 KiB After Width: | Height: | Size: 2.9 KiB |
Before Width: | Height: | Size: 8.4 KiB After Width: | Height: | Size: 7.4 KiB |
Before Width: | Height: | Size: 924 B After Width: | Height: | Size: 850 B |
Before Width: | Height: | Size: 7.4 KiB After Width: | Height: | Size: 6.7 KiB |
Before Width: | Height: | Size: 2.6 KiB After Width: | Height: | Size: 2.4 KiB |
Before Width: | Height: | Size: 2.0 KiB After Width: | Height: | Size: 1.7 KiB |
Before Width: | Height: | Size: 1.7 KiB After Width: | Height: | Size: 1.5 KiB |
Before Width: | Height: | Size: 737 B After Width: | Height: | Size: 678 B |
Before Width: | Height: | Size: 5.9 KiB After Width: | Height: | Size: 5.2 KiB |
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 1.2 KiB |
Before Width: | Height: | Size: 4.2 KiB After Width: | Height: | Size: 3.8 KiB |
Before Width: | Height: | Size: 6.3 KiB After Width: | Height: | Size: 5.4 KiB |