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

remove the "dock/undock test report" menu items from the show menu

Browse Source 
(there are buttons in the window and this isn't really a show menu
type of thing)
This commit is contained in:
Robby Findler 2012-07-16 15:43:09 -05:00
parent 488cfed53a
commit 83bae29b21
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,22 +144,7 @@
(define/public (undock-report) (define/public (undock-report)
(when docked? (undock-tests) (preferences:set 'test-engine:test-window:docked? #f))) (when docked? (undock-tests) (preferences:set 'test-engine:test-window:docked? #f)))
(super-instantiate ()))) (super-instantiate ())))
(define/override (add-show-menu-items show-menu)
(super add-show-menu-items show-menu)
(let ([dock? (preferences:get 'test-engine:test-window:docked?)])
(when (eq? dock-menu-item 'not-init)
(set! dock-menu-item
(make-object dock-menu-item%
(if dock? undock-label dock-label)
show-menu
(lambda (_1 _2)
(if (send _1 is-report-docked?)
(send _1 undock-report)
(send _1 dock-report)))))
(register-capability-menu-item 'tests:dock-menu show-menu))
(send dock-menu-item set-docked?! dock?)))
(define/private (test-menu-init) (define/private (test-menu-init)
(let ([language-menu (send this get-language-menu)] (let ([language-menu (send this get-language-menu)]
[enable-label (string-constant test-engine-enable-tests)] [enable-label (string-constant test-engine-enable-tests)]