From a6d45f93725784084976c8b1508ae3b0c7ca1ee5 Mon Sep 17 00:00:00 2001
From: gferg <>
Date: Tue, 17 Jul 2001 14:42:42 +0000
Subject: [PATCH] fix for green/black <screen> tag; made it light gray shading
 with black text in a table that has a border of 1 (vs. 0)

---
 LDP/builder/dsssl/ldp.dsl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/LDP/builder/dsssl/ldp.dsl b/LDP/builder/dsssl/ldp.dsl
index 7442639c..2c8adece 100644
--- a/LDP/builder/dsssl/ldp.dsl
+++ b/LDP/builder/dsssl/ldp.dsl
@@ -280,8 +280,9 @@
 ;;
 (define (shade-verbatim-element-colors element)
   (case element
-    (("SYNOPSIS") (list "#000000" "#6495ed"))
-    (("PROGRAMLISTING") (list "#000000" "#98FB98"))
+    (("SYNOPSIS") (list "#000000" "#6495ED"))
+    (("PROGRAMLISTING") (list "#000000" "#E0E0E0"))
+    (("SCREEN") (list "#000000" "#E0E0E0"))
     ;; ...
     ;; Add your verbatim elements here
     ;; ...
@@ -289,7 +290,10 @@
 
 (define (shade-verbatim-attr-element element)
   (list
-   (list "BORDER" "0")
+   (list "BORDER" 
+	(cond
+		((equal? element (normalize "SCREEN")) "1")
+		(else "0")))
    (list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
    (list "WIDTH" ($table-width$))))