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

Fixes for Robby's change to tooltip.rkt.

Browse Source 
* Add `get-size` to `Font%`.
* Relax types on `find-or-create-font` in line with docs.
* Add `basic-style` to `Style-List%`.
This commit is contained in:
Sam Tobin-Hochstadt 2015-07-01 00:00:58 -04:00
parent d1e17b04e8
commit d20c74e22a
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,4 +19,4 @@
(define pkg-authors '(samth stamourv))
(define version "1.1")
(define version "1.2")

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

@ -533,12 +533,12 @@
(define-type Font-List%
(Class
[find-or-create-font
(case-> (Integer (U Symbol String) Symbol Symbol -> (Instance Font%))
(Integer (U Symbol String) Symbol Symbol Any -> (Instance Font%))
(Integer (U Symbol String) Symbol Symbol Any Any -> (Instance Font%))
(Integer (U Symbol String) Symbol Symbol Any Any Any -> (Instance Font%))
(Integer (U Symbol String) Symbol Symbol Any Any Any Any -> (Instance Font%))
(Integer (U Symbol String) Symbol Symbol Any Any Any Any Font-Hinting -> (Instance Font%)))]))
(case-> (Real (U Symbol String) Symbol Symbol -> (Instance Font%))
(Real (U Symbol String) Symbol Symbol Any -> (Instance Font%))
(Real (U Symbol String) Symbol Symbol Any Any -> (Instance Font%))
(Real (U Symbol String) Symbol Symbol Any Any Any -> (Instance Font%))
(Real (U Symbol String) Symbol Symbol Any Any Any Any -> (Instance Font%))
(Real (U Symbol String) Symbol Symbol Any Any Any Any Font-Hinting -> (Instance Font%)))]))
(define-type Font-Family
(U 'default 'decorative 'roman 'script 'swiss
@ -580,6 +580,7 @@
[get-hinting (-> Font-Hinting)]
[get-point-size (-> Positive-Integer)]
[get-size-in-pixels (-> Boolean)]
[get-size (-> Nonnegative-Real)]
[get-smoothing (-> Font-Smoothing)]
[get-style (-> Font-Style)]
[get-underlined (-> Boolean)]
@ -2708,7 +2709,7 @@
(define-type Style-List%
(Class ; FIXME: this is a final method
; [basic-style (-> (Instance Style<%>))]
[basic-style (-> (Instance Style<%>))]
[convert ((Instance Style<%>) -> (Instance Style<%>))]
[find-named-style
(String -> (Option (Instance Style<%>)))]