From 36da85834f459d410e85dd9fd595121ab17d253b Mon Sep 17 00:00:00 2001 From: frese Date: Mon, 5 May 2003 14:46:32 +0000 Subject: [PATCH] changed button-message to be sent on button-release --- src/button.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/button.scm b/src/button.scm index 2a43c09..4ecf76d 100644 --- a/src/button.scm +++ b/src/button.scm @@ -3,7 +3,7 @@ (up-colors colors '("gray" "white" "black" "black")) (down-colors colors '("gray" "black" "white" "black")) (font font "-*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*") - (content sexp 'none) ;; string | 'kill | 'iconize | 'maximize + (content sexp 'none) ;; string | 'kill | 'iconify | 'maximize ) (define-record-type button :button @@ -49,10 +49,10 @@ (button-event-type e)) (begin (draw-button button gc 'down) - (send out-channel (list message (button-event-time e))) (loop 'down)) (begin (draw-button button gc 'up) + (send out-channel (list message (button-event-time e))) (loop 'up)))) (else (loop state))))) (free-gc dpy gc) @@ -106,7 +106,7 @@ (foreground (fourth colors)))) (draw-line dpy window gc bw bw (- ww (* 2 bw)) (- wh (* bw 2))) (draw-line dpy window gc bw (- wh (* bw 2)) (- ww (* bw 2)) bw)) - ((iconize) + ((iconify) (change-gc dpy gc (make-gc-value-alist (line-width bw)