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

..

Browse Source 
original commit: f3ced4c8b62addf41b50ca2a87ccb12318e477bf
This commit is contained in:
Robby Findler 1999-09-09 20:24:53 +00:00
parent f8a0c3d50c
commit ae5c918691
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/text.ss
View File

@ -218,8 +218,6 @@
[b/w-bitmap (rectangle-b/w-bitmap rectangle)]
[color (let* ([rc (rectangle-color rectangle)]
[tmpc (make-object color% 0 0 0)])
(and
#f
(if rc
(begin (send dc try-color rc tmpc)
(and (<= (max (abs (- (send rc red) (send tmpc red)))
@ -227,7 +225,7 @@
(abs (- (send rc green) (send tmpc green))))
50)
rc))
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))]
@ -476,4 +474,4 @@
(define clever-file-format% (clever-file-format-mixin file%))
(define backup-autosave% (editor:backup-autosave-mixin clever-file-format%))
(define searching% (searching-mixin backup-autosave%))
(define info% (info-mixin (editor:info-mixin searching%))))
(define info% (info-mixin (editor:info-mixin searching%))))