b8034828d0
1. Lots of #lang-ization, other racketizations, code improvements, etc. 2. Some files that were not working now do. 3. "collects/tests/aligned-pasteboard" had some files that were near duplicates of "collects/mrlib/private/aligned-pasteboard/tests". I've removed the former since in a few places it looked like an older version (eg, there were bogus references to a non-existent "utils.rkt"). The former has more files that are in runnable condition now. 4. There are plenty of tests that look like they're failing, but it wasn't shown since they just return #f, and when they were running with a "-f" these results weren't displayed. 5. I have no idea about the code, this is all just reshuffling and minor editing.
20 lines
754 B
Racket
20 lines
754 B
Racket
#lang racket/gui
|
|
|
|
(require "../aligned-pasteboard.rkt" "../aligned-editor-container.rkt")
|
|
|
|
(define f (new frame% (label "test")))
|
|
(define e (new text%))
|
|
(define c (new editor-canvas% (editor e) (parent f)))
|
|
(define pb (new vertical-pasteboard%))
|
|
(define actual (new text%))
|
|
(define act-line (new aligned-editor-snip% (editor (new vertical-pasteboard%))))
|
|
(define t (new aligned-editor-snip% (editor pb)))
|
|
(send e insert t)
|
|
(send* pb (begin-edit-sequence) (insert act-line #f) (end-edit-sequence))
|
|
|
|
;; Eli: for some reason, this used to pass the result into this
|
|
;; function:
|
|
;; (define (converges? x) #t)
|
|
;; I take it that the requirement is that it finishes after some time,
|
|
;; so there's no need for the function.
|