more tests

original commit: 4b6a399fa2812b9350d4eb29aa6a6cb8bbfcf69e
1997-10-07 16:00:47 +00:00 · 1997-10-07 16:00:47 +00:00 · 65f74fc912
commit 65f74fc912
parent 06af15f3e2
1 changed files with 6 additions and 0 deletions
--- a/collects/hierlist/hierlist.ss
+++ b/collects/hierlist/hierlist.ss
@ -45,6 +45,12 @@
 				    (send (send (send d new-item) get-buffer) insert (number->string i))
 				    (loop (sub1 i)))))))

+(define x (send c new-list))
+(send (send x get-buffer) insert "x")
+
+(define y (send c new-item))
+(send (send y get-buffer) insert "y")
+
 (send f show #t)

 |#