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

.

Browse Source 
original commit: bc26d4845cb986dd220affc79fefe9d963a9e31b
This commit is contained in:
Matthew Flatt 2001-04-06 16:17:03 +00:00
parent b9aeba9a0c
commit 5323873cda
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/mred.ss
View File

@ -3679,8 +3679,11 @@
style)))))
(public
[swap-gl-buffers (lambda () (send wx swap-buffers))]
[grab-gl-context (lambda () (send wx this-context-current))]
[restore-gl-context (lambda () (send wx previous-context-current))]
[with-gl-context (lambda (thunk)
(dynamic-wind
(lambda () (send wx this-context-current))
thunk
(lambda () (send wx previous-context-current))))]
[accept-tab-focus (entry-point
(case-lambda