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

Add record-dc% in typed/racket/draw

Browse Source
This commit is contained in:
Asumu Takikawa 2015-03-26 23:07:07 -04:00
parent 718bc82b5d
commit f758a6ed42
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,6 +27,7 @@
racket/draw/private/color
racket/draw/private/font
racket/draw/private/pen
racket/draw/private/record-dc
racket/draw/private/region)
LoadFileKind
Font-Family
@ -56,6 +57,7 @@
Point%
PS-Setup%
Radial-Gradient%
Record-DC%
Region%))
(begin-for-syntax
@ -86,6 +88,7 @@
[pen% (parse-type #'Pen%)]
[ps-setup% (parse-type #'PS-Setup%)]
[radial-gradient% (parse-type #'Radial-Gradient%)]
[record-dc% (parse-type #'Record-DC%)]
[region% (parse-type #'Region%)]
;; 26 Drawing Functions
[current-ps-setup (-Param (-inst (parse-type #'PS-Setup%)))]

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

@ -33,6 +33,7 @@
Point%
PS-Setup%
Radial-Gradient%
Record-DC%
Region%)
(define-type LoadFileKind
@ -498,6 +499,13 @@
[set-bitmap ((Option (Instance Bitmap%)) -> Void)]
[set-pixel (Real Real (Instance Color%) -> Boolean)]))
(define-type Record-DC%
(Class #:implements DC<%>
(init [width Real #:optional]
[height Real #:optional])
[get-recorded-datum (-> Any)]
[get-recorded-procedure (-> (-> (Instance DC<%>) Void))]))
(define-type Font-List%
(Class
[find-or-create-font