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

...

Browse Source 
original commit: b55960e00216c5d466e27ce1a4d397b7121c1e81
This commit is contained in:
Robby Findler 1999-09-09 19:31:02 +00:00
parent f559fe21ae
commit 4c67147ae4
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/icon.ss
View File

@ -34,7 +34,7 @@
(define-values (get-unlock-bitmap) (load-bitmap "unlock.gif" 'gif))
(define get-autowrap-bitmap (load-icon "return.xbm" 'xbm))
(define get-paren-highlight-bitmap (load-icon "paren.xbm" 'xbm))
(define get-paren-highlight-bitmap (load-icon "paren.bmp" 'bmp))
(define (make-get/mask filename type)
(let ([icon #f]

18
collects/framework/text.ss
View File

@ -218,14 +218,16 @@
[b/w-bitmap (rectangle-b/w-bitmap rectangle)]
[color (let* ([rc (rectangle-color rectangle)]
[tmpc (make-object color% 0 0 0)])
(if rc
(begin (send dc try-color rc tmpc)
(and (<= (max (abs (- (send rc red) (send tmpc red)))
(abs (- (send rc blue) (send tmpc blue)))
(abs (- (send rc green) (send tmpc green))))
50)
rc))
rc))]
(and
#f
(if rc
(begin (send dc try-color rc tmpc)
(and (<= (max (abs (- (send rc red) (send tmpc red)))
(abs (- (send rc blue) (send tmpc blue)))
(abs (- (send rc green) (send tmpc green))))
50)
rc))
rc)))]
[first-number (lambda (x y) (if (number? x) x y))]
[left (max left-margin (first-number (rectangle-left rectangle) view-x))]
[top (max top-margin (rectangle-top rectangle))]