#lang scheme/gui
(require "../table-snip.ss")
;;;;;;;;;;;;;;;;
(define f (instantiate frame% ("example" #f 500 300) ))
(define c (new editor-canvas% [parent f]))
(define p (new pasteboard%))
(send c set-editor p)
(send f show #t)

(send p insert (new table-snip% (grid-width 0) (table '(("c")))) 10 80)
(send p insert (new table-snip% (grid-width 1) (table '(("c   ")))) 10 100)
(send p insert (new table-snip% (grid-width 0) (table '(("c      ")))) 10 120)
(send p insert (new table-snip% (grid-width 1) (table '(("c         ")))) 10 140)
(send p insert (new table-snip% (grid-width 0) (table '(("c            ")))) 10 160)

(send p insert (new table-snip%) 100 100)