From 119b5bf0fafb14d89ee0d863bc55b3122e477a5a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 30 Nov 2008 04:47:23 +0000 Subject: [PATCH] added the usual menus to the test window; also 'open' on the mac and drag and drop now work properly svn: r12642 --- collects/test-engine/test-display.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm index d8b4006170..28c6632601 100644 --- a/collects/test-engine/test-display.scm +++ b/collects/test-engine/test-display.scm @@ -225,7 +225,7 @@ (super-instantiate ()))) (define test-window% - (class* frame% () + (class* frame:standard-menus% () (super-instantiate ((string-constant test-engine-window-title) #f 400 350)) @@ -234,11 +234,13 @@ (define disable-func void) (define close-cleanup void) + (inherit get-area-container) + (define content - (make-object editor-canvas% this #f '(auto-vscroll))) + (make-object editor-canvas% (get-area-container) #f '(auto-vscroll))) (define button-panel - (make-object horizontal-panel% this + (make-object horizontal-panel% (get-area-container) '() #t 0 0 0 0 '(right bottom) 0 0 #t #f)) (define buttons @@ -260,6 +262,8 @@ (switch-func)))) (make-object grow-box-spacer-pane% button-panel))) + (define/override (edit-menu:between-select-all-and-find menu) (void)) + (define/public (update-editor e) (send content set-editor e))