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

finish removing the check-expect dock/undock menu items

Browse Source 
(cherry picked from commit be2c7d7ada)
This commit is contained in:
Robby Findler 2012-07-24 10:17:58 -05:00 committed by Ryan Culpepper
parent 7b32c83cbd
commit f68f5f6fdb
1 changed files with 2 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/test-engine/test-tool.scm
View File

@ -91,12 +91,10 @@
(define/public (dock-tests)
(for ([t test-windows]) (send t show #f))
(let ([ed (send (get-current-tab) get-test-editor)])
(when ed (display-test-panel ed)))
(send dock-menu-item swap-labels))
(when ed (display-test-panel ed))))
(define/public (undock-tests)
(when (send test-panel is-shown?) (send test-panel remove))
(for ([t test-windows]) (send t show #t))
(send dock-menu-item swap-labels))
(for ([t test-windows]) (send t show #t)))
(define/override (make-root-area-container cls parent)
(let* ([outer-p (super make-root-area-container
@ -124,26 +122,8 @@
(inherit get-menu-bar get-menu% register-capability-menu-item get-definitions-text
get-insert-menu)
(define dock-menu-item 'not-init)
(define dock-label (string-constant test-engine-dock-report))
(define undock-label (string-constant test-engine-undock-report))
(define dock-menu-item%
(class menu:can-restore-menu-item%
(inherit set-label)
(define docked? #t)
(define/public (is-report-docked?) docked?)
(define/public (set-docked?! d) (set! docked? d))
(define/public (swap-labels)
(if docked?
(send this set-label dock-label)
(send this set-label undock-label))
(set! docked? (not docked?)))
(define/public (dock-report)
(unless docked? (dock-tests) (preferences:set 'test-engine:test-window:docked? #t)))
(define/public (undock-report)
(when docked? (undock-tests) (preferences:set 'test-engine:test-window:docked? #f)))
(super-instantiate ())))
(define/private (test-menu-init)
(let ([language-menu (send this get-language-menu)]