cocoa: fix control-refresh bug
This commit is contained in:
parent
2cc0b35ca9
commit
b24c8eb4dd
|
@ -623,9 +623,12 @@
|
||||||
(define/public (set-size x y w h)
|
(define/public (set-size x y w h)
|
||||||
(let ([x (if (= x -11111) (get-x) x)]
|
(let ([x (if (= x -11111) (get-x) x)]
|
||||||
[y (if (= y -11111) (get-y) y)])
|
[y (if (= y -11111) (get-y) y)])
|
||||||
|
;; old location will need refresh:
|
||||||
(tellv cocoa setNeedsDisplay: #:type _BOOL #t)
|
(tellv cocoa setNeedsDisplay: #:type _BOOL #t)
|
||||||
(tellv cocoa setFrame: #:type _NSRect (make-NSRect (make-NSPoint x (flip y h))
|
(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))
|
(queue-on-size))
|
||||||
|
|
||||||
(define/public (internal-move x y)
|
(define/public (internal-move x y)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user