From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 28 Aug 2017 18:25:44 +0000 (-0700)
Subject: gtk: Name threads.
X-Git-Tag: mit-scheme-pucked-9.2.12~84
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=280a2585c19cc35c5d336ef9f1ceb68d79e6e4ef;p=mit-scheme.git

gtk: Name threads.
---

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))