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

Add other missing exports for typed/racket/draw

Browse Source
This commit is contained in:
Asumu Takikawa 2015-03-27 00:13:15 -04:00
parent f758a6ed42
commit f82ceece33
2 changed files with 52 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
typed-racket-more/typed/racket/draw.rkt
View File

@ -8,15 +8,19 @@
racket/draw/private/bitmap-dc
racket/draw/private/brush
racket/draw/private/color
racket/draw/private/dc-path
racket/draw/private/font
racket/draw/private/font-dir
racket/draw/private/gl-config
racket/draw/private/gl-context
racket/draw/private/gradient
racket/draw/private/pen
racket/draw/private/point
racket/draw/private/post-script-dc
racket/draw/private/ps-setup
racket/draw/private/record-dc
racket/draw/private/region
racket/draw/private/svg-dc
(only-in typed/racket/base -> U)
"private/gui-types.rkt"
(for-syntax (submod "private/gui-types.rkt" #%type-decl)))
@ -44,21 +48,25 @@
Color%
Color-Database<%>
DC<%>
DC-Path%
Font%
Font-List%
GL-Config%
GL-Context<%>
Linear-Gradient%
PDF-DC%
Pen%
Pen-List%
Pen-Style
Pen-Cap-Style
Pen-Join-Style
Point%
Post-Script-DC%
PS-Setup%
Radial-Gradient%
Record-DC%
Region%))
Region%
SVG-DC%))
(begin-for-syntax
(define -Bitmap% (parse-type #'Bitmap%))
@ -80,16 +88,22 @@
[brush% (parse-type #'Brush%)]
[brush-list% (parse-type #'Brush-List%)]
[color% (parse-type #'Color%)]
[dc-path% (parse-type #'DC-Path%)]
[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%)]
[pdf-dc% (parse-type #'PDF-DC%)]
[pen% (parse-type #'Pen%)]
[pen-list% (parse-type #'Pen-List%)]
[point% (parse-type #'Point%)]
[post-script-dc% (parse-type #'Post-Script-DC%)]
[ps-setup% (parse-type #'PS-Setup%)]
[radial-gradient% (parse-type #'Radial-Gradient%)]
[record-dc% (parse-type #'Record-DC%)]
[region% (parse-type #'Region%)]
[svg-dc% (parse-type #'SVG-DC%)]
;; 26 Drawing Functions
[current-ps-setup (-Param (-inst (parse-type #'PS-Setup%)))]
[get-face-list (->optkey [(one-of/c 'mono 'all)]

38
typed-racket-more/typed/racket/private/gui-types.rkt
View File

@ -19,22 +19,26 @@
Color%
Color-Database<%>
DC<%>
DC-Path%
Font%
Font-List%
Font-Name-Directory<%>
GL-Config%
GL-Context<%>
Linear-Gradient%
PDF-DC%
Pen%
Pen-List%
Pen-Style
Pen-Cap-Style
Pen-Join-Style
Point%
Post-Script-DC%
PS-Setup%
Radial-Gradient%
Record-DC%
Region%)
Region%
SVG-DC%)
(define-type LoadFileKind
(U 'unknown 'unknown/mask 'unknown/alpha
@ -506,6 +510,38 @@
[get-recorded-datum (-> Any)]
[get-recorded-procedure (-> (-> (Instance DC<%>) Void))]))
(define-type PDF-DC%
(Class #:implements DC<%>
(init [interactive Any #:optional]
[parent (Option (U (Instance Frame%) (Instance Dialog%)))
#:optional]
[use-paper-bbox Any #:optional]
[as-eps Any #:optional]
[width (Option Real) #:optional]
[height (Option Real) #:optional]
[output (U #f Path-String Output-Port) #:optional])))
(define-type Post-Script-DC%
(Class #:implements DC<%>
(init [interactive Any #:optional]
[parent (Option (U (Instance Frame%) (Instance Dialog%)))
#:optional]
[use-paper-bbox Any #:optional]
[as-eps Any #:optional]
[width (Option Real) #:optional]
[height (Option Real) #:optional]
[output (U #f Path-String Output-Port) #:optional])))
(define-type SVG-DC%
(Class #:implements DC<%>
(init [width Real]
[height Real]
[output (U Path-String Output-Port)]
[exists (U 'error 'append 'update 'can-update
'replace 'truncate
'must-truncate 'truncate/replace)
#:optional])))
(define-type Font-List%
(Class
[find-or-create-font