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

add Text% type, new function

Browse Source 
svn: r13536
This commit is contained in:
Sam Tobin-Hochstadt 2009-02-12 19:55:02 +00:00
parent d169b427d6
commit 80c8ac3b5f
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/typed/mred/mred.ss
View File

@ -44,6 +44,24 @@
[draw-text (String Number Number -> Void)]))) [draw-text (String Number Number -> Void)])))
(dt Color% (Class () () ([red (-> Number)]))) (dt Color% (Class () () ([red (-> Number)])))
(dt Text% (Class ()
()
([begin-edit-sequence (-> Void)]
[end-edit-sequence (-> Void)]
[lock (Boolean -> Void)]
[last-position (-> Number)]
[last-paragraph (-> Number)]
[delete (Number Number -> Void)]
[auto-wrap (Any -> Void)]
[paragraph-end-position (Number -> Integer)]
[paragraph-start-position (Number -> Integer)]
[get-start-position (-> Integer)]
[get-end-position (-> Integer)]
[while-unlocked ((-> Any) -> Any)]
[get-text (Integer (U Integer 'eof) -> String)]
[insert (String Number Number -> Void)])))
(require/typed/provide mred/mred (require/typed/provide mred/mred
[the-font-list (Instance Font-List%)] [the-font-list (Instance Font-List%)]
@ -57,5 +75,6 @@
[editor-canvas% Editor-Canvas%] [editor-canvas% Editor-Canvas%]
[bitmap-dc% Bitmap-DC%] [bitmap-dc% Bitmap-DC%]
[bitmap% Bitmap%] [bitmap% Bitmap%]
[color% Color%]) [color% Color%]
[open-input-text-editor ((Instance Text%) Integer (U 'end Integer) (Any -> Any) Any Any -> Input-Port)])