gui/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss
Mike MacHenry 0224d867e8 committing the tests
original commit: 50b959c7b9f52ad4f1542908078f1fdf0a9f357b
2003-12-15 18:57:25 +00:00

4 lines
192 B
Scheme

(require (lib "aligned-pasteboard.ss" "mrlib"))
(with-handlers ([exn? (lambda (x) #f)])
(send (new pasteboard%) insert (new aligned-editor-snip% (editor (new horizontal-pasteboard%))))
#t)