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

macro-stepper: eliminated spurious update on initial frame "resize"

Browse Source 
svn: r16406

original commit: 98ce5f37afee9e6c5f2b6261621cae63a9195211
This commit is contained in:
Ryan Culpepper 2009-10-22 05:50:06 +00:00
parent 9bc38dd1c1
commit 225ea79377
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/macro-debugger/view/frame.ss
View File

@ -33,6 +33,7 @@
(define obsoleted? #f) (define obsoleted? #f)
(inherit get-area-container (inherit get-area-container
get-size
set-label set-label
get-menu% get-menu%
get-menu-item% get-menu-item%
@ -53,10 +54,16 @@
" - Macro stepper") " - Macro stepper")
"Macro stepper")) "Macro stepper"))
;; Grrr... we get a spurious on-size event sometime after the
;; frame is created, probably when the window-manager gets around
;; to doing something. Avoid unnecessary updates.
(define-values (w0 h0) (get-size))
(define/override (on-size w h) (define/override (on-size w h)
(send: config config<%> set-width w) (send: config config<%> set-width w)
(send: config config<%> set-height h) (send: config config<%> set-height h)
(send: widget widget<%> update/preserve-view)) (unless (and (= w0 w) (= h0 h))
(send: widget widget<%> update/preserve-view))
(set!-values (w0 h0) (values w h)))
(define warning-panel (define warning-panel
(new horizontal-panel% (new horizontal-panel%