From 6d06dee5ad49d68f4c3d059f7d0b5020c8224974 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 3 Oct 1997 22:33:48 +0000 Subject: [PATCH] Initial revision original commit: dfd6fbf90927cda3de6fedb630f57fd8fca5e89e --- collects/hierlist/hierlist.ss | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 collects/hierlist/hierlist.ss diff --git a/collects/hierlist/hierlist.ss b/collects/hierlist/hierlist.ss new file mode 100644 index 00000000..4151e403 --- /dev/null +++ b/collects/hierlist/hierlist.ss @@ -0,0 +1,32 @@ + +(require-library "hierlists.ss" "hierlist") + +(invoke-open-unit/sig (require-library "hierlistr.ss" "hierlist") mred (mred : mred^)) + +#| + +;; Testing +(define f (make-object mred:frame% null "test")) +(define p (make-object mred:horizontal-panel% f)) +(define c (make-object (class-asi mred:hierarchical-list% + (public + [double-select + (lambda (s) + (printf "Selected: ~a~n" + (send (send s get-buffer) get-flattened-text)))])) + p)) + +(define a (send c new-list)) +(send (send a get-buffer) insert "First Item: List") +(send (send (send a new-item) get-buffer) insert "Sub1") +(send (send (send a new-item) get-buffer) insert "Sub2") +(define a.1 (send a new-list)) +(send (send a.1 get-buffer) insert "Deeper List") +(send (send (send a.1 new-item) get-buffer) insert "Way Down") + +(define b (send c new-item)) +(send (send b get-buffer) insert "Second Item") + +(send f show #t) + +|#