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

cocoa: fix control-refresh bug

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-28 10:34:45 -06:00
parent 2cc0b35ca9
commit b24c8eb4dd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/cocoa/window.rkt
View File

@ -623,9 +623,12 @@
(define/public (set-size x y w h)
(let ([x (if (= x -11111) (get-x) x)]
[y (if (= y -11111) (get-y) y)])
;; old location will need refresh:
(tellv cocoa setNeedsDisplay: #:type _BOOL #t)
(tellv cocoa setFrame: #:type _NSRect (make-NSRect (make-NSPoint x (flip y h))
(make-NSSize w h))))
(make-NSSize w h)))
;; new location needs refresh:
(tellv cocoa setNeedsDisplay: #:type _BOOL #t))
(queue-on-size))
(define/public (internal-move x y)