From 41e63fad3c09eb7b72ad8e7d00431b3e30f8588f Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Mon, 6 Oct 2014 16:36:44 -0400 Subject: [PATCH] Added `get-current-gl-context`, tests (also for `make-gl-bitmap`), and docs original commit: 1e99637bf887beab5bfd64be2a7bf0c918a38114 --- pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt b/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt index b3417a09..6837b01c 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt @@ -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%)]