From ddd723d08989d5660898401df326b85784eeee64 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 12 Jun 2003 21:38:43 +0000 Subject: [PATCH] . original commit: 5054014db9d153e1a6f4e19878d5932ccf7f439b --- collects/mred/mred.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 4fa5b8ea..af3b49e7 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -4850,13 +4850,7 @@ wx) (lambda () (let ([cwho '(constructor canvas)]) - (check-container-ready cwho parent) - (when (memq 'gl style) - (unless (or (eq? (system-type) 'windows) - (eq? (system-type) 'unix)) - (raise-mismatch-error (who->name cwho) - "the 'gl style flag is not supported on this platform: " - style))))) + (check-container-ready cwho parent))) parent) (when label (set-label label))