scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

widget tree system should be operational - untested.

This commit is contained in:
Johan Ceuppens 2012-01-17 01:46:39 +00:00
parent 7a847a3746
commit 8b3942a1be
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/scgame/NEWS
View File

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

2
scsh/scgame/scgamewidgets.scm
View File

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