From 6d608e392c301cfcff4529445a74788745ad79cc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Oct 2011 06:03:10 -0600 Subject: [PATCH] add missing test for text% tab fix Merge to 5.2 --- collects/tests/gracket/wxme.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/collects/tests/gracket/wxme.rkt b/collects/tests/gracket/wxme.rkt index 2315916b51..c8da28eeaa 100644 --- a/collects/tests/gracket/wxme.rkt +++ b/collects/tests/gracket/wxme.rkt @@ -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)