suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 5054014db9d153e1a6f4e19878d5932ccf7f439b
This commit is contained in:
Matthew Flatt 2003-06-12 21:38:43 +00:00
parent dc55ffbd8b
commit ddd723d089
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -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))