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

fix default dialog% position (centered)

Browse Source 
Closes PR 11637
This commit is contained in:
Matthew Flatt 2011-01-20 16:41:47 -07:00
parent 2043b4ad6f
commit 0bc987e66b
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mred/private/wx/cocoa/frame.rkt
View File

@ -469,20 +469,24 @@
(define/override (center dir wrt)
(let ([f (tell #:type _NSRect cocoa frame)]
[s (tell #:type _NSRect (tell cocoa screen) frame)])
[w (if wrt
(tell #:type _NSRect (send wrt get-cocoa) frame)
(tell #:type _NSRect (tell cocoa screen) frame))])
(tellv cocoa setFrame:
#:type _NSRect (make-NSRect (make-NSPoint
(if (or (eq? dir 'both)
(eq? dir 'horizontal))
(quotient (- (NSSize-width (NSRect-size s))
(NSSize-width (NSRect-size f)))
2)
(+ (quotient (- (NSSize-width (NSRect-size w))
(NSSize-width (NSRect-size f)))
2)
(NSPoint-x (NSRect-origin w)))
(NSPoint-x (NSRect-origin f)))
(if (or (eq? dir 'both)
(eq? dir 'vertical))
(quotient (- (NSSize-height (NSRect-size s))
(NSSize-height (NSRect-size f)))
2)
(+ (quotient (- (NSSize-height (NSRect-size w))
(NSSize-height (NSRect-size f)))
2)
(NSPoint-y (NSRect-origin w)))
(NSPoint-x (NSRect-origin f))))
(NSRect-size f))
display: #:type _BOOL #t)))

2
collects/mred/private/wxtop.rkt
View File

@ -90,7 +90,7 @@
[panel #f]
[use-default-position? (and (= -11111 (list-ref args 2))
(= -11111 (list-ref args (if dlg? 3 1))))]
(= -11111 (list-ref args 1)))]
[enabled? #t]
[focus #f]