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

use container sequence to avoid resize flicker for `text-field%'

Browse Source 
original commit: cc647f0ab9833195a8012bece70e8eba83cb6df3
This commit is contained in:
Matthew Flatt 2011-05-24 12:55:16 -06:00
parent 525988208b
commit 1348145b52
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wxtextfield.rkt
View File

@ -131,6 +131,8 @@
(define wx-text-field% (define wx-text-field%
(class100 wx-horizontal-panel% (mred proxy parent fun label value style _font) (class100 wx-horizontal-panel% (mred proxy parent fun label value style _font)
(sequence
(send (send parent get-top-level) begin-container-sequence))
;; Make text field first because we'll have to exit ;; Make text field first because we'll have to exit
;; for keymap initializer ;; for keymap initializer
(private-field (private-field
@ -336,4 +338,5 @@
(let ([min-size (get-min-size)]) (let ([min-size (get-min-size)])
(set-min-width (car min-size)) (set-min-width (car min-size))
(set-min-height (cadr min-size))) (set-min-height (cadr min-size)))
(send (send parent get-top-level) end-container-sequence)
(callback-ready))))) (callback-ready)))))