11045a0384
A recent bug fix involved moving part of an `editor-canvas%' resize out of atomic mode by queueing a callback (because the resize involves quesrying the editor for its size, etc.), but then the callback happens after a canvas is shown, which can cause it to appear with bogus initial scrollbars. Queue the callback instead as a "refresh" level callback, which gets a chance to run before a frame is made visible.
44 lines
1.2 KiB
Racket
44 lines
1.2 KiB
Racket
#lang racket/base
|
|
(require "wx/platform.rkt"
|
|
"wx/common/event.rkt"
|
|
"wx/common/timer.rkt"
|
|
"wx/common/queue.rkt"
|
|
"wx/common/clipboard.rkt"
|
|
"wx/common/cursor.rkt"
|
|
"wx/common/procs.rkt"
|
|
"wx/common/handlers.rkt"
|
|
racket/class
|
|
racket/draw)
|
|
|
|
(provide (all-from-out "wx/platform.rkt")
|
|
clipboard<%>
|
|
(all-from-out "wx/common/event.rkt"
|
|
"wx/common/timer.rkt"
|
|
"wx/common/clipboard.rkt"
|
|
"wx/common/cursor.rkt"
|
|
"wx/common/procs.rkt")
|
|
(all-from-out racket/draw)
|
|
|
|
eventspace?
|
|
current-eventspace
|
|
queue-event
|
|
yield
|
|
make-eventspace
|
|
event-dispatch-handler
|
|
eventspace-shutdown?
|
|
main-eventspace?
|
|
eventspace-handler-thread
|
|
eventspace-event-evt
|
|
queue-callback
|
|
queue-refresh-event
|
|
middle-queue-key
|
|
get-top-level-windows
|
|
begin-busy-cursor
|
|
is-busy?
|
|
end-busy-cursor
|
|
application-file-handler
|
|
application-quit-handler
|
|
application-about-handler
|
|
application-pref-handler
|
|
application-start-empty-handler)
|