From 30a67530a41ff41023ead80f5d56c2936e4b52c2 Mon Sep 17 00:00:00 2001
From: "kestes%walrus.com" <kestes%walrus.com>
Date: Mon, 3 Dec 2001 19:48:47 +0000
Subject: [PATCH] add support for text browser characters.

---
 webtools/tinderbox2/src/lib/HTMLPopUp.pm | 32 ++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

diff --git a/webtools/tinderbox2/src/lib/HTMLPopUp.pm b/webtools/tinderbox2/src/lib/HTMLPopUp.pm
index 63a78dbc4a9..1ca1dd2c2fb 100644
--- a/webtools/tinderbox2/src/lib/HTMLPopUp.pm
+++ b/webtools/tinderbox2/src/lib/HTMLPopUp.pm
@@ -12,8 +12,8 @@
 # the completed string before it is returned.
 
 
-# $Revision: 1.10 $ 
-# $Date: 2001-11-14 21:59:55 $ 
+# $Revision: 1.11 $ 
+# $Date: 2001-12-03 19:48:47 $ 
 # $Author: kestes%walrus.com $ 
 # $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp.pm,v $ 
 # $Name:  $ 
@@ -121,6 +121,34 @@ $DEFAULT_POPUP_WIDTH = 425;
 
 
 
+# People who use the text browser 'links'
+# (http://artax.karlin.mff.cuni.cz/~mikulas/links/) would like to
+# see colors in the tinderbox table cells. Links will not render
+# background colors but it will render foreground colors. So we
+# add characters in the same color as the background just for
+# these browsers, others will not see these characters because
+# they will disapear into the background color.
+
+sub text_browser_color_string {
+    my ($cell_color, $char) = @_;
+
+    my $cell_options;
+    if ( $cell_color ) {
+        $cell_options = "color=$cell_color";
+    }
+
+    my $out = (
+                
+                "<font $cell_options>".
+                "$char".
+                "</font>".
+                
+                "");
+
+    return $out;
+}
+
+
 # Turn a time in 'time() format' into a string suitable for html
 # printing. eg '05/31&nbsp;14:59'