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

.

Browse Source 
original commit: aa353e6ab4cee042933cc418f42dcf4124b22ebf
This commit is contained in:
Matthew Flatt 2005-05-07 15:08:29 +00:00
parent b78ad419a8
commit b88d7f56a5
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/tests/mred/editor.ss
View File

@ -258,6 +258,19 @@
(send e insert crlf-s) (send e insert crlf-s)
(st lflf-s e get-text 0 'eof))) (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) (report-errs)