widget tree system should be operational - untested.

scsh/scgame/NEWS

@@ -1,2 +1,4 @@
 version 0.1
+* button widget  
+* widget tree system  
 * line drawing algorithm and xanadu file system

scsh/scgame/scgamewidgets.scm

@@ -59,6 +59,8 @@
 (define (widget-node-collide? node x y)
   (define (frec l)
     (cond ((null? l) #f)
+          ((list? (car l))
+           (frec (car l)))
           ((and (widget? (car l))
                 (>= x (((car l)'get-x)))
                 (<= x (+ (((car l)'get-x)))(((car l)'get-w)))