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

*** empty log message ***

Browse Source 
original commit: 5821e655ee5d9148e9c2ed431f683018f41ec473
This commit is contained in:
Scott Owens 2002-03-01 07:14:14 +00:00
parent 80467f0f02
commit 11c6f25574
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/mred.ss
View File

@ -3822,11 +3822,10 @@
(public (public
[swap-gl-buffers (lambda () (send wx swap-buffers))] [swap-gl-buffers (lambda () (send wx swap-buffers))]
[with-gl-context (lambda (thunk) [with-gl-context (lambda (thunk)
(dynamic-wind (dynamic-wind
(lambda () (send wx this-context-current)) (lambda () (send wx this-context-current))
thunk thunk
(lambda () (send wx previous-context-current))))] void))]
[accept-tab-focus (entry-point [accept-tab-focus (entry-point
(case-lambda (case-lambda
[() (send wx get-tab-focus)] [() (send wx get-tab-focus)]