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

Added get-current-gl-context, tests (also for make-gl-bitmap), and docs

Browse Source 
original commit: 1e99637bf887beab5bfd64be2a7bf0c918a38114
This commit is contained in:
Neil Toronto 2014-10-06 16:36:44 -04:00
parent 5c3700d983
commit 41e63fad3c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt
View File

@ -10,10 +10,12 @@
racket/draw/private/color
racket/draw/private/font
racket/draw/private/gl-config
racket/draw/private/gl-context
racket/draw/private/gradient
racket/draw/private/pen
racket/draw/private/region
(for-syntax (only-in (rep type-rep) make-Instance))
(only-in typed/racket/base -> U)
"private/gui-types.rkt"
(for-syntax (submod "private/gui-types.rkt" #%type-decl)))
@ -76,6 +78,7 @@
[the-color-database (make-Instance (parse-type #'Color-Database<%>))]
[font% (parse-type #'Font%)]
[font-list% (parse-type #'Font-List%)]
[get-current-gl-context (parse-type #'(-> (U #f GL-Context<%>)))]
[gl-config% (parse-type #'GL-Config%)]
[linear-gradient% (parse-type #'Linear-Gradient%)]
[pen% (parse-type #'Pen%)]