gtk: Name threads.

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index d503c803e3a4e0f86e4ae8beb0a03636673e196b..68d96b242e1572375f30efc84fd6769698275783 100644 (file)
--- 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)))
 \f
 
 (define %trace? #f)

diff --git a/src/gtk/swat.scm b/src/gtk/swat.scm
index 99427f2f2cb4b2b63a3c824bbe20b379c6de26f5..1dd54b2dd13109bd417cb3ffd7315517b65526f4 100644 (file)
--- 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))