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

.

Browse Source 
original commit: 74d2eef8af8e5d460046704ef6d5c4e49e1feac8
This commit is contained in:
Matthew Flatt 2003-02-28 14:34:51 +00:00
parent 48c1e9c1fe
commit b57ac1081e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -2510,8 +2510,10 @@
(define wx-basic-panel<%> (interface ())) (define wx-basic-panel<%> (interface ()))
(define tab-h-border 2) (define tab-h-border (if (eq? (system-type) 'windows)
(define tab-v-border (if (eq? (system-type) 'macosx) 3
2))
(define tab-v-border (if (memq (system-type) '(macosx macos))
5 5
2)) 2))
@ -2876,7 +2878,7 @@
height)) height))
(let ([dy (child-info-y-min (car children-info))]) (let ([dy (child-info-y-min (car children-info))])
(map (lambda (i) (map (lambda (i)
(list (+ (car i) tab-h-border) ;; hack! 2-pixel border assumed (list (+ (car i) tab-h-border)
(+ dy (cadr i) (- tab-v-border) -1) (+ dy (cadr i) (- tab-v-border) -1)
(caddr i) (caddr i)
(cadddr i))) (cadddr i)))