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

improved tab switching when the contour window is open

Browse Source 
svn: r12352

original commit: 4e623ef655ccc4e9f56281f2fa77e6243bdb128b
This commit is contained in:
Robby Findler 2008-11-08 16:54:43 +00:00
parent c07d9d3851
commit f59d9ef1fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/canvas.ss
View File

@ -46,8 +46,8 @@
(send (get-top-level-window) set-info-canvas (and on? this)) (send (get-top-level-window) set-info-canvas (and on? this))
(when on? (when on?
(send (get-top-level-window) update-info))) (send (get-top-level-window) update-info)))
(define/override (set-editor m) (define/override (set-editor m [redraw? #t])
(super set-editor m) (super set-editor m redraw?)
(let ([tlw (get-top-level-window)]) (let ([tlw (get-top-level-window)])
(when (eq? this (send tlw get-info-canvas)) (when (eq? this (send tlw get-info-canvas))
(send tlw update-info)))) (send tlw update-info))))