From 820dff9906af9969d8fe4b2a41a4f05e01b50558 Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Sat, 31 Dec 2005 08:54:12 +0000
Subject: [PATCH] Added an is-stopped? method as Robby requested.

svn: r1728
---
 collects/framework/private/color.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index cc0df1b960..84aeb4f9bf 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -34,6 +34,7 @@
           stop-colorer
           force-stop-colorer
           
+          is-stopped?
           is-frozen?
           freeze-colorer
           thaw-colorer
@@ -344,6 +345,7 @@
               (set! get-token #f)))
           
           (define/public (is-frozen?) frozen?)
+          (define/public (is-stopped?) stopped?)
           
           ;; See docs
           (define/public (freeze-colorer)