From 280a2585c19cc35c5d336ef9f1ceb68d79e6e4ef Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 28 Aug 2017 11:25:44 -0700 Subject: [PATCH] gtk: Name threads. --- src/gtk/fix-demo.scm | 6 ++++-- src/gtk/swat.scm | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm index d503c803e..68d96b242 100644 --- a/src/gtk/fix-demo.scm +++ b/src/gtk/fix-demo.scm @@ -301,7 +301,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (let ((widgets (fix-drawing-widgets drawing))) (if (null? widgets) (%trace ";spinning ended\n") - (loop (modulo (fix:1+ frame) frames))))))))) + (loop (modulo (fix:1+ frame) frames))))))) + (list 'spin drawing))) (define (start-blinking drawing) (let ((thread (create-blinker drawing))) @@ -332,7 +333,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (cdr cursor.widgets))) (demo-drawing-cursor-inks drawing)) (loop) - (%trace ";blinking ended\n")))))) + (%trace ";blinking ended\n")))) + (list 'blink drawing))) (define %trace? #f) diff --git a/src/gtk/swat.scm b/src/gtk/swat.scm index 99427f2f2..1dd54b2dd 100644 --- a/src/gtk/swat.scm +++ b/src/gtk/swat.scm @@ -409,7 +409,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (else (handle event))))) (%trace "thread done") - (stop-current-thread)))) + (stop-current-thread)) + 'swat)) (define (handle-event key canvas x y) (or (let* ((handlers (swat-canvas-swat-handlers canvas)) -- 2.25.1