CVS difference for arm/progs/arm_indx.adb

Differences between 1.10 and version 1.11
Log of other versions for file arm/progs/arm_indx.adb

--- arm/progs/arm_indx.adb	2007/02/16 07:27:15	1.10
+++ arm/progs/arm_indx.adb	2007/12/20 07:43:33	1.11
@@ -58,6 +58,7 @@
     --  2/17/06 - RLB - Added Remove_Soft_Hyphens flag to Clean (for output).
     --  9/22/06 - RLB - Changed to use Clause_Number_Type.
     --  2/13/07 - RLB - Changed Start_Paragraph to use explicit indents.
+    -- 12/19/07 - RLB - Revised Text_Format calls.
 
     Next_Index_Key : Index_Key;
 
@@ -348,12 +349,20 @@
 	procedure Italic_Text (Text : in String) is
 	begin
 	    ARM_Output.Text_Format (Output_Object,
-		   Bold => False, Italic => True, Font => ARM_Output.Default,
-		   Size => 0, Change => ARM_Output.None, Location => ARM_Output.Normal);
+		   Format => (Bold => False, Italic => True,
+			      Font => ARM_Output.Default,
+		   	      Size => 0, Color => ARM_Output.Default,
+			      Change => ARM_Output.None,
+			      Version | Added_Version => '0',
+			      Location => ARM_Output.Normal));
             ARM_Output.Ordinary_Text (Output_Object, Text);
 	    ARM_Output.Text_Format (Output_Object,
-		   Bold => False, Italic => False, Font => ARM_Output.Default,
-		   Size => 0, Change => ARM_Output.None, Location => ARM_Output.Normal);
+		   Format => (Bold => False, Italic => False,
+			      Font => ARM_Output.Default,
+		   	      Size => 0, Color => ARM_Output.Default,
+			      Change => ARM_Output.None,
+			      Version | Added_Version => '0',
+			      Location => ARM_Output.Normal));
 	end Italic_Text;
 
 	procedure Term_Text (Text : in String) is
@@ -834,13 +843,21 @@
 		if To_Lower(Temp.Term(1)) in 'a' .. 'z' then
 		    ARM_Output.Index_Line_Break (Output_Object, Clear_Keep_with_Next => False);
 		    ARM_Output.Text_Format (Output_Object,
-			   Bold => True, Italic => False, Font => ARM_Output.Default,
-			   Size => 2, Change => ARM_Output.None, Location => ARM_Output.Normal);
+			   Format => (Bold => True, Italic => False,
+				      Font => ARM_Output.Default,
+			   	      Size => 2, Color => ARM_Output.Default,
+				      Change => ARM_Output.None,
+				      Version | Added_Version => '0',
+				      Location => ARM_Output.Normal));
 		    ARM_Output.Ordinary_Character (Output_Object,
 			Ada.Characters.Handling.To_Upper(Temp.Term(1)));
 		    ARM_Output.Text_Format (Output_Object,
-			   Bold => False, Italic => False, Font => ARM_Output.Default,
-			   Size => 0, Change => ARM_Output.None, Location => ARM_Output.Normal);
+			   Format => (Bold => False, Italic => False,
+				      Font => ARM_Output.Default,
+			   	      Size => 0, Color => ARM_Output.Default,
+				      Change => ARM_Output.None,
+				      Version | Added_Version => '0',
+				      Location => ARM_Output.Normal));
 		    ARM_Output.Index_Line_Break (Output_Object, Clear_Keep_with_Next => False);
 		else
 		    ARM_Output.Hard_Space (Output_Object);

Questions? Ask the ACAA Technical Agent