From edeea4c6fa1a1d82e85ffb8aa36a7a6348ee2c9f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 21 Jan 2005 02:03:31 +0000
Subject: [PATCH] .

original commit: 7e35198bc9c42e8c6a02c77723f00b9fea5c1637
---
 collects/framework/private/color.ss  | 2 +-
 collects/framework/private/scheme.ss | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index b40f0f02..39e60cd4 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -30,7 +30,7 @@
               [-text-mode<%> text-mode<%>])
       
       (define -text<%>
-        (interface ()
+        (interface (text:basic<%>)
           start-colorer
           stop-colorer
           force-stop-colorer
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 8ef9853d..0c27676c 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -307,7 +307,7 @@
       (define-struct string/pos (string pos))
       
       (define -text<%>
-        (interface ()
+        (interface (text:basic<%> mode:host-text<%> color:text<%>)
           get-limit
           balance-parens
           tabify-on-return?