Lines Matching full:current

57    normal, current : Attributed_Character;  variable
78       current := normal;
79       current.Attr.Bold_Character := not current.Attr.Bold_Character;
80       Set_Background (Ch => current);
83       current := normal;
84       current.Attr.Under_Line := not current.Attr.Under_Line;
85       Set_Background (Ch => current);
88       current := normal;
89       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
90       current.Attr.Under_Line := not current.Attr.Under_Line;
91       Set_Background (Ch => current);
94       current := normal;
95       current.Attr.Blink := not current.Attr.Blink;
96       Set_Background (Ch => current);
99       current := normal;
100       current.Attr.Blink  := not current.Attr.Blink;
101       current.Attr.Bold_Character := not current.Attr.Bold_Character;
102       Set_Background (Ch => current);
105       current := normal;
106       current.Attr.Under_Line  := not current.Attr.Under_Line;
107       current.Attr.Blink := not current.Attr.Blink;
108       Set_Background (Ch => current);
111       current := normal;
112       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
113       current.Attr.Under_Line  := not current.Attr.Under_Line;
114       current.Attr.Blink := not current.Attr.Blink;
115       Set_Background (Ch => current);
118       current := normal;
119       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
120       Set_Background (Ch => current);
123       current := normal;
124       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
125       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
126       Set_Background (Ch => current);
129       current := normal;
130       current.Attr.Under_Line  := not current.Attr.Under_Line;
131       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
132       Set_Background (Ch => current);
135       current := normal;
136       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
137       current.Attr.Under_Line  := not current.Attr.Under_Line;
138       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
139       Set_Background (Ch => current);
142       current := normal;
143       current.Attr.Blink  := not current.Attr.Blink;
144       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
145       Set_Background (Ch => current);
148       current := normal;
149       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
150       current.Attr.Blink  := not current.Attr.Blink;
151       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
152       Set_Background (Ch => current);
155       current := normal;
156       current.Attr.Under_Line  := not current.Attr.Under_Line;
157       current.Attr.Blink  := not current.Attr.Blink;
158       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
159       Set_Background (Ch => current);
162       current := normal;
163       current.Attr.Bold_Character  := not current.Attr.Bold_Character;
164       current.Attr.Under_Line  := not current.Attr.Under_Line;
165       current.Attr.Blink  := not current.Attr.Blink;
166       current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
167       Set_Background (Ch => current);