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

Fixup a typo in the definition of (make-font); Fixup the wrong definition of (get-filename); Provide editor-snip% with Editor-Snip%

Browse Source
This commit is contained in:
WarGrey Gyoudmon Ju 2016-03-31 09:46:04 +08:00 committed by Asumu Takikawa
parent 6dc5b1a994
commit bf24ebdd65
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,7 +140,7 @@
#:weight -Font-Weight #f
#:underlined? Univ #f
#:smoothing -Font-Smoothing #f
#:size-in-pizels? Univ #f
#:size-in-pixels? Univ #f
#:hinting -Font-Hinting #f
(-inst (parse-type #'Font%)))]
[make-monochrome-bitmap

1
typed-racket-more/typed/racket/gui/base.rkt
View File

@ -81,6 +81,7 @@
#:lock-while-reading? Univ #f
-Input-Port)]
;; Editor classes
[editor-snip% (parse-type #'Editor-Snip%)]
[editor-admin% (parse-type #'Editor-Admin%)]
[editor-canvas% (parse-type #'Editor-Canvas%)]
[editor-data% (parse-type #'Editor-Data%)]

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

@ -2111,7 +2111,7 @@
((Option (Boxof Real)) (Option (Boxof Real)) -> Void)]
[get-file ((Option Path) -> (Option Path-String))]
[get-filename
((Option (Boxof Any)) -> (Option Path-String))]
(->* () ((Option (Boxof Any))) (Option Path-String))]
[get-flattened-text (-> String)]
[get-focus-snip (-> (Option (Instance Snip%)))]
[get-inactive-caret-threshold (-> (U 'no-caret 'show-inactive-caret 'show-caret))]