From a3ed282a27bb2001c6106c2be23eeb0d382ff212 Mon Sep 17 00:00:00 2001
From: Johan Ceuppens <jceuppen@vub.ac.be>
Date: Tue, 17 Jan 2012 00:43:11 +0000
Subject: [PATCH] button press event

---
 scsh/scgame/scgamewidgets.scm | 33 ++++++++++++++++++++++++++++-----
 1 file changed, 28 insertions(+), 5 deletions(-)

diff --git a/scsh/scgame/scgamewidgets.scm b/scsh/scgame/scgamewidgets.scm
index 1e6c5b4..b628f85 100644
--- a/scsh/scgame/scgamewidgets.scm
+++ b/scsh/scgame/scgamewidgets.scm
@@ -30,6 +30,8 @@
 
 ;; for inits see scgame.scm
 
+;; FIXME refactor and cleanup
+
 (define (make-scgame-widget)
   (define (draw)
     (display-msg "subclass responsability"))
@@ -61,17 +63,38 @@
         (set! height (cadr wh))
         ))
 
-    (define (draw-pressed-image dpy win gc)
+    (define (press-button dpy win gc)
       (init-sync-x-events dpy)
       (map-window dpy win)
       (call-with-event-channel
-       dpy win (event-mask exposure button-press)
+       dpy win (event-mask button-press)
        (lambda (channel)
          (let loop ()
            (if
             (let ((e (receive channel)))
               (cond
-               ((expose-event? e)
+               ((button-press-event? e)
+                (clear-window dpy win)
+                (draw-pressed-image dpy win gc)
+                )
+               ((button-release-event? e)
+                (clear-window dpy win)
+                (draw-image dpy win gc)
+                )
+               (else #f)))
+            (loop))))))
+
+    (define (draw-pressed-image dpy win gc)
+      (init-sync-x-events dpy)
+      (map-window dpy win)
+      (call-with-event-channel
+       dpy win (event-mask exposure)
+       (lambda (channel)
+         (let loop ()
+           (if
+            (let ((e (receive channel)))
+              (cond
+               ((or (expose-event? e)(map-event? e))
                 (clear-window dpy win)
                 (draw-points dpy win gc (* width height) 0 0
                              (/ width 2) (/ height 2))
@@ -84,13 +107,13 @@
       (init-sync-x-events dpy)
       (map-window dpy win)
       (call-with-event-channel
-       dpy win (event-mask exposure button-press)
+       dpy win (event-mask exposure map)
        (lambda (channel)
          (let loop ()
            (if
             (let ((e (receive channel)))
               (cond
-               ((expose-event? e)
+               ((or (expose-event? e)(map-event? e))
                 (clear-window dpy win)
                 (draw-points dpy win gc (* width height) 0 0
                              (/ width 2) (/ height 2))