From 83bae29b212bf690850255530352f33c5300ac8b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 16 Jul 2012 15:43:09 -0500 Subject: [PATCH] remove the "dock/undock test report" menu items from the show menu (there are buttons in the window and this isn't really a show menu type of thing) --- collects/test-engine/test-tool.scm | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/collects/test-engine/test-tool.scm b/collects/test-engine/test-tool.scm index 635d701ee7..8ce34a8013 100644 --- a/collects/test-engine/test-tool.scm +++ b/collects/test-engine/test-tool.scm @@ -144,22 +144,7 @@ (define/public (undock-report) (when docked? (undock-tests) (preferences:set 'test-engine:test-window:docked? #f))) (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) (let ([language-menu (send this get-language-menu)] [enable-label (string-constant test-engine-enable-tests)]