From 9a871766bd9b07760e872e4caceb3d26105cceef Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 4 Oct 2004 01:09:59 +0000 Subject: [PATCH] . original commit: 0cf035e5d266c390f0b447c5fe6ad8112e971415 --- collects/mred/mred.ss | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 9f1808e8..301e0010 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -5102,11 +5102,7 @@ (get-ds no-v? no-h?) #f (append - (if (and (memq 'no-border style) - (or (memq 'no-vscroll style) - (memq 'hide-vscroll style)) - (or (memq 'no-hscroll style) - (memq 'hide-hscroll style))) + (if (memq 'no-border style) null '(border)) (remq 'no-border style)) @@ -6021,7 +6017,7 @@ (apply super-init args) (accept-drop-files #t))) "MrEd REPL" #f 500 400)) (define repl-buffer (make-object esq:text%)) - (define repl-display-canvas (make-object editor-canvas% frame)) + (define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border)])) (define esq-eventspace (wx:current-eventspace)) (define (queue-output proc)