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.
|