cocoa: fix crashing bug related to canvas sizing

This commit is contained in:
Matthew Flatt 2011-03-15 12:41:16 -06:00
parent a2d968a5d2
commit 7ecf8e6c0b

View File

@ -878,8 +878,9 @@
(tellv compose-cocoa orderFront: #f)))) (tellv compose-cocoa orderFront: #f))))
(define (reset-input-method-window-size) (define (reset-input-method-window-size)
(tell compose-text setFrame: #:type _NSRect (when compose-text
(tell #:type _NSRect (tell compose-cocoa contentView) frame))) (tell compose-text setFrame: #:type _NSRect
(tell #:type _NSRect (tell compose-cocoa contentView) frame))))
(define compose-cocoa #f) (define compose-cocoa #f)
(define compose-text #f) (define compose-text #f)