X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration-ada__adb.htm;h=94dfa8af581896532d6b18c66fa6d9ed85660000;hp=346bc74149ec391a043a97e66b073fdf4553759a;hb=c55d387cebf1cee4757ca2c2ef4fbeae59ee4175;hpb=34d602f272c394e9a980438e636e1ce4d355f83b diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm index 346bc741..94dfa8af 100644 --- a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm +++ b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm @@ -68,18 +68,18 @@ I : Enumeration_Info (T'Pos (T'Last) - T'Pos (T'First) + 1); J : Positive := 1; begin - I.Case_Sensitive := Case_Sensitive; - I.Match_Must_Be_Unique := Must_Be_Unique; + I.Case_Sensitive := Case_Sensitive; + I.Match_Must_Be_Unique := Must_Be_Unique; for E in T'Range loop - I.Names (J) := new String'(T'Image (E)); + I.Names (J) := new String'(T'Image (E)); -- The Image attribute defaults to upper case, so we have to handle -- only the other ones... if Set /= Upper_Case then - I.Names (J).all := To_Lower (I.Names (J).all); + I.Names (J).all := To_Lower (I.Names (J).all); if Set = Mixed_Case then - I.Names (J).all (I.Names (J).all'First) := - To_Upper (I.Names (J).all (I.Names (J).all'First)); + I.Names (J).all (I.Names (J).all'First) := + To_Upper (I.Names (J).all (I.Names (J).all'First)); end if; end if; J := J + 1;