From 790f4465ff727f3210ae319c45a777a68ef3bf86 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Sat, 2 Oct 2010 15:21:17 +0200
Subject: [PATCH] - Updated the test file

---
 test-file/pret-pas_test.tex | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/test-file/pret-pas_test.tex b/test-file/pret-pas_test.tex
index aad23a8..c02732d 100644
--- a/test-file/pret-pas_test.tex
+++ b/test-file/pret-pas_test.tex
@@ -1,13 +1,15 @@
 \installprettytype[PAS][PAS]
-%\setupcolors[state=start]
-%\setuptyping[option=color]
 \definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
 %\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line, palet=]
 \setuplinenumbering[location=text]
 
 \starttext
+
+The first block shows all features of the Pascal pretty printer
+
 \startPAS
 { Comment }
+(* An alternative comment *)
 {$R- compiler directive }
 procedure TForm1.Button1.Click(Sender: TObject);
 var  // Delphi Comment
@@ -23,6 +25,8 @@ begin
 end;
 \stopPAS
 
+The next block shows some (more or less usefull) special cases.
+
 \startPAS
 My_Variable := _for;
 45My_Variable := _Variable45;
@@ -30,17 +34,17 @@ normal asm green for end normal For END
 normal aSM green foR eNd normal For END
 &for asm green
 end normal / normal
-{bold'bold}normal'blue
+{blue slanted'slanted}normal'blue
 normal'blue{blue}blue'Normal'blue
-asm green'gr{ee}n'{bold bold}green end
-{asm bold end}
+asm green'gr{ee}n'{blue slanted}green end
+{asm slanted end}
 normal'blue'Normal'Blue'nOrmal'bLue'noRmal
-normal {bold*) still bold
+normal {slanted*) still slanted
 still comment
 comment (* ends} normal
-normal (*bold} still bold
+normal (*slanted} still slanted
 still comment
 comment { ends*) normal
-normal {bold blue} normal {$bold red} normal
+normal {slanted blue} normal {$slanted red} normal
 \stopPAS
 \stoptext
\ No newline at end of file