14 lines
524 B
Racket
14 lines
524 B
Racket
(require
|
|
"../aligned-editor-container.rkt"
|
|
"../aligned-pasteboard.rkt")
|
|
|
|
(define f (new frame% (label "test") (width 200) (height 200)))
|
|
(define e (new vertical-pasteboard%))
|
|
(define c (new aligned-editor-canvas% (editor e) (parent f)))
|
|
(define pb (new vertical-pasteboard%))
|
|
(define s (new aligned-editor-snip% (editor pb) (stretchable-height #f) (stretchable-width #f)))
|
|
(send pb insert (make-object string-snip% "Long snip"))
|
|
(send pb insert (make-object string-snip% "Longer snip"))
|
|
(send e insert s)
|
|
(send f show #t)
|