gui/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss
Mike MacHenry 82c83e1f83 added stretchable-editor-snips
original commit: 19ce29b34ee0fc6c9e4082c462e1cd51133c0be5
2003-12-16 22:05:58 +00:00

16 lines
529 B
Scheme

(require
(lib "class.ss")
(lib "mred.ss" "mred")
(lib "etc.ss")
"../aligned-pasteboard.ss"
"../aligned-editor-container.ss")
(define f (new frame% (label "") (width 400) (height 400)))
(define e (new horizontal-pasteboard%))
(define c (new aligned-editor-canvas% (parent f) (editor e)))
(define vp1 (new vertical-pasteboard%))
(define ae-snip1 (new aligned-editor-snip% (editor vp1)))
(define t-snip1 (new editor-snip% (editor (new text%))))
(send e insert ae-snip1 false)
(send vp1 insert t-snip1 false)
(send f show true)