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.
24 lines
718 B
Racket
24 lines
718 B
Racket
#lang racket/gui
|
|
|
|
(require mrlib/aligned-pasteboard)
|
|
|
|
(define frame (new frame% [label "big-min"] [width 400] [height 500]))
|
|
(define test-suite (new vertical-pasteboard%))
|
|
(new aligned-editor-canvas% [parent frame] [editor test-suite])
|
|
|
|
(define top-string #f)
|
|
|
|
(define (new*)
|
|
(define main-pb (new horizontal-pasteboard%))
|
|
(define pb (new vertical-pasteboard%))
|
|
(define snip (new aligned-editor-snip% [editor pb]))
|
|
(define string (make-object string-snip% "Testing String Snip"))
|
|
(set! top-string string)
|
|
(send main-pb insert snip false)
|
|
(send main-pb insert string false)
|
|
(new aligned-editor-snip% [editor main-pb]))
|
|
|
|
(send frame show #t)
|
|
(define (add) (send test-suite insert (new*)))
|
|
(add)
|