From 9dab47f689dd6e3ec6374cbb0ffb686e959a97d1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 22 Dec 2006 01:46:11 +0000 Subject: [PATCH] forgot to add new sig file with unit clean-up svn: r5162 --- collects/browser/private/sig.ss | 57 +++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 collects/browser/private/sig.ss diff --git a/collects/browser/private/sig.ss b/collects/browser/private/sig.ss new file mode 100644 index 0000000000..623b4aa358 --- /dev/null +++ b/collects/browser/private/sig.ss @@ -0,0 +1,57 @@ +(module sig mzscheme + (require (lib "unit.ss")) + + (provide relative-btree^ + bullet-export^ + hyper^ + html-export^ + html^) + + (define-signature html-export^ + (html-img-ok + html-eval-ok + image-map-snip%)) + + (define-signature html^ extends html-export^ + (html-convert + html-status-handler)) + + (define-signature bullet-export^ + (bullet-size)) + + (define-signature hyper^ + (open-url + (struct exn:file-saved-instead (pathname)) + (struct exn:cancelled ()) + + hyper-text<%> + hyper-text-mixin + hyper-text% + + hyper-canvas-mixin + hyper-canvas% + + hyper-panel<%> + hyper-panel-mixin + hyper-panel% + + hyper-frame<%> + hyper-frame-mixin + hyper-frame% + + hyper-no-show-frame-mixin + hyper-no-show-frame% + + editor->page + page->editor)) + + (define-signature relative-btree^ + (make-btree + + btree-get + btree-put! + + btree-shift! + + btree-for-each + btree-map))) \ No newline at end of file