From 48c1e9c1feb627762969ad42b8749b2ada0ef68f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 28 Feb 2003 00:40:51 +0000
Subject: [PATCH] .

original commit: ab173040ef943060ba4378a573a369b7bee17f84
---
 collects/mred/mred.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 2e5e4944..fdf5bac6 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4904,16 +4904,16 @@
 	  (raise-type-error (who->name cwho) "list of strings (up to 200 characters)" choices))
 	(check-callback cwho callback)
 	(check-container-parent cwho parent)
-	(check-style cwho #f '(deleted border) style))
+	(check-style cwho #f '(deleted no-border) style))
       (super-init parent (if (memq 'deleted style)
 			     '(deleted)
 			     null)))
 
     (private-field
      [tabs (make-object tab-group% #f choices this (lambda (c e) (callback this e)) 
-			(if (memq 'border style)
-			     '(border)
-			     null))])
+			(if (memq 'no-border style)
+			     null
+			     '(border)))])
     (sequence
       (send (mred->wx this) set-first-child-is-hidden))