From 4deed7b44a6757cc7ae677ce6dae56048f98bf97 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 1 Aug 2008 14:32:47 -0500
Subject: [PATCH] help.stylesheet: Use color objects

---
 basis/help/stylesheet/stylesheet.factor | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/basis/help/stylesheet/stylesheet.factor b/basis/help/stylesheet/stylesheet.factor
index 68810e2369..50357db8cf 100755
--- a/basis/help/stylesheet/stylesheet.factor
+++ b/basis/help/stylesheet/stylesheet.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2005, 2006 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io.styles namespaces ;
+USING: io.styles namespaces colors ;
 IN: help.stylesheet
 
 SYMBOL: default-span-style
@@ -17,7 +17,7 @@ H{
 
 SYMBOL: link-style
 H{
-    { foreground { 0 0 0.3 1 } }
+    { foreground T{ rgba f 0 0 0.3 1 } }
     { font-style bold }
 } link-style set-global
 
@@ -33,7 +33,7 @@ H{
     { font-size 18 }
     { font-style bold }
     { wrap-margin 500 }
-    { page-color { 0.8 0.8 0.8 1 } }
+    { page-color T{ rgba f 0.8 0.8 0.8 1 } }
     { border-width 5 }
 } title-style set-global
 
@@ -58,12 +58,12 @@ SYMBOL: snippet-style
 H{
     { font "monospace" }
     { font-size 12 }
-    { foreground { 0.1 0.1 0.4 1 } }
+    { foreground T{ rgba f 0.1 0.1 0.4 1 } }
 } snippet-style set-global
 
 SYMBOL: code-style
 H{
-    { page-color { 0.8 0.8 0.8 0.5 } }
+    { page-color T{ rgba f 0.8 0.8 0.8 0.5 } }
     { border-width 5 }
     { wrap-margin f }
 } code-style set-global
@@ -74,13 +74,13 @@ H{ { font-style bold } } input-style set-global
 SYMBOL: url-style
 H{
     { font "monospace" }
-    { foreground { 0.0 0.0 1.0 1.0 } }
+    { foreground T{ rgba f 0.0 0.0 1.0 1.0 } }
 } url-style set-global
 
 SYMBOL: warning-style
 H{
-    { page-color { 0.95 0.95 0.95 1 } }
-    { border-color { 1 0 0 1 } }
+    { page-color T{ rgba f 0.95 0.95 0.95 1 } }
+    { border-color T{ rgba f 1 0 0 1 } }
     { border-width 5 }
     { wrap-margin 500 }
 } warning-style set-global
@@ -93,7 +93,7 @@ H{
 SYMBOL: table-style
 H{
     { table-gap { 5 5 } }
-    { table-border { 0.8 0.8 0.8 1.0 } }
+    { table-border T{ rgba f 0.8 0.8 0.8 1.0 } }
 } table-style set-global
 
 SYMBOL: list-style