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.
19 lines
486 B
Racket
19 lines
486 B
Racket
#lang racket/gui
|
|
|
|
(require mrlib/aligned-pasteboard)
|
|
|
|
(define f (new frame% [label "test"] [width 400] [height 500]))
|
|
(define pb1 (new vertical-pasteboard%))
|
|
(define ec (new aligned-editor-canvas%
|
|
[parent f] [editor pb1] [style '(no-hscroll)]))
|
|
|
|
(define pb2 (new vertical-pasteboard%))
|
|
(define es2 (new aligned-editor-snip% [editor pb2]))
|
|
|
|
(define t (new text%))
|
|
(define es3 (new editor-snip% [editor t]))
|
|
|
|
(send pb1 insert es2)
|
|
(send pb2 insert es3)
|
|
(send f show true)
|