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