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

add missing test for text% tab fix

Browse Source 
Merge to 5.2
(cherry picked from commit 6d608e392c)
This commit is contained in:
Matthew Flatt 2011-10-13 06:03:10 -06:00 committed by Eli Barzilay
parent ff34ed4f0a
commit d02d7aae97
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/gracket/wxme.rkt
View File

@ -1414,6 +1414,16 @@
(expect (send t paragraph-end-position 3) 9)
(expect (send t line-end-position 3) 9))
;; ----------------------------------------
;; tabs
(let ([t1 (new text%)])
(send t1 set-admin (new test-editor-admin%))
(send t1 set-tabs '(100 200 300 400 500 600 700 800 900 1000 100) 1 #t)
(send t1 insert "Hello\tWorld")
(send t1 get-extent (box 0) (box 0)))
;; ----------------------------------------
(done)