improve (get-text) of Text% to accept another two arguments (#499)

This commit is contained in:
WarGrey Gyoudmon Ju 2017-02-01 19:24:07 +08:00 committed by Sam Tobin-Hochstadt
parent 6334dfb939
commit 294032c12e

View File

@ -1838,7 +1838,7 @@
((Option (Boxof Integer)) (Option (Boxof Real)) -> (Listof Real))
((Option (Boxof Integer)) (Option (Boxof Real))
(Option (Boxof Any)) -> (Listof Real)))]
[get-text (Integer (U Integer 'eof) -> String)]
[get-text (->* () (Integer (U Integer 'eof) Any Any) String)]
[get-top-line-base (-> Nonnegative-Real)]
[get-visible-line-range
(case-> ((Option (Boxof Integer)) (Option (Boxof Real)) -> Void)