From b88d7f56a53577126d65c9a8ddaa1b715fae73d6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 7 May 2005 15:08:29 +0000 Subject: [PATCH] . original commit: aa353e6ab4cee042933cc418f42dcf4124b22ebf --- collects/tests/mred/editor.ss | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/collects/tests/mred/editor.ss b/collects/tests/mred/editor.ss index c7f4f0aa..5a0bd931 100644 --- a/collects/tests/mred/editor.ss +++ b/collects/tests/mred/editor.ss @@ -258,6 +258,19 @@ (send e insert crlf-s) (st lflf-s e get-text 0 'eof))) +;; ---------------------------------------- +;; Check lines and paras without display, but with a max width + +(define t (new text%)) +(send t insert "abc\ndef\nghi\n") +(send t set-max-width 955) +(st 0 t line-start-position 0) +(st 4 t line-start-position 1) +(st 8 t line-start-position 2) +(st 0 t paragraph-start-position 0) +(st 4 t paragraph-start-position 1) +(st 8 t paragraph-start-position 2) + ;; ---------------------------------------- (report-errs)