~ubuntu-branches/debian/sid/ncurses/sid-200908151543 : revision 5

12

-- B O D Y --

13

-- --

14

------------------------------------------------------------------------------

15

16

-- --

17

-- Permission is hereby granted, free of charge, to any person obtaining a --

18

-- copy of this software and associated documentation files (the --

40

------------------------------------------------------------------------------

41

-- Author: Juergen Pfeifer, 1996

42

-- Version Control:

43

-- @Revision: 1.25 @

44

-- @Date: 2004/08/21 21:37:00 @

43

-- @Revision: 1.26 @

44

-- @Date: 2008/07/26 18:50:44 @

45

-- Binding Version 01.00

46

------------------------------------------------------------------------------

47

with Ada.Unchecked_Deallocation;

48

with Ada.Unchecked_Conversion;

49

50

with <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C; use <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C;

51

with <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C.Strings; use <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C.Strings;

52

with <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C.Pointers;

53

54

with <A HREF="terminal_interface__ads.htm#ref_41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;

55

56

package body <A HREF="terminal_interface__ads.htm#ref_41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A NAME="ref_51_40" HREF="terminal_interface-curses-forms__ads.htm#ref_48_35">Forms</A> is

57

58

use <A HREF="terminal_interface__ads.htm#ref_41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;

59

60

type <A NAME="ref_55_9">C_Field_Array</A> is array (Natural range <>) of aliased <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

61

package <A NAME="ref_56_12">F_Array</A> is new

62

<A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_55_9">C_Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>);

50

with <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C; use <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;

51

with <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings; use <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings;

52

with <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Pointers;

53

54

with <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;

55

56

package body <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A NAME="ref_51_40" HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A> is

57

58

use <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;

59

60

type C_Field_Array is array (Natural range <>) of aliased <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

61

package F_Array is new

62

<A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>, C_Field_Array, <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>);

63

64

------------------------------------------------------------------------------

65

-- |

67

-- |

68

-- subtype chars_ptr is Interfaces.C.Strings.chars_ptr;

69

70

function <A NAME="ref_65_13">FOS_2_CInt</A> is new

71

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>,

72

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>);

73

74

function <A NAME="ref_69_13">CInt_2_FOS</A> is new

75

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>,

76

<A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>);

77

78

function <A NAME="ref_73_13">FrmOS_2_CInt</A> is new

79

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>,

80

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>);

81

82

function <A NAME="ref_77_13">CInt_2_FrmOS</A> is new

83

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>,

84

<A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>);

85

86

procedure <A NAME="ref_81_14" HREF="terminal_interface-curses-forms__ads.htm#ref_276_14">Request_Name</A> (<A NAME="ref_81_28" HREF="terminal_interface-curses-forms__ads.htm#ref_276_28">Key</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A>;

70

function FOS_2_CInt is new

71

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>,

72

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>);

73

74

function CInt_2_FOS is new

75

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>,

76

<A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>);

77

78

function FrmOS_2_CInt is new

79

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>,

80

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>);

81

82

function CInt_2_FrmOS is new

83

Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>,

84

<A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>);

85

86

procedure <A NAME="ref_81_14" HREF="terminal_interface-curses-forms__ads.htm#ref_276_14">Request_Name</A> (<A NAME="ref_81_28" HREF="terminal_interface-curses-forms__ads.htm#ref_276_28">Key</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_142_12">Form_Request_Code</A>;

87

<A NAME="ref_82_33" HREF="terminal_interface-curses-forms__ads.htm#ref_277_28">Name</A> : out String)

88

is

89

function <A NAME="ref_84_16">Form_Request_Name</A> (<A NAME="ref_84_35">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

90

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_84_16">Form_Request_Name</A>, "form_request_name");

89

function <A NAME="ref_84_16">Form_Request_Name</A> (<A NAME="ref_84_35" HREF="terminal_interface-curses-forms__adb.htm#ref_84_16">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

90

pragma Import (C, Form_Request_Name, "form_request_name");

91

begin

92

<A HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_84_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_276_28">Key</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#ref_277_28">Name</A>);

93

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_276_14">Request_Name</A>;

94

95

function <A NAME="ref_90_13" HREF="terminal_interface-curses-forms__ads.htm#ref_279_14">Request_Name</A> (<A NAME="ref_90_27" HREF="terminal_interface-curses-forms__ads.htm#ref_279_28">Key</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A>) return String

95

function <A NAME="ref_90_13" HREF="terminal_interface-curses-forms__ads.htm#ref_279_14">Request_Name</A> (<A NAME="ref_90_27" HREF="terminal_interface-curses-forms__ads.htm#ref_279_28">Key</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_142_12">Form_Request_Code</A>) return String

96

is

97

function <A NAME="ref_92_16">Form_Request_Name</A> (<A NAME="ref_92_35">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

98

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_92_16">Form_Request_Name</A>, "form_request_name");

97

function <A NAME="ref_92_16">Form_Request_Name</A> (<A NAME="ref_92_35" HREF="terminal_interface-curses-forms__adb.htm#ref_92_16">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

98

pragma Import (C, Form_Request_Name, "form_request_name");

99

begin

100

return <A HREF="terminal_interface-curses-aux__ads.htm#ref_121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_92_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_279_28">Key</A>)));

101

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_279_14">Request_Name</A>;

115

<A NAME="ref_110_21" HREF="terminal_interface-curses-forms__ads.htm#ref_295_21">Top</A> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>;

116

<A NAME="ref_111_21" HREF="terminal_interface-curses-forms__ads.htm#ref_296_21">Left</A> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>;

117

<A NAME="ref_112_21" HREF="terminal_interface-curses-forms__ads.htm#ref_297_21">Off_Screen</A> : Natural := 0;

118

<A NAME="ref_113_21" HREF="terminal_interface-curses-forms__ads.htm#ref_298_21">More_Buffers</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A>'First)

119

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>

118

<A NAME="ref_113_21" HREF="terminal_interface-curses-forms__ads.htm#ref_298_21">More_Buffers</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A>'First)

119

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>

120

is

121

function <A NAME="ref_116_16">Newfield</A> (<A NAME="ref_116_26">H</A>, <A NAME="ref_116_29">W</A>, <A NAME="ref_116_32">T</A>, <A NAME="ref_116_35">L</A>, <A NAME="ref_116_38">O</A>, <A NAME="ref_116_41">M</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

122

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">Newfield</A>, "new_field");

123

<A NAME="ref_118_7">Fld</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">Newfield</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_293_21">Height</A>), <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_294_21">Width</A>),

121

function <A NAME="ref_116_16">Newfield</A> (<A NAME="ref_116_26" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">H</A>, <A NAME="ref_116_29" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">W</A>, <A NAME="ref_116_32" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">T</A>, <A NAME="ref_116_35" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">L</A>, <A NAME="ref_116_38" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">O</A>, <A NAME="ref_116_41" HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">M</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

122

pragma Import (C, Newfield, "new_field");

123

<A NAME="ref_118_7">Fld</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_116_16">Newfield</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_293_21">Height</A>), <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_294_21">Width</A>),

124

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_295_21">Top</A>), <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_296_21">Left</A>),

125

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_297_21">Off_Screen</A>),

126

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_298_21">More_Buffers</A>));

127

begin

128

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_118_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

128

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_118_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

129

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

130

end if;

131

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_118_7">Fld</A>;

133

-- |

134

-- |

135

-- |

136

procedure <A NAME="ref_131_14" HREF="terminal_interface-curses-forms__ads.htm#ref_315_14">Delete</A> (<A NAME="ref_131_22" HREF="terminal_interface-curses-forms__ads.htm#ref_315_22">Fld</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>)

136

procedure <A NAME="ref_131_14" HREF="terminal_interface-curses-forms__ads.htm#ref_315_14">Delete</A> (<A NAME="ref_131_22" HREF="terminal_interface-curses-forms__ads.htm#ref_315_22">Fld</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>)

137

is

138

function <A NAME="ref_133_16">Free_Field</A> (<A NAME="ref_133_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

139

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_133_16">Free_Field</A>, "free_field");

138

function <A NAME="ref_133_16">Free_Field</A> (<A NAME="ref_133_28" HREF="terminal_interface-curses-forms__adb.htm#ref_133_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

139

pragma Import (C, Free_Field, "free_field");

140

141

<A NAME="ref_136_7">Res</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

142

begin

144

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_136_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> then

145

<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_136_7">Res</A>);

146

end if;

147

<A HREF="terminal_interface-curses-forms__ads.htm#ref_315_22">Fld</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>;

147

<A HREF="terminal_interface-curses-forms__ads.htm#ref_315_22">Fld</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>;

148

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_315_14">Delete</A>;

149

-- |

150

-- |

151

-- |

152

function <A NAME="ref_147_13" HREF="terminal_interface-curses-forms__ads.htm#ref_321_13">Duplicate</A> (<A NAME="ref_147_24" HREF="terminal_interface-curses-forms__ads.htm#ref_321_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

152

function <A NAME="ref_147_13" HREF="terminal_interface-curses-forms__ads.htm#ref_321_13">Duplicate</A> (<A NAME="ref_147_24" HREF="terminal_interface-curses-forms__ads.htm#ref_321_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

153

<A NAME="ref_148_24" HREF="terminal_interface-curses-forms__ads.htm#ref_322_24">Top</A> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>;

154

<A NAME="ref_149_24" HREF="terminal_interface-curses-forms__ads.htm#ref_323_24">Left</A> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>

154

<A NAME="ref_149_24" HREF="terminal_interface-curses-forms__ads.htm#ref_323_24">Left</A> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>

155

is

156

function <A NAME="ref_151_16">Dup_Field</A> (<A NAME="ref_151_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

157

<A NAME="ref_152_27">Top</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

158

<A NAME="ref_153_27">Left</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

159

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Dup_Field</A>, "dup_field");

156

function <A NAME="ref_151_16">Dup_Field</A> (<A NAME="ref_151_27" HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

157

<A NAME="ref_152_27" HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Top</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

158

<A NAME="ref_153_27" HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Left</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

159

pragma Import (C, Dup_Field, "dup_field");

160

161

<A NAME="ref_156_7">F</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Dup_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_321_24">Fld</A>,

161

<A NAME="ref_156_7">F</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_151_16">Dup_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_321_24">Fld</A>,

162

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_322_24">Top</A>),

163

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_323_24">Left</A>));

164

begin

165

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_156_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

165

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_156_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

166

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

167

end if;

168

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_156_7">F</A>;

170

-- |

171

-- |

172

-- |

173

function <A NAME="ref_168_13" HREF="terminal_interface-curses-forms__ads.htm#ref_328_13">Link</A> (<A NAME="ref_168_19" HREF="terminal_interface-curses-forms__ads.htm#ref_328_19">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

173

function <A NAME="ref_168_13" HREF="terminal_interface-curses-forms__ads.htm#ref_328_13">Link</A> (<A NAME="ref_168_19" HREF="terminal_interface-curses-forms__ads.htm#ref_328_19">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

174

<A NAME="ref_169_19" HREF="terminal_interface-curses-forms__ads.htm#ref_329_19">Top</A> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>;

175

<A NAME="ref_170_19" HREF="terminal_interface-curses-forms__ads.htm#ref_330_19">Left</A> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>

175

<A NAME="ref_170_19" HREF="terminal_interface-curses-forms__ads.htm#ref_330_19">Left</A> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>

176

is

177

function <A NAME="ref_172_16">Lnk_Field</A> (<A NAME="ref_172_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

178

<A NAME="ref_173_27">Top</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

179

<A NAME="ref_174_27">Left</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

180

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Lnk_Field</A>, "link_field");

177

function <A NAME="ref_172_16">Lnk_Field</A> (<A NAME="ref_172_27" HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

178

<A NAME="ref_173_27" HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Top</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

179

<A NAME="ref_174_27" HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Left</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

180

pragma Import (C, Lnk_Field, "link_field");

181

182

<A NAME="ref_177_7">F</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Lnk_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_328_19">Fld</A>,

182

<A NAME="ref_177_7">F</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_172_16">Lnk_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_328_19">Fld</A>,

183

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_329_19">Top</A>),

184

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_330_19">Left</A>));

185

begin

186

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_177_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

186

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_177_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

187

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

188

end if;

189

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_177_7">F</A>;

195

-- |

196

-- |

197

-- |

198

procedure <A NAME="ref_193_14" HREF="terminal_interface-curses-forms__ads.htm#ref_339_14">Set_Justification</A> (<A NAME="ref_193_33" HREF="terminal_interface-curses-forms__ads.htm#ref_339_33">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

199

<A NAME="ref_194_33" HREF="terminal_interface-curses-forms__ads.htm#ref_340_33">Just</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field_Justification</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_33">None</A>)

198

procedure <A NAME="ref_193_14" HREF="terminal_interface-curses-forms__ads.htm#ref_339_14">Set_Justification</A> (<A NAME="ref_193_33" HREF="terminal_interface-curses-forms__ads.htm#ref_339_33">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

199

<A NAME="ref_194_33" HREF="terminal_interface-curses-forms__ads.htm#ref_340_33">Just</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Justification</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_62_33">None</A>)

200

is

201

function <A NAME="ref_196_16">Set_Field_Just</A> (<A NAME="ref_196_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

202

<A NAME="ref_197_32">Just</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

203

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_196_16">Set_Field_Just</A>, "set_field_just");

201

function <A NAME="ref_196_16">Set_Field_Just</A> (<A NAME="ref_196_32" HREF="terminal_interface-curses-forms__adb.htm#ref_196_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

202

<A NAME="ref_197_32" HREF="terminal_interface-curses-forms__adb.htm#ref_196_16">Just</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

203

pragma Import (C, Set_Field_Just, "set_field_just");

204

205

<A NAME="ref_200_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> :=

206

<A HREF="terminal_interface-curses-forms__adb.htm#ref_196_16">Set_Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_339_33">Fld</A>,

207

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field_Justification</A>'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#ref_340_33">Just</A>)));

207

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Justification</A>'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#ref_340_33">Just</A>)));

208

begin

209

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_200_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> then

210

<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_200_7">Res</A>);

213

-- |

214

-- |

215

-- |

216

function <A NAME="ref_211_13" HREF="terminal_interface-curses-forms__ads.htm#ref_345_13">Get_Justification</A> (<A NAME="ref_211_32" HREF="terminal_interface-curses-forms__ads.htm#ref_345_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field_Justification</A>

216

function <A NAME="ref_211_13" HREF="terminal_interface-curses-forms__ads.htm#ref_345_13">Get_Justification</A> (<A NAME="ref_211_32" HREF="terminal_interface-curses-forms__ads.htm#ref_345_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Justification</A>

217

is

218

function <A NAME="ref_213_16">Field_Just</A> (<A NAME="ref_213_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

219

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_213_16">Field_Just</A>, "field_just");

218

function <A NAME="ref_213_16">Field_Just</A> (<A NAME="ref_213_28" HREF="terminal_interface-curses-forms__adb.htm#ref_213_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

219

pragma Import (C, Field_Just, "field_just");

220

begin

221

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field_Justification</A>'Val (<A HREF="terminal_interface-curses-forms__adb.htm#ref_213_16">Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_345_32">Fld</A>));

221

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Justification</A>'Val (<A HREF="terminal_interface-curses-forms__adb.htm#ref_213_16">Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_345_32">Fld</A>));

222

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_345_13">Get_Justification</A>;

223

-- |

224

-- |=====================================================================

228

-- |

229

-- |

230

procedure <A NAME="ref_225_14" HREF="terminal_interface-curses-forms__ads.htm#ref_354_14">Set_Buffer</A>

231

(<A NAME="ref_226_7" HREF="terminal_interface-curses-forms__ads.htm#ref_355_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

232

<A NAME="ref_227_7" HREF="terminal_interface-curses-forms__ads.htm#ref_356_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A>'First;

231

(<A NAME="ref_226_7" HREF="terminal_interface-curses-forms__ads.htm#ref_355_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

232

<A NAME="ref_227_7" HREF="terminal_interface-curses-forms__ads.htm#ref_356_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A>'First;

233

<A NAME="ref_228_7" HREF="terminal_interface-curses-forms__ads.htm#ref_357_7">Str</A> : in String)

234

is

235

type <A NAME="ref_230_12">Char_Ptr</A> is access all <A HREF="interfac__ads.htm#ref_23_9">Interfaces</A>.C.char;

236

function <A NAME="ref_231_16">Set_Fld_Buffer</A> (<A NAME="ref_231_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

237

<A NAME="ref_232_34">Bufnum</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

238

<A NAME="ref_233_34">S</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_230_12">Char_Ptr</A>)

235

type <A NAME="ref_230_12">Char_Ptr</A> is access all <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.char;

236

function <A NAME="ref_231_16">Set_Fld_Buffer</A> (<A NAME="ref_231_32" HREF="terminal_interface-curses-forms__adb.htm#ref_231_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

237

<A NAME="ref_232_34" HREF="terminal_interface-curses-forms__adb.htm#ref_231_16">Bufnum</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

238

<A NAME="ref_233_34" HREF="terminal_interface-curses-forms__adb.htm#ref_231_16">S</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_230_12">Char_Ptr</A>)

239

return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

240

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_231_16">Set_Fld_Buffer</A>, "set_field_buffer");

240

pragma Import (C, Set_Fld_Buffer, "set_field_buffer");

241

242

<A NAME="ref_237_7">Txt</A> : char_array (0 .. <A HREF="terminal_interface-curses-forms__ads.htm#ref_357_7">Str</A>'Length);

243

<A NAME="ref_238_7">Len</A> : size_t;

253

-- |

254

-- |

255

procedure <A NAME="ref_250_14" HREF="terminal_interface-curses-forms__ads.htm#ref_362_14">Get_Buffer</A>

256

(<A NAME="ref_251_7" HREF="terminal_interface-curses-forms__ads.htm#ref_363_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

257

<A NAME="ref_252_7" HREF="terminal_interface-curses-forms__ads.htm#ref_364_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A>'First;

256

(<A NAME="ref_251_7" HREF="terminal_interface-curses-forms__ads.htm#ref_363_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

257

<A NAME="ref_252_7" HREF="terminal_interface-curses-forms__ads.htm#ref_364_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A>'First;

258

<A NAME="ref_253_7" HREF="terminal_interface-curses-forms__ads.htm#ref_365_7">Str</A> : out String)

259

is

260

function <A NAME="ref_255_16">Field_Buffer</A> (<A NAME="ref_255_30">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

261

<A NAME="ref_256_30">B</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

262

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_255_16">Field_Buffer</A>, "field_buffer");

260

function <A NAME="ref_255_16">Field_Buffer</A> (<A NAME="ref_255_30" HREF="terminal_interface-curses-forms__adb.htm#ref_255_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

261

<A NAME="ref_256_30" HREF="terminal_interface-curses-forms__adb.htm#ref_255_16">B</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

262

pragma Import (C, Field_Buffer, "field_buffer");

263

begin

264

<A HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_255_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_363_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_364_7">Buffer</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#ref_365_7">Str</A>);

265

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_362_14">Get_Buffer</A>;

266

267

function <A NAME="ref_262_13" HREF="terminal_interface-curses-forms__ads.htm#ref_368_13">Get_Buffer</A>

268

(<A NAME="ref_263_7" HREF="terminal_interface-curses-forms__ads.htm#ref_369_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

269

<A NAME="ref_264_7" HREF="terminal_interface-curses-forms__ads.htm#ref_370_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A>'First) return String

268

(<A NAME="ref_263_7" HREF="terminal_interface-curses-forms__ads.htm#ref_369_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

269

<A NAME="ref_264_7" HREF="terminal_interface-curses-forms__ads.htm#ref_370_7">Buffer</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A>'First) return String

270

is

271

function <A NAME="ref_266_16">Field_Buffer</A> (<A NAME="ref_266_30">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

272

<A NAME="ref_267_30">B</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

273

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_266_16">Field_Buffer</A>, "field_buffer");

271

function <A NAME="ref_266_16">Field_Buffer</A> (<A NAME="ref_266_30" HREF="terminal_interface-curses-forms__adb.htm#ref_266_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

272

<A NAME="ref_267_30" HREF="terminal_interface-curses-forms__adb.htm#ref_266_16">B</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return chars_ptr;

273

pragma Import (C, Field_Buffer, "field_buffer");

274

begin

275

return <A HREF="terminal_interface-curses-aux__ads.htm#ref_121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_266_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_369_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_370_7">Buffer</A>)));

276

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_368_13">Get_Buffer</A>;

277

-- |

278

-- |

279

-- |

280

procedure <A NAME="ref_275_14" HREF="terminal_interface-curses-forms__ads.htm#ref_376_14">Set_Status</A> (<A NAME="ref_275_26" HREF="terminal_interface-curses-forms__ads.htm#ref_376_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

280

procedure <A NAME="ref_275_14" HREF="terminal_interface-curses-forms__ads.htm#ref_376_14">Set_Status</A> (<A NAME="ref_275_26" HREF="terminal_interface-curses-forms__ads.htm#ref_376_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

281

<A NAME="ref_276_26" HREF="terminal_interface-curses-forms__ads.htm#ref_377_26">Status</A> : in Boolean := True)

282

is

283

function <A NAME="ref_278_16">Set_Fld_Status</A> (<A NAME="ref_278_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

284

<A NAME="ref_279_32">St</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

285

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_278_16">Set_Fld_Status</A>, "set_field_status");

283

function <A NAME="ref_278_16">Set_Fld_Status</A> (<A NAME="ref_278_32" HREF="terminal_interface-curses-forms__adb.htm#ref_278_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

284

<A NAME="ref_279_32" HREF="terminal_interface-curses-forms__adb.htm#ref_278_16">St</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

285

pragma Import (C, Set_Fld_Status, "set_field_status");

286

287

<A NAME="ref_282_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_278_16">Set_Fld_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_376_26">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#ref_377_26">Status</A>));

288

begin

293

-- |

294

-- |

295

-- |

296

function <A NAME="ref_291_13" HREF="terminal_interface-curses-forms__ads.htm#ref_382_13">Changed</A> (<A NAME="ref_291_22" HREF="terminal_interface-curses-forms__ads.htm#ref_382_22">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return Boolean

296

function <A NAME="ref_291_13" HREF="terminal_interface-curses-forms__ads.htm#ref_382_13">Changed</A> (<A NAME="ref_291_22" HREF="terminal_interface-curses-forms__ads.htm#ref_382_22">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return Boolean

297

is

298

function <A NAME="ref_293_16">Field_Status</A> (<A NAME="ref_293_30">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

299

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_293_16">Field_Status</A>, "field_status");

298

function <A NAME="ref_293_16">Field_Status</A> (<A NAME="ref_293_30" HREF="terminal_interface-curses-forms__adb.htm#ref_293_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

299

pragma Import (C, Field_Status, "field_status");

300

301

<A NAME="ref_296_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_293_16">Field_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_382_22">Fld</A>);

302

begin

309

-- |

310

-- |

311

-- |

312

procedure <A NAME="ref_307_14" HREF="terminal_interface-curses-forms__ads.htm#ref_387_14">Set_Maximum_Size</A> (<A NAME="ref_307_32" HREF="terminal_interface-curses-forms__ads.htm#ref_387_32">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

312

procedure <A NAME="ref_307_14" HREF="terminal_interface-curses-forms__ads.htm#ref_387_14">Set_Maximum_Size</A> (<A NAME="ref_307_32" HREF="terminal_interface-curses-forms__ads.htm#ref_387_32">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

313

<A NAME="ref_308_32" HREF="terminal_interface-curses-forms__ads.htm#ref_388_32">Max</A> : in Natural := 0)

314

is

315

function <A NAME="ref_310_16">Set_Field_Max</A> (<A NAME="ref_310_31">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

316

<A NAME="ref_311_31">M</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

317

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_310_16">Set_Field_Max</A>, "set_max_field");

315

function <A NAME="ref_310_16">Set_Field_Max</A> (<A NAME="ref_310_31" HREF="terminal_interface-curses-forms__adb.htm#ref_310_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

316

<A NAME="ref_311_31" HREF="terminal_interface-curses-forms__adb.htm#ref_310_16">M</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

317

pragma Import (C, Set_Field_Max, "set_max_field");

318

319

<A NAME="ref_314_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_310_16">Set_Field_Max</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_387_32">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_388_32">Max</A>));

320

begin

329

-- |

330

-- |

331

-- |

332

procedure <A NAME="ref_327_14" HREF="terminal_interface-curses-forms__ads.htm#ref_397_14">Set_Options</A> (<A NAME="ref_327_27" HREF="terminal_interface-curses-forms__ads.htm#ref_397_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

333

<A NAME="ref_328_27" HREF="terminal_interface-curses-forms__ads.htm#ref_398_27">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>)

332

procedure <A NAME="ref_327_14" HREF="terminal_interface-curses-forms__ads.htm#ref_397_14">Set_Options</A> (<A NAME="ref_327_27" HREF="terminal_interface-curses-forms__ads.htm#ref_397_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

333

<A NAME="ref_328_27" HREF="terminal_interface-curses-forms__ads.htm#ref_398_27">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>)

334

is

335

function <A NAME="ref_330_16">Set_Field_Opts</A> (<A NAME="ref_330_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

336

<A NAME="ref_331_32">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

337

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_330_16">Set_Field_Opts</A>, "set_field_opts");

335

function <A NAME="ref_330_16">Set_Field_Opts</A> (<A NAME="ref_330_32" HREF="terminal_interface-curses-forms__adb.htm#ref_330_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

336

<A NAME="ref_331_32" HREF="terminal_interface-curses-forms__adb.htm#ref_330_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

337

pragma Import (C, Set_Field_Opts, "set_field_opts");

338

339

<A NAME="ref_334_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_65_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_398_27">Options</A>);

339

<A NAME="ref_334_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := FOS_2_CInt (<A HREF="terminal_interface-curses-forms__ads.htm#ref_398_27">Options</A>);

340

<A NAME="ref_335_7">Res</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

341

begin

342

<A HREF="terminal_interface-curses-forms__adb.htm#ref_335_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_330_16">Set_Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_397_27">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_334_7">Opt</A>);

347

-- |

348

-- |

349

-- |

350

procedure <A NAME="ref_345_14" HREF="terminal_interface-curses-forms__ads.htm#ref_403_14">Switch_Options</A> (<A NAME="ref_345_30" HREF="terminal_interface-curses-forms__ads.htm#ref_403_30">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

351

<A NAME="ref_346_30" HREF="terminal_interface-curses-forms__ads.htm#ref_404_30">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>;

350

procedure <A NAME="ref_345_14" HREF="terminal_interface-curses-forms__ads.htm#ref_403_14">Switch_Options</A> (<A NAME="ref_345_30" HREF="terminal_interface-curses-forms__ads.htm#ref_403_30">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

351

<A NAME="ref_346_30" HREF="terminal_interface-curses-forms__ads.htm#ref_404_30">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>;

352

<A NAME="ref_347_30" HREF="terminal_interface-curses-forms__ads.htm#ref_405_30">On</A> : Boolean := True)

353

is

354

function <A NAME="ref_349_16">Field_Opts_On</A> (<A NAME="ref_349_31">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

355

<A NAME="ref_350_31">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

356

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_349_16">Field_Opts_On</A>, "field_opts_on");

357

function <A NAME="ref_352_16">Field_Opts_Off</A> (<A NAME="ref_352_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

358

<A NAME="ref_353_32">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

359

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_352_16">Field_Opts_Off</A>, "field_opts_off");

354

function <A NAME="ref_349_16">Field_Opts_On</A> (<A NAME="ref_349_31" HREF="terminal_interface-curses-forms__adb.htm#ref_349_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

355

<A NAME="ref_350_31" HREF="terminal_interface-curses-forms__adb.htm#ref_349_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

356

pragma Import (C, Field_Opts_On, "field_opts_on");

357

function <A NAME="ref_352_16">Field_Opts_Off</A> (<A NAME="ref_352_32" HREF="terminal_interface-curses-forms__adb.htm#ref_352_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

358

<A NAME="ref_353_32" HREF="terminal_interface-curses-forms__adb.htm#ref_352_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

359

pragma Import (C, Field_Opts_Off, "field_opts_off");

360

361

<A NAME="ref_356_7">Err</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

362

<A NAME="ref_357_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_65_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_404_30">Options</A>);

362

<A NAME="ref_357_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := FOS_2_CInt (<A HREF="terminal_interface-curses-forms__ads.htm#ref_404_30">Options</A>);

363

begin

364

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_405_30">On</A> then

365

<A HREF="terminal_interface-curses-forms__adb.htm#ref_356_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_349_16">Field_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_403_30">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_357_7">Opt</A>);

373

-- |

374

-- |

375

-- |

376

procedure <A NAME="ref_371_14" HREF="terminal_interface-curses-forms__ads.htm#ref_411_14">Get_Options</A> (<A NAME="ref_371_27" HREF="terminal_interface-curses-forms__ads.htm#ref_411_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

377

<A NAME="ref_372_27" HREF="terminal_interface-curses-forms__ads.htm#ref_412_27">Options</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>)

376

procedure <A NAME="ref_371_14" HREF="terminal_interface-curses-forms__ads.htm#ref_411_14">Get_Options</A> (<A NAME="ref_371_27" HREF="terminal_interface-curses-forms__ads.htm#ref_411_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

377

<A NAME="ref_372_27" HREF="terminal_interface-curses-forms__ads.htm#ref_412_27">Options</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>)

378

is

379

function <A NAME="ref_374_16">Field_Opts</A> (<A NAME="ref_374_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

380

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_374_16">Field_Opts</A>, "field_opts");

379

function <A NAME="ref_374_16">Field_Opts</A> (<A NAME="ref_374_28" HREF="terminal_interface-curses-forms__adb.htm#ref_374_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

380

pragma Import (C, Field_Opts, "field_opts");

381

382

<A NAME="ref_377_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_374_16">Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_411_27">Fld</A>);

383

begin

384

<A HREF="terminal_interface-curses-forms__ads.htm#ref_412_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_69_13">CInt_2_FOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_377_7">Res</A>);

384

<A HREF="terminal_interface-curses-forms__ads.htm#ref_412_27">Options</A> := CInt_2_FOS (<A HREF="terminal_interface-curses-forms__adb.htm#ref_377_7">Res</A>);

385

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_411_14">Get_Options</A>;

386

-- |

387

-- |

388

-- |

389

function <A NAME="ref_384_13" HREF="terminal_interface-curses-forms__ads.htm#ref_416_13">Get_Options</A> (<A NAME="ref_384_26" HREF="terminal_interface-curses-forms__ads.htm#ref_416_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>)

390

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>

389

function <A NAME="ref_384_13" HREF="terminal_interface-curses-forms__ads.htm#ref_416_13">Get_Options</A> (<A NAME="ref_384_26" HREF="terminal_interface-curses-forms__ads.htm#ref_416_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>)

390

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>

391

is

392

<A NAME="ref_387_7">Fos</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>;

392

<A NAME="ref_387_7">Fos</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>;

393

begin

394

<A HREF="terminal_interface-curses-forms__ads.htm#ref_411_14">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_416_26">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_387_7">Fos</A>);

395

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_387_7">Fos</A>;

402

-- |

403

-- |

404

procedure <A NAME="ref_399_14" HREF="terminal_interface-curses-forms__ads.htm#ref_426_14">Set_Foreground</A>

405

(<A NAME="ref_400_7" HREF="terminal_interface-curses-forms__ads.htm#ref_427_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

405

(<A NAME="ref_400_7" HREF="terminal_interface-curses-forms__ads.htm#ref_427_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

406

<A NAME="ref_401_7" HREF="terminal_interface-curses-forms__ads.htm#ref_428_7">Fore</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>;

407

<A NAME="ref_402_7" HREF="terminal_interface-curses-forms__ads.htm#ref_429_7">Color</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First)

408

is

409

function <A NAME="ref_404_16">Set_Field_Fore</A> (<A NAME="ref_404_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

410

<A NAME="ref_405_32">Attr</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

411

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_404_16">Set_Field_Fore</A>, "set_field_fore");

409

function <A NAME="ref_404_16">Set_Field_Fore</A> (<A NAME="ref_404_32" HREF="terminal_interface-curses-forms__adb.htm#ref_404_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

410

<A NAME="ref_405_32" HREF="terminal_interface-curses-forms__adb.htm#ref_404_16">Attr</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

411

pragma Import (C, Set_Field_Fore, "set_field_fore");

412

413

<A NAME="ref_408_7">Ch</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := (Ch => Character'First,

414

Color => <A HREF="terminal_interface-curses-forms__ads.htm#ref_429_7">Color</A>,

415

Attr => <A HREF="terminal_interface-curses-forms__ads.htm#ref_428_7">Fore</A>);

413

<A NAME="ref_408_7">Ch</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := (<A HREF="terminal_interface-curses__ads.htm#ref_356_10">Ch</A> => Character'First,

414

<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A> => <A HREF="terminal_interface-curses-forms__ads.htm#ref_429_7">Color</A>,

415

<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A> => <A HREF="terminal_interface-curses-forms__ads.htm#ref_428_7">Fore</A>);

416

<A NAME="ref_411_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> :=

417

<A HREF="terminal_interface-curses-forms__adb.htm#ref_404_16">Set_Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_427_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_408_7">Ch</A>));

417

<A HREF="terminal_interface-curses-forms__adb.htm#ref_404_16">Set_Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_427_7">Fld</A>, AttrChar_To_Chtype (<A HREF="terminal_interface-curses-forms__adb.htm#ref_408_7">Ch</A>));

418

begin

419

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_411_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> then

420

<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_411_7">Res</A>);

423

-- |

424

-- |

425

-- |

426

procedure <A NAME="ref_421_14" HREF="terminal_interface-curses-forms__ads.htm#ref_434_14">Foreground</A> (<A NAME="ref_421_26" HREF="terminal_interface-curses-forms__ads.htm#ref_434_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

426

procedure <A NAME="ref_421_14" HREF="terminal_interface-curses-forms__ads.htm#ref_434_14">Foreground</A> (<A NAME="ref_421_26" HREF="terminal_interface-curses-forms__ads.htm#ref_434_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

427

<A NAME="ref_422_26" HREF="terminal_interface-curses-forms__ads.htm#ref_435_26">Fore</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>)

428

is

429

function <A NAME="ref_424_16">Field_Fore</A> (<A NAME="ref_424_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

430

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_424_16">Field_Fore</A>, "field_fore");

429

function <A NAME="ref_424_16">Field_Fore</A> (<A NAME="ref_424_28" HREF="terminal_interface-curses-forms__adb.htm#ref_424_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

430

pragma Import (C, Field_Fore, "field_fore");

431

begin

432

<A HREF="terminal_interface-curses-forms__ads.htm#ref_435_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_424_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_434_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

432

<A HREF="terminal_interface-curses-forms__ads.htm#ref_435_26">Fore</A> := Chtype_To_AttrChar (<A HREF="terminal_interface-curses-forms__adb.htm#ref_424_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_434_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

433

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_434_14">Foreground</A>;

434

435

procedure <A NAME="ref_430_14" HREF="terminal_interface-curses-forms__ads.htm#ref_439_14">Foreground</A> (<A NAME="ref_430_26" HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

435

procedure <A NAME="ref_430_14" HREF="terminal_interface-curses-forms__ads.htm#ref_439_14">Foreground</A> (<A NAME="ref_430_26" HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

436

<A NAME="ref_431_26" HREF="terminal_interface-curses-forms__ads.htm#ref_440_26">Fore</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>;

437

<A NAME="ref_432_26" HREF="terminal_interface-curses-forms__ads.htm#ref_441_26">Color</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>)

438

is

439

function <A NAME="ref_434_16">Field_Fore</A> (<A NAME="ref_434_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

440

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Field_Fore</A>, "field_fore");

439

function <A NAME="ref_434_16">Field_Fore</A> (<A NAME="ref_434_28" HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

440

pragma Import (C, Field_Fore, "field_fore");

441

begin

442

<A HREF="terminal_interface-curses-forms__ads.htm#ref_440_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

443

<A HREF="terminal_interface-curses-forms__ads.htm#ref_441_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A>;

442

<A HREF="terminal_interface-curses-forms__ads.htm#ref_440_26">Fore</A> := Chtype_To_AttrChar (<A HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

443

<A HREF="terminal_interface-curses-forms__ads.htm#ref_441_26">Color</A> := Chtype_To_AttrChar (<A HREF="terminal_interface-curses-forms__adb.htm#ref_434_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_439_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A>;

444

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_439_14">Foreground</A>;

445

-- |

446

-- |

447

-- |

448

procedure <A NAME="ref_443_14" HREF="terminal_interface-curses-forms__ads.htm#ref_446_14">Set_Background</A>

449

(<A NAME="ref_444_7" HREF="terminal_interface-curses-forms__ads.htm#ref_447_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

449

(<A NAME="ref_444_7" HREF="terminal_interface-curses-forms__ads.htm#ref_447_7">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

450

<A NAME="ref_445_7" HREF="terminal_interface-curses-forms__ads.htm#ref_448_7">Back</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>;

451

<A NAME="ref_446_7" HREF="terminal_interface-curses-forms__ads.htm#ref_449_7">Color</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First)

452

is

453

function <A NAME="ref_448_16">Set_Field_Back</A> (<A NAME="ref_448_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

454

<A NAME="ref_449_32">Attr</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

455

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_448_16">Set_Field_Back</A>, "set_field_back");

453

function <A NAME="ref_448_16">Set_Field_Back</A> (<A NAME="ref_448_32" HREF="terminal_interface-curses-forms__adb.htm#ref_448_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

454

<A NAME="ref_449_32" HREF="terminal_interface-curses-forms__adb.htm#ref_448_16">Attr</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

455

pragma Import (C, Set_Field_Back, "set_field_back");

456

457

<A NAME="ref_452_7">Ch</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := (Ch => Character'First,

458

Color => <A HREF="terminal_interface-curses-forms__ads.htm#ref_449_7">Color</A>,

459

Attr => <A HREF="terminal_interface-curses-forms__ads.htm#ref_448_7">Back</A>);

457

<A NAME="ref_452_7">Ch</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := (<A HREF="terminal_interface-curses__ads.htm#ref_356_10">Ch</A> => Character'First,

458

<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A> => <A HREF="terminal_interface-curses-forms__ads.htm#ref_449_7">Color</A>,

459

<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A> => <A HREF="terminal_interface-curses-forms__ads.htm#ref_448_7">Back</A>);

460

<A NAME="ref_455_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> :=

461

<A HREF="terminal_interface-curses-forms__adb.htm#ref_448_16">Set_Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_447_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_452_7">Ch</A>));

461

<A HREF="terminal_interface-curses-forms__adb.htm#ref_448_16">Set_Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_447_7">Fld</A>, AttrChar_To_Chtype (<A HREF="terminal_interface-curses-forms__adb.htm#ref_452_7">Ch</A>));

462

begin

463

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_455_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> then

464

<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_455_7">Res</A>);

467

-- |

468

-- |

469

-- |

470

procedure <A NAME="ref_465_14" HREF="terminal_interface-curses-forms__ads.htm#ref_454_14">Background</A> (<A NAME="ref_465_26" HREF="terminal_interface-curses-forms__ads.htm#ref_454_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

470

procedure <A NAME="ref_465_14" HREF="terminal_interface-curses-forms__ads.htm#ref_454_14">Background</A> (<A NAME="ref_465_26" HREF="terminal_interface-curses-forms__ads.htm#ref_454_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

471

<A NAME="ref_466_26" HREF="terminal_interface-curses-forms__ads.htm#ref_455_26">Back</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>)

472

is

473

function <A NAME="ref_468_16">Field_Back</A> (<A NAME="ref_468_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

474

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_468_16">Field_Back</A>, "field_back");

473

function <A NAME="ref_468_16">Field_Back</A> (<A NAME="ref_468_28" HREF="terminal_interface-curses-forms__adb.htm#ref_468_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

474

pragma Import (C, Field_Back, "field_back");

475

begin

476

<A HREF="terminal_interface-curses-forms__ads.htm#ref_455_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_468_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_454_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

476

<A HREF="terminal_interface-curses-forms__ads.htm#ref_455_26">Back</A> := Chtype_To_AttrChar (<A HREF="terminal_interface-curses-forms__adb.htm#ref_468_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_454_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

477

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_454_14">Background</A>;

478

479

procedure <A NAME="ref_474_14" HREF="terminal_interface-curses-forms__ads.htm#ref_459_14">Background</A> (<A NAME="ref_474_26" HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

479

procedure <A NAME="ref_474_14" HREF="terminal_interface-curses-forms__ads.htm#ref_459_14">Background</A> (<A NAME="ref_474_26" HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

480

<A NAME="ref_475_26" HREF="terminal_interface-curses-forms__ads.htm#ref_460_26">Back</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>;

481

<A NAME="ref_476_26" HREF="terminal_interface-curses-forms__ads.htm#ref_461_26">Color</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>)

482

is

483

function <A NAME="ref_478_16">Field_Back</A> (<A NAME="ref_478_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

484

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Field_Back</A>, "field_back");

483

function <A NAME="ref_478_16">Field_Back</A> (<A NAME="ref_478_28" HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>;

484

pragma Import (C, Field_Back, "field_back");

485

begin

486

<A HREF="terminal_interface-curses-forms__ads.htm#ref_460_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

487

<A HREF="terminal_interface-curses-forms__ads.htm#ref_461_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A>;

486

<A HREF="terminal_interface-curses-forms__ads.htm#ref_460_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A>;

487

<A HREF="terminal_interface-curses-forms__ads.htm#ref_461_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_478_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_459_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A>;

488

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_459_14">Background</A>;

489

-- |

490

-- |

491

-- |

492

procedure <A NAME="ref_487_14" HREF="terminal_interface-curses-forms__ads.htm#ref_466_14">Set_Pad_Character</A> (<A NAME="ref_487_33" HREF="terminal_interface-curses-forms__ads.htm#ref_466_33">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

492

procedure <A NAME="ref_487_14" HREF="terminal_interface-curses-forms__ads.htm#ref_466_14">Set_Pad_Character</A> (<A NAME="ref_487_33" HREF="terminal_interface-curses-forms__ads.htm#ref_466_33">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

493

<A NAME="ref_488_33" HREF="terminal_interface-curses-forms__ads.htm#ref_467_33">Pad</A> : in Character := Space)

494

is

495

function <A NAME="ref_490_16">Set_Field_Pad</A> (<A NAME="ref_490_31">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

496

<A NAME="ref_491_31">Ch</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

497

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_490_16">Set_Field_Pad</A>, "set_field_pad");

495

function <A NAME="ref_490_16">Set_Field_Pad</A> (<A NAME="ref_490_31" HREF="terminal_interface-curses-forms__adb.htm#ref_490_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

496

<A NAME="ref_491_31" HREF="terminal_interface-curses-forms__adb.htm#ref_490_16">Ch</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

497

pragma Import (C, Set_Field_Pad, "set_field_pad");

498

499

<A NAME="ref_494_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_490_16">Set_Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_466_33">Fld</A>,

500

<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (Character'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#ref_467_33">Pad</A>)));

506

-- |

507

-- |

508

-- |

509

procedure <A NAME="ref_504_14" HREF="terminal_interface-curses-forms__ads.htm#ref_472_14">Pad_Character</A> (<A NAME="ref_504_29" HREF="terminal_interface-curses-forms__ads.htm#ref_472_29">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

509

procedure <A NAME="ref_504_14" HREF="terminal_interface-curses-forms__ads.htm#ref_472_14">Pad_Character</A> (<A NAME="ref_504_29" HREF="terminal_interface-curses-forms__ads.htm#ref_472_29">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

510

<A NAME="ref_505_29" HREF="terminal_interface-curses-forms__ads.htm#ref_473_29">Pad</A> : out Character)

511

is

512

function <A NAME="ref_507_16">Field_Pad</A> (<A NAME="ref_507_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

513

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_507_16">Field_Pad</A>, "field_pad");

512

function <A NAME="ref_507_16">Field_Pad</A> (<A NAME="ref_507_27" HREF="terminal_interface-curses-forms__adb.htm#ref_507_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

513

pragma Import (C, Field_Pad, "field_pad");

514

begin

515

<A HREF="terminal_interface-curses-forms__ads.htm#ref_473_29">Pad</A> := Character'Val (<A HREF="terminal_interface-curses-forms__adb.htm#ref_507_16">Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_472_29">Fld</A>));

516

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_472_14">Pad_Character</A>;

521

-- |

522

-- |

523

-- |

524

procedure <A NAME="ref_519_14" HREF="terminal_interface-curses-forms__ads.htm#ref_482_14">Info</A> (<A NAME="ref_519_20" HREF="terminal_interface-curses-forms__ads.htm#ref_482_20">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

524

procedure <A NAME="ref_519_14" HREF="terminal_interface-curses-forms__ads.htm#ref_482_14">Info</A> (<A NAME="ref_519_20" HREF="terminal_interface-curses-forms__ads.htm#ref_482_20">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

525

<A NAME="ref_520_20" HREF="terminal_interface-curses-forms__ads.htm#ref_483_20">Lines</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>;

526

<A NAME="ref_521_20" HREF="terminal_interface-curses-forms__ads.htm#ref_484_20">Columns</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>;

527

<A NAME="ref_522_20" HREF="terminal_interface-curses-forms__ads.htm#ref_485_20">First_Row</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>;

528

<A NAME="ref_523_20" HREF="terminal_interface-curses-forms__ads.htm#ref_486_20">First_Column</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>;

529

<A NAME="ref_524_20" HREF="terminal_interface-curses-forms__ads.htm#ref_487_20">Off_Screen</A> : out Natural;

530

<A NAME="ref_525_20" HREF="terminal_interface-curses-forms__ads.htm#ref_488_20">Additional_Buffers</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A>)

530

<A NAME="ref_525_20" HREF="terminal_interface-curses-forms__ads.htm#ref_488_20">Additional_Buffers</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A>)

531

is

532

type <A NAME="ref_527_12">C_Int_Access</A> is access all <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

533

function <A NAME="ref_528_16">Fld_Info</A> (<A NAME="ref_528_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

534

<A NAME="ref_529_26">L</A>, <A NAME="ref_529_29">C</A>, <A NAME="ref_529_32">Fr</A>, <A NAME="ref_529_36">Fc</A>, <A NAME="ref_529_40">Os</A>, <A NAME="ref_529_44">Ab</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_527_12">C_Int_Access</A>)

533

function <A NAME="ref_528_16">Fld_Info</A> (<A NAME="ref_528_26" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

534

<A NAME="ref_529_26" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">L</A>, <A NAME="ref_529_29" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">C</A>, <A NAME="ref_529_32" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Fr</A>, <A NAME="ref_529_36" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Fc</A>, <A NAME="ref_529_40" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Os</A>, <A NAME="ref_529_44" HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Ab</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_527_12">C_Int_Access</A>)

535

return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

536

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Fld_Info</A>, "field_info");

536

pragma Import (C, Fld_Info, "field_info");

537

538

<A NAME="ref_533_7">L</A>, <A NAME="ref_533_10">C</A>, <A NAME="ref_533_13">Fr</A>, <A NAME="ref_533_17">Fc</A>, <A NAME="ref_533_21">Os</A>, <A NAME="ref_533_25">Ab</A> : aliased <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

539

<A NAME="ref_534_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_528_16">Fld_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_482_20">Fld</A>,

549

<A HREF="terminal_interface-curses-forms__ads.htm#ref_485_20">First_Row</A> := <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_533_13">Fr</A>);

550

<A HREF="terminal_interface-curses-forms__ads.htm#ref_486_20">First_Column</A> := <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_533_17">Fc</A>);

551

<A HREF="terminal_interface-curses-forms__ads.htm#ref_487_20">Off_Screen</A> := Natural (<A HREF="terminal_interface-curses-forms__adb.htm#ref_533_21">Os</A>);

552

<A HREF="terminal_interface-curses-forms__ads.htm#ref_488_20">Additional_Buffers</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Buffer_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_533_25">Ab</A>);

552

<A HREF="terminal_interface-curses-forms__ads.htm#ref_488_20">Additional_Buffers</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_129_9">Buffer_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_533_25">Ab</A>);

553

end if;

554

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_482_14">Info</A>;

555

-- |

556

-- |

557

-- |

558

procedure <A NAME="ref_553_14" HREF="terminal_interface-curses-forms__ads.htm#ref_493_14">Dynamic_Info</A> (<A NAME="ref_553_28" HREF="terminal_interface-curses-forms__ads.htm#ref_493_28">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

558

procedure <A NAME="ref_553_14" HREF="terminal_interface-curses-forms__ads.htm#ref_493_14">Dynamic_Info</A> (<A NAME="ref_553_28" HREF="terminal_interface-curses-forms__ads.htm#ref_493_28">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

559

<A NAME="ref_554_28" HREF="terminal_interface-curses-forms__ads.htm#ref_494_28">Lines</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>;

560

<A NAME="ref_555_28" HREF="terminal_interface-curses-forms__ads.htm#ref_495_28">Columns</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>;

561

<A NAME="ref_556_28" HREF="terminal_interface-curses-forms__ads.htm#ref_496_28">Max</A> : out Natural)

562

is

563

type <A NAME="ref_558_12">C_Int_Access</A> is access all <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

564

function <A NAME="ref_559_16">Dyn_Info</A> (<A NAME="ref_559_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>; <A NAME="ref_559_39">L</A>, <A NAME="ref_559_42">C</A>, <A NAME="ref_559_45">M</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_558_12">C_Int_Access</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

565

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">Dyn_Info</A>, "dynamic_field_info");

564

function <A NAME="ref_559_16">Dyn_Info</A> (<A NAME="ref_559_26" HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <A NAME="ref_559_39" HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">L</A>, <A NAME="ref_559_42" HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">C</A>, <A NAME="ref_559_45" HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">M</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_558_12">C_Int_Access</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

565

pragma Import (C, Dyn_Info, "dynamic_field_info");

566

567

<A NAME="ref_562_7">L</A>, <A NAME="ref_562_10">C</A>, <A NAME="ref_562_13">M</A> : aliased <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

568

<A NAME="ref_563_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_559_16">Dyn_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_493_28">Fld</A>,

584

-- |

585

-- |

586

-- |

587

procedure <A NAME="ref_582_14" HREF="terminal_interface-curses-forms__ads.htm#ref_505_14">Set_Window</A> (<A NAME="ref_582_26" HREF="terminal_interface-curses-forms__ads.htm#ref_505_26">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

587

procedure <A NAME="ref_582_14" HREF="terminal_interface-curses-forms__ads.htm#ref_505_14">Set_Window</A> (<A NAME="ref_582_26" HREF="terminal_interface-curses-forms__ads.htm#ref_505_26">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

588

<A NAME="ref_583_26" HREF="terminal_interface-curses-forms__ads.htm#ref_506_26">Win</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>)

589

is

590

function <A NAME="ref_585_16">Set_Form_Win</A> (<A NAME="ref_585_30">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

591

<A NAME="ref_586_30">Win</A> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

592

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_585_16">Set_Form_Win</A>, "set_form_win");

590

function <A NAME="ref_585_16">Set_Form_Win</A> (<A NAME="ref_585_30" HREF="terminal_interface-curses-forms__adb.htm#ref_585_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

591

<A NAME="ref_586_30" HREF="terminal_interface-curses-forms__adb.htm#ref_585_16">Win</A> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

592

pragma Import (C, Set_Form_Win, "set_form_win");

593

594

<A NAME="ref_589_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_585_16">Set_Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_505_26">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_506_26">Win</A>);

595

begin

600

-- |

601

-- |

602

-- |

603

function <A NAME="ref_598_13" HREF="terminal_interface-curses-forms__ads.htm#ref_511_13">Get_Window</A> (<A NAME="ref_598_25" HREF="terminal_interface-curses-forms__ads.htm#ref_511_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>

603

function <A NAME="ref_598_13" HREF="terminal_interface-curses-forms__ads.htm#ref_511_13">Get_Window</A> (<A NAME="ref_598_25" HREF="terminal_interface-curses-forms__ads.htm#ref_511_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>

604

is

605

function <A NAME="ref_600_16">Form_Win</A> (<A NAME="ref_600_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>;

606

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_600_16">Form_Win</A>, "form_win");

605

function <A NAME="ref_600_16">Form_Win</A> (<A NAME="ref_600_26" HREF="terminal_interface-curses-forms__adb.htm#ref_600_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>;

606

pragma Import (C, Form_Win, "form_win");

607

608

<A NAME="ref_603_7">W</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_600_16">Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_511_25">Frm</A>);

609

begin

612

-- |

613

-- |

614

-- |

615

procedure <A NAME="ref_610_14" HREF="terminal_interface-curses-forms__ads.htm#ref_516_14">Set_Sub_Window</A> (<A NAME="ref_610_30" HREF="terminal_interface-curses-forms__ads.htm#ref_516_30">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

615

procedure <A NAME="ref_610_14" HREF="terminal_interface-curses-forms__ads.htm#ref_516_14">Set_Sub_Window</A> (<A NAME="ref_610_30" HREF="terminal_interface-curses-forms__ads.htm#ref_516_30">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

616

<A NAME="ref_611_30" HREF="terminal_interface-curses-forms__ads.htm#ref_517_30">Win</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>)

617

is

618

function <A NAME="ref_613_16">Set_Form_Sub</A> (<A NAME="ref_613_30">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

619

<A NAME="ref_614_30">Win</A> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

620

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_613_16">Set_Form_Sub</A>, "set_form_sub");

618

function <A NAME="ref_613_16">Set_Form_Sub</A> (<A NAME="ref_613_30" HREF="terminal_interface-curses-forms__adb.htm#ref_613_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

619

<A NAME="ref_614_30" HREF="terminal_interface-curses-forms__adb.htm#ref_613_16">Win</A> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

620

pragma Import (C, Set_Form_Sub, "set_form_sub");

621

622

<A NAME="ref_617_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_613_16">Set_Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_516_30">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_517_30">Win</A>);

623

begin

628

-- |

629

-- |

630

-- |

631

function <A NAME="ref_626_13" HREF="terminal_interface-curses-forms__ads.htm#ref_522_13">Get_Sub_Window</A> (<A NAME="ref_626_29" HREF="terminal_interface-curses-forms__ads.htm#ref_522_29">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>

631

function <A NAME="ref_626_13" HREF="terminal_interface-curses-forms__ads.htm#ref_522_13">Get_Sub_Window</A> (<A NAME="ref_626_29" HREF="terminal_interface-curses-forms__ads.htm#ref_522_29">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>

632

is

633

function <A NAME="ref_628_16">Form_Sub</A> (<A NAME="ref_628_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>;

634

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_628_16">Form_Sub</A>, "form_sub");

633

function <A NAME="ref_628_16">Form_Sub</A> (<A NAME="ref_628_26" HREF="terminal_interface-curses-forms__adb.htm#ref_628_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>;

634

pragma Import (C, Form_Sub, "form_sub");

635

636

<A NAME="ref_631_7">W</A> : constant <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_628_16">Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_522_29">Frm</A>);

637

begin

640

-- |

641

-- |

642

-- |

643

procedure <A NAME="ref_638_14" HREF="terminal_interface-curses-forms__ads.htm#ref_527_14">Scale</A> (<A NAME="ref_638_21" HREF="terminal_interface-curses-forms__ads.htm#ref_527_21">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

643

procedure <A NAME="ref_638_14" HREF="terminal_interface-curses-forms__ads.htm#ref_527_14">Scale</A> (<A NAME="ref_638_21" HREF="terminal_interface-curses-forms__ads.htm#ref_527_21">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

644

<A NAME="ref_639_21" HREF="terminal_interface-curses-forms__ads.htm#ref_528_21">Lines</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>;

645

<A NAME="ref_640_21" HREF="terminal_interface-curses-forms__ads.htm#ref_529_21">Columns</A> : out <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>)

646

is

647

type <A NAME="ref_642_12">C_Int_Access</A> is access all <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

648

function <A NAME="ref_643_16">M_Scale</A> (<A NAME="ref_643_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>; <A NAME="ref_643_37">Yp</A>, <A NAME="ref_643_41">Xp</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_642_12">C_Int_Access</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

649

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_643_16">M_Scale</A>, "scale_form");

648

function <A NAME="ref_643_16">M_Scale</A> (<A NAME="ref_643_25" HREF="terminal_interface-curses-forms__adb.htm#ref_643_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>; <A NAME="ref_643_37" HREF="terminal_interface-curses-forms__adb.htm#ref_643_16">Yp</A>, <A NAME="ref_643_41" HREF="terminal_interface-curses-forms__adb.htm#ref_643_16">Xp</A> : <A HREF="terminal_interface-curses-forms__adb.htm#ref_642_12">C_Int_Access</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

649

pragma Import (C, M_Scale, "scale_form");

650

651

<A NAME="ref_646_7">X</A>, <A NAME="ref_646_10">Y</A> : aliased <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

652

<A NAME="ref_647_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_643_16">M_Scale</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_527_21">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_646_10">Y</A>'Access, <A HREF="terminal_interface-curses-forms__adb.htm#ref_646_7">X</A>'Access);

664

-- |

665

-- |

666

-- |

667

procedure <A NAME="ref_662_14" HREF="terminal_interface-curses-forms__ads.htm#ref_541_14">Set_Field_Init_Hook</A> (<A NAME="ref_662_35" HREF="terminal_interface-curses-forms__ads.htm#ref_541_35">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

667

procedure <A NAME="ref_662_14" HREF="terminal_interface-curses-forms__ads.htm#ref_541_14">Set_Field_Init_Hook</A> (<A NAME="ref_662_35" HREF="terminal_interface-curses-forms__ads.htm#ref_541_35">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

668

<A NAME="ref_663_35" HREF="terminal_interface-curses-forms__ads.htm#ref_542_35">Proc</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>)

669

is

670

function <A NAME="ref_665_16">Set_Field_Init</A> (<A NAME="ref_665_32">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

671

<A NAME="ref_666_32">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

672

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_665_16">Set_Field_Init</A>, "set_field_init");

670

function <A NAME="ref_665_16">Set_Field_Init</A> (<A NAME="ref_665_32" HREF="terminal_interface-curses-forms__adb.htm#ref_665_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

671

<A NAME="ref_666_32" HREF="terminal_interface-curses-forms__adb.htm#ref_665_16">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

672

pragma Import (C, Set_Field_Init, "set_field_init");

673

674

<A NAME="ref_669_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_665_16">Set_Field_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_541_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_542_35">Proc</A>);

675

begin

680

-- |

681

-- |

682

-- |

683

procedure <A NAME="ref_678_14" HREF="terminal_interface-curses-forms__ads.htm#ref_547_14">Set_Field_Term_Hook</A> (<A NAME="ref_678_35" HREF="terminal_interface-curses-forms__ads.htm#ref_547_35">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

683

procedure <A NAME="ref_678_14" HREF="terminal_interface-curses-forms__ads.htm#ref_547_14">Set_Field_Term_Hook</A> (<A NAME="ref_678_35" HREF="terminal_interface-curses-forms__ads.htm#ref_547_35">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

684

<A NAME="ref_679_35" HREF="terminal_interface-curses-forms__ads.htm#ref_548_35">Proc</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>)

685

is

686

function <A NAME="ref_681_16">Set_Field_Term</A> (<A NAME="ref_681_32">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

687

<A NAME="ref_682_32">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

688

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_681_16">Set_Field_Term</A>, "set_field_term");

686

function <A NAME="ref_681_16">Set_Field_Term</A> (<A NAME="ref_681_32" HREF="terminal_interface-curses-forms__adb.htm#ref_681_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

687

<A NAME="ref_682_32" HREF="terminal_interface-curses-forms__adb.htm#ref_681_16">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

688

pragma Import (C, Set_Field_Term, "set_field_term");

689

690

<A NAME="ref_685_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_681_16">Set_Field_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_547_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_548_35">Proc</A>);

691

begin

696

-- |

697

-- |

698

-- |

699

procedure <A NAME="ref_694_14" HREF="terminal_interface-curses-forms__ads.htm#ref_553_14">Set_Form_Init_Hook</A> (<A NAME="ref_694_34" HREF="terminal_interface-curses-forms__ads.htm#ref_553_34">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

699

procedure <A NAME="ref_694_14" HREF="terminal_interface-curses-forms__ads.htm#ref_553_14">Set_Form_Init_Hook</A> (<A NAME="ref_694_34" HREF="terminal_interface-curses-forms__ads.htm#ref_553_34">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

700

<A NAME="ref_695_34" HREF="terminal_interface-curses-forms__ads.htm#ref_554_34">Proc</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>)

701

is

702

function <A NAME="ref_697_16">Set_Form_Init</A> (<A NAME="ref_697_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

703

<A NAME="ref_698_31">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

704

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_697_16">Set_Form_Init</A>, "set_form_init");

702

function <A NAME="ref_697_16">Set_Form_Init</A> (<A NAME="ref_697_31" HREF="terminal_interface-curses-forms__adb.htm#ref_697_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

703

<A NAME="ref_698_31" HREF="terminal_interface-curses-forms__adb.htm#ref_697_16">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

704

pragma Import (C, Set_Form_Init, "set_form_init");

705

706

<A NAME="ref_701_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_697_16">Set_Form_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_553_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_554_34">Proc</A>);

707

begin

712

-- |

713

-- |

714

-- |

715

procedure <A NAME="ref_710_14" HREF="terminal_interface-curses-forms__ads.htm#ref_559_14">Set_Form_Term_Hook</A> (<A NAME="ref_710_34" HREF="terminal_interface-curses-forms__ads.htm#ref_559_34">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

715

procedure <A NAME="ref_710_14" HREF="terminal_interface-curses-forms__ads.htm#ref_559_14">Set_Form_Term_Hook</A> (<A NAME="ref_710_34" HREF="terminal_interface-curses-forms__ads.htm#ref_559_34">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

716

<A NAME="ref_711_34" HREF="terminal_interface-curses-forms__ads.htm#ref_560_34">Proc</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>)

717

is

718

function <A NAME="ref_713_16">Set_Form_Term</A> (<A NAME="ref_713_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

719

<A NAME="ref_714_31">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

720

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_713_16">Set_Form_Term</A>, "set_form_term");

718

function <A NAME="ref_713_16">Set_Form_Term</A> (<A NAME="ref_713_31" HREF="terminal_interface-curses-forms__adb.htm#ref_713_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

719

<A NAME="ref_714_31" HREF="terminal_interface-curses-forms__adb.htm#ref_713_16">Proc</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form_Hook_Function</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

720

pragma Import (C, Set_Form_Term, "set_form_term");

721

722

<A NAME="ref_717_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_713_16">Set_Form_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_559_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_560_34">Proc</A>);

723

begin

732

-- |

733

-- |

734

-- |

735

procedure <A NAME="ref_730_14" HREF="terminal_interface-curses-forms__ads.htm#ref_589_14">Redefine</A> (<A NAME="ref_730_24" HREF="terminal_interface-curses-forms__ads.htm#ref_589_24">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

736

<A NAME="ref_731_24" HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Field_Array_Access</A>)

735

procedure <A NAME="ref_730_14" HREF="terminal_interface-curses-forms__ads.htm#ref_589_14">Redefine</A> (<A NAME="ref_730_24" HREF="terminal_interface-curses-forms__ads.htm#ref_589_24">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

736

<A NAME="ref_731_24" HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_134_9">Field_Array_Access</A>)

737

is

738

function <A NAME="ref_733_16">Set_Frm_Fields</A> (<A NAME="ref_733_32">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

739

<A NAME="ref_734_32">Items</A> : System.Address) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

740

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_733_16">Set_Frm_Fields</A>, "set_form_fields");

738

function <A NAME="ref_733_16">Set_Frm_Fields</A> (<A NAME="ref_733_32" HREF="terminal_interface-curses-forms__adb.htm#ref_733_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

739

<A NAME="ref_734_32" HREF="terminal_interface-curses-forms__adb.htm#ref_733_16">Items</A> : System.Address) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

740

pragma Import (C, Set_Frm_Fields, "set_form_fields");

741

742

<A NAME="ref_737_7">Res</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

743

begin

744

pragma Assert (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>);

745

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

744

pragma Assert (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>);

745

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

746

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

747

else

748

<A HREF="terminal_interface-curses-forms__adb.htm#ref_737_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_733_16">Set_Frm_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_589_24">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_590_24">Flds</A>'First)'Address);

754

-- |

755

-- |

756

-- |

757

function <A NAME="ref_752_13" HREF="terminal_interface-curses-forms__ads.htm#ref_601_13">Fields</A> (<A NAME="ref_752_21" HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

758

<A NAME="ref_753_21" HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A> : Positive) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>

757

function <A NAME="ref_752_13" HREF="terminal_interface-curses-forms__ads.htm#ref_601_13">Fields</A> (<A NAME="ref_752_21" HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

758

<A NAME="ref_753_21" HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A> : Positive) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>

759

is

760

use <A HREF="terminal_interface-curses-forms__adb.htm#ref_56_12">F_Array</A>;

761

762

function <A NAME="ref_757_16">C_Fields</A> (<A NAME="ref_757_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return Pointer;

763

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_757_16">C_Fields</A>, "form_fields");

764

765

<A NAME="ref_760_7">P</A> : Pointer := <A HREF="terminal_interface-curses-forms__adb.htm#ref_757_16">C_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A>);

760

use F_Array;

761

762

function C_Fields (<A NAME="ref_757_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return Pointer;

763

pragma Import (C, C_Fields, "form_fields");

764

765

P : Pointer := C_Fields (<A HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A>);

766

begin

767

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_760_7">P</A> = null or else <A HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A> not in 1 .. <A HREF="terminal_interface-curses-forms__ads.htm#ref_607_13">Field_Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A>) then

767

if P = null or else <A HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A> > <A HREF="terminal_interface-curses-forms__ads.htm#ref_607_13">Field_Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_601_21">Frm</A>) then

768

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

769

else

770

<A HREF="terminal_interface-curses-forms__adb.htm#ref_760_7">P</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_760_7">P</A> + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A>) - 1);

771

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_760_7">P</A>.all;

770

P := P + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_602_21">Index</A>) - 1);

771

return P.all;

772

end if;

773

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_601_13">Fields</A>;

774

-- |

775

-- |

776

-- |

777

function <A NAME="ref_772_13" HREF="terminal_interface-curses-forms__ads.htm#ref_607_13">Field_Count</A> (<A NAME="ref_772_26" HREF="terminal_interface-curses-forms__ads.htm#ref_607_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return Natural

777

function <A NAME="ref_772_13" HREF="terminal_interface-curses-forms__ads.htm#ref_607_13">Field_Count</A> (<A NAME="ref_772_26" HREF="terminal_interface-curses-forms__ads.htm#ref_607_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return Natural

778

is

779

function <A NAME="ref_774_16">Count</A> (<A NAME="ref_774_23">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

780

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_774_16">Count</A>, "field_count");

779

function <A NAME="ref_774_16">Count</A> (<A NAME="ref_774_23" HREF="terminal_interface-curses-forms__adb.htm#ref_774_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

780

pragma Import (C, Count, "field_count");

781

begin

782

return Natural (<A HREF="terminal_interface-curses-forms__adb.htm#ref_774_16">Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_607_26">Frm</A>));

783

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_607_13">Field_Count</A>;

784

-- |

785

-- |

786

-- |

787

procedure <A NAME="ref_782_14" HREF="terminal_interface-curses-forms__ads.htm#ref_612_14">Move</A> (<A NAME="ref_782_20" HREF="terminal_interface-curses-forms__ads.htm#ref_612_20">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

787

procedure <A NAME="ref_782_14" HREF="terminal_interface-curses-forms__ads.htm#ref_612_14">Move</A> (<A NAME="ref_782_20" HREF="terminal_interface-curses-forms__ads.htm#ref_612_20">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

788

<A NAME="ref_783_20" HREF="terminal_interface-curses-forms__ads.htm#ref_613_20">Line</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>;

789

<A NAME="ref_784_20" HREF="terminal_interface-curses-forms__ads.htm#ref_614_20">Column</A> : in <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>)

790

is

791

function <A NAME="ref_786_16">Move</A> (<A NAME="ref_786_22">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>; <A NAME="ref_786_35">L</A>, <A NAME="ref_786_38">C</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

792

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_786_16">Move</A>, "move_field");

791

function <A NAME="ref_786_16">Move</A> (<A NAME="ref_786_22" HREF="terminal_interface-curses-forms__adb.htm#ref_786_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <A NAME="ref_786_35" HREF="terminal_interface-curses-forms__adb.htm#ref_786_16">L</A>, <A NAME="ref_786_38" HREF="terminal_interface-curses-forms__adb.htm#ref_786_16">C</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

792

pragma Import (C, Move, "move_field");

793

794

<A NAME="ref_789_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_786_16">Move</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_612_20">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_613_20">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_614_20">Column</A>));

795

begin

804

-- |

805

-- |

806

-- |

807

function <A NAME="ref_802_13" HREF="terminal_interface-curses-forms__ads.htm#ref_623_13">Create</A> (<A NAME="ref_802_21" HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Field_Array_Access</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>

807

function <A NAME="ref_802_13" HREF="terminal_interface-curses-forms__ads.htm#ref_623_13">Create</A> (<A NAME="ref_802_21" HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_134_9">Field_Array_Access</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>

808

is

809

function <A NAME="ref_804_16">NewForm</A> (<A NAME="ref_804_25">Fields</A> : System.Address) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

810

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_804_16">NewForm</A>, "new_form");

809

function <A NAME="ref_804_16">NewForm</A> (<A NAME="ref_804_25" HREF="terminal_interface-curses-forms__adb.htm#ref_804_16">Fields</A> : System.Address) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

810

pragma Import (C, NewForm, "new_form");

811

812

<A NAME="ref_807_7">M</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

812

<A NAME="ref_807_7">M</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

813

begin

814

pragma Assert (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>);

815

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

814

pragma Assert (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A>'Last) = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>);

815

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

816

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

817

else

818

<A HREF="terminal_interface-curses-forms__adb.htm#ref_807_7">M</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_804_16">NewForm</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_623_21">Fields</A>'First)'Address);

819

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_807_7">M</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Form</A> then

819

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_807_7">M</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_60_4">Null_Form</A> then

820

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

821

end if;

822

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_807_7">M</A>;

825

-- |

826

-- |

827

-- |

828

procedure <A NAME="ref_823_14" HREF="terminal_interface-curses-forms__ads.htm#ref_634_14">Delete</A> (<A NAME="ref_823_22" HREF="terminal_interface-curses-forms__ads.htm#ref_634_22">Frm</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>)

828

procedure <A NAME="ref_823_14" HREF="terminal_interface-curses-forms__ads.htm#ref_634_14">Delete</A> (<A NAME="ref_823_22" HREF="terminal_interface-curses-forms__ads.htm#ref_634_22">Frm</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>)

829

is

830

function <A NAME="ref_825_16">Free</A> (<A NAME="ref_825_22">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

831

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_825_16">Free</A>, "free_form");

830

function <A NAME="ref_825_16">Free</A> (<A NAME="ref_825_22" HREF="terminal_interface-curses-forms__adb.htm#ref_825_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

831

pragma Import (C, Free, "free_form");

832

833

<A NAME="ref_828_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_825_16">Free</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_634_22">Frm</A>);

834

begin

835

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_828_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> then

836

<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_828_7">Res</A>);

837

end if;

838

<A HREF="terminal_interface-curses-forms__ads.htm#ref_634_22">Frm</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Form</A>;

838

<A HREF="terminal_interface-curses-forms__ads.htm#ref_634_22">Frm</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_60_4">Null_Form</A>;

839

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_634_14">Delete</A>;

840

-- |

841

-- |=====================================================================

844

-- |

845

-- |

846

-- |

847

procedure <A NAME="ref_842_14" HREF="terminal_interface-curses-forms__ads.htm#ref_644_14">Set_Options</A> (<A NAME="ref_842_27" HREF="terminal_interface-curses-forms__ads.htm#ref_644_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

848

<A NAME="ref_843_27" HREF="terminal_interface-curses-forms__ads.htm#ref_645_27">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>)

847

procedure <A NAME="ref_842_14" HREF="terminal_interface-curses-forms__ads.htm#ref_644_14">Set_Options</A> (<A NAME="ref_842_27" HREF="terminal_interface-curses-forms__ads.htm#ref_644_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

848

<A NAME="ref_843_27" HREF="terminal_interface-curses-forms__ads.htm#ref_645_27">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>)

849

is

850

function <A NAME="ref_845_16">Set_Form_Opts</A> (<A NAME="ref_845_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

851

<A NAME="ref_846_31">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

852

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_845_16">Set_Form_Opts</A>, "set_form_opts");

850

function <A NAME="ref_845_16">Set_Form_Opts</A> (<A NAME="ref_845_31" HREF="terminal_interface-curses-forms__adb.htm#ref_845_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

851

<A NAME="ref_846_31" HREF="terminal_interface-curses-forms__adb.htm#ref_845_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

852

pragma Import (C, Set_Form_Opts, "set_form_opts");

853

854

<A NAME="ref_849_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_73_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_645_27">Options</A>);

854

<A NAME="ref_849_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := FrmOS_2_CInt (<A HREF="terminal_interface-curses-forms__ads.htm#ref_645_27">Options</A>);

855

<A NAME="ref_850_7">Res</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

856

begin

857

<A HREF="terminal_interface-curses-forms__adb.htm#ref_850_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_845_16">Set_Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_644_27">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_849_7">Opt</A>);

862

-- |

863

-- |

864

-- |

865

procedure <A NAME="ref_860_14" HREF="terminal_interface-curses-forms__ads.htm#ref_650_14">Switch_Options</A> (<A NAME="ref_860_30" HREF="terminal_interface-curses-forms__ads.htm#ref_650_30">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

866

<A NAME="ref_861_30" HREF="terminal_interface-curses-forms__ads.htm#ref_651_30">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>;

865

procedure <A NAME="ref_860_14" HREF="terminal_interface-curses-forms__ads.htm#ref_650_14">Switch_Options</A> (<A NAME="ref_860_30" HREF="terminal_interface-curses-forms__ads.htm#ref_650_30">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

866

<A NAME="ref_861_30" HREF="terminal_interface-curses-forms__ads.htm#ref_651_30">Options</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>;

867

<A NAME="ref_862_30" HREF="terminal_interface-curses-forms__ads.htm#ref_652_30">On</A> : Boolean := True)

868

is

869

function <A NAME="ref_864_16">Form_Opts_On</A> (<A NAME="ref_864_30">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

870

<A NAME="ref_865_30">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

871

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_864_16">Form_Opts_On</A>, "form_opts_on");

872

function <A NAME="ref_867_16">Form_Opts_Off</A> (<A NAME="ref_867_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

873

<A NAME="ref_868_31">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

874

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_867_16">Form_Opts_Off</A>, "form_opts_off");

869

function <A NAME="ref_864_16">Form_Opts_On</A> (<A NAME="ref_864_30" HREF="terminal_interface-curses-forms__adb.htm#ref_864_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

870

<A NAME="ref_865_30" HREF="terminal_interface-curses-forms__adb.htm#ref_864_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

871

pragma Import (C, Form_Opts_On, "form_opts_on");

872

function <A NAME="ref_867_16">Form_Opts_Off</A> (<A NAME="ref_867_31" HREF="terminal_interface-curses-forms__adb.htm#ref_867_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

873

<A NAME="ref_868_31" HREF="terminal_interface-curses-forms__adb.htm#ref_867_16">Opt</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

874

pragma Import (C, Form_Opts_Off, "form_opts_off");

875

876

<A NAME="ref_871_7">Err</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

877

<A NAME="ref_872_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_73_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_651_30">Options</A>);

877

<A NAME="ref_872_7">Opt</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := FrmOS_2_CInt (<A HREF="terminal_interface-curses-forms__ads.htm#ref_651_30">Options</A>);

878

begin

879

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_652_30">On</A> then

880

<A HREF="terminal_interface-curses-forms__adb.htm#ref_871_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_864_16">Form_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_650_30">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_872_7">Opt</A>);

888

-- |

889

-- |

890

-- |

891

procedure <A NAME="ref_886_14" HREF="terminal_interface-curses-forms__ads.htm#ref_658_14">Get_Options</A> (<A NAME="ref_886_27" HREF="terminal_interface-curses-forms__ads.htm#ref_658_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

892

<A NAME="ref_887_27" HREF="terminal_interface-curses-forms__ads.htm#ref_659_27">Options</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>)

891

procedure <A NAME="ref_886_14" HREF="terminal_interface-curses-forms__ads.htm#ref_658_14">Get_Options</A> (<A NAME="ref_886_27" HREF="terminal_interface-curses-forms__ads.htm#ref_658_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

892

<A NAME="ref_887_27" HREF="terminal_interface-curses-forms__ads.htm#ref_659_27">Options</A> : out <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>)

893

is

894

function <A NAME="ref_889_16">Form_Opts</A> (<A NAME="ref_889_27">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

895

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_889_16">Form_Opts</A>, "form_opts");

894

function <A NAME="ref_889_16">Form_Opts</A> (<A NAME="ref_889_27" HREF="terminal_interface-curses-forms__adb.htm#ref_889_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

895

pragma Import (C, Form_Opts, "form_opts");

896

897

<A NAME="ref_892_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_889_16">Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_658_27">Frm</A>);

898

begin

899

<A HREF="terminal_interface-curses-forms__ads.htm#ref_659_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_77_13">CInt_2_FrmOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_892_7">Res</A>);

899

<A HREF="terminal_interface-curses-forms__ads.htm#ref_659_27">Options</A> := CInt_2_FrmOS (<A HREF="terminal_interface-curses-forms__adb.htm#ref_892_7">Res</A>);

900

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_658_14">Get_Options</A>;

901

-- |

902

-- |

903

-- |

904

function <A NAME="ref_899_13" HREF="terminal_interface-curses-forms__ads.htm#ref_663_13">Get_Options</A> (<A NAME="ref_899_26" HREF="terminal_interface-curses-forms__ads.htm#ref_663_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>

904

function <A NAME="ref_899_13" HREF="terminal_interface-curses-forms__ads.htm#ref_663_13">Get_Options</A> (<A NAME="ref_899_26" HREF="terminal_interface-curses-forms__ads.htm#ref_663_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_60_4">Null_Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>

905

is

906

<A NAME="ref_901_7">Fos</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>;

906

<A NAME="ref_901_7">Fos</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>;

907

begin

908

<A HREF="terminal_interface-curses-forms__ads.htm#ref_658_14">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_663_26">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#ref_901_7">Fos</A>);

909

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_901_7">Fos</A>;

915

-- |

916

-- |

917

-- |

918

procedure <A NAME="ref_913_14" HREF="terminal_interface-curses-forms__ads.htm#ref_672_14">Post</A> (<A NAME="ref_913_20" HREF="terminal_interface-curses-forms__ads.htm#ref_672_20">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

918

procedure <A NAME="ref_913_14" HREF="terminal_interface-curses-forms__ads.htm#ref_672_14">Post</A> (<A NAME="ref_913_20" HREF="terminal_interface-curses-forms__ads.htm#ref_672_20">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

919

<A NAME="ref_914_20" HREF="terminal_interface-curses-forms__ads.htm#ref_673_20">Post</A> : in Boolean := True)

920

is

921

function <A NAME="ref_916_16">M_Post</A> (<A NAME="ref_916_24">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

922

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_916_16">M_Post</A>, "post_form");

923

function <A NAME="ref_918_16">M_Unpost</A> (<A NAME="ref_918_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

924

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_918_16">M_Unpost</A>, "unpost_form");

921

function <A NAME="ref_916_16">M_Post</A> (<A NAME="ref_916_24" HREF="terminal_interface-curses-forms__adb.htm#ref_916_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

922

pragma Import (C, M_Post, "post_form");

923

function <A NAME="ref_918_16">M_Unpost</A> (<A NAME="ref_918_26" HREF="terminal_interface-curses-forms__adb.htm#ref_918_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

924

pragma Import (C, M_Unpost, "unpost_form");

925

926

<A NAME="ref_921_7">Res</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;

927

begin

941

-- |

942

-- |

943

-- |

944

procedure <A NAME="ref_939_14" HREF="terminal_interface-curses-forms__ads.htm#ref_683_14">Position_Cursor</A> (<A NAME="ref_939_31" HREF="terminal_interface-curses-forms__ads.htm#ref_683_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>)

944

procedure <A NAME="ref_939_14" HREF="terminal_interface-curses-forms__ads.htm#ref_683_14">Position_Cursor</A> (<A NAME="ref_939_31" HREF="terminal_interface-curses-forms__ads.htm#ref_683_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>)

945

is

946

function <A NAME="ref_941_16">Pos_Form_Cursor</A> (<A NAME="ref_941_33">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

947

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_941_16">Pos_Form_Cursor</A>, "pos_form_cursor");

946

function <A NAME="ref_941_16">Pos_Form_Cursor</A> (<A NAME="ref_941_33" HREF="terminal_interface-curses-forms__adb.htm#ref_941_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

947

pragma Import (C, Pos_Form_Cursor, "pos_form_cursor");

948

949

<A NAME="ref_944_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_941_16">Pos_Form_Cursor</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_683_31">Frm</A>);

950

begin

959

-- |

960

-- |

961

-- |

962

function <A NAME="ref_957_13" HREF="terminal_interface-curses-forms__ads.htm#ref_692_13">Data_Ahead</A> (<A NAME="ref_957_25" HREF="terminal_interface-curses-forms__ads.htm#ref_692_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return Boolean

962

function <A NAME="ref_957_13" HREF="terminal_interface-curses-forms__ads.htm#ref_692_13">Data_Ahead</A> (<A NAME="ref_957_25" HREF="terminal_interface-curses-forms__ads.htm#ref_692_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return Boolean

963

is

964

function <A NAME="ref_959_16">Ahead</A> (<A NAME="ref_959_23">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

965

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_959_16">Ahead</A>, "data_ahead");

964

function <A NAME="ref_959_16">Ahead</A> (<A NAME="ref_959_23" HREF="terminal_interface-curses-forms__adb.htm#ref_959_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

965

pragma Import (C, Ahead, "data_ahead");

966

967

<A NAME="ref_962_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_959_16">Ahead</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_692_25">Frm</A>);

968

begin

975

-- |

976

-- |

977

-- |

978

function <A NAME="ref_973_13" HREF="terminal_interface-curses-forms__ads.htm#ref_697_13">Data_Behind</A> (<A NAME="ref_973_26" HREF="terminal_interface-curses-forms__ads.htm#ref_697_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return Boolean

978

function <A NAME="ref_973_13" HREF="terminal_interface-curses-forms__ads.htm#ref_697_13">Data_Behind</A> (<A NAME="ref_973_26" HREF="terminal_interface-curses-forms__ads.htm#ref_697_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return Boolean

979

is

980

function <A NAME="ref_975_16">Behind</A> (<A NAME="ref_975_24">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

981

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_975_16">Behind</A>, "data_behind");

980

function <A NAME="ref_975_16">Behind</A> (<A NAME="ref_975_24" HREF="terminal_interface-curses-forms__adb.htm#ref_975_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

981

pragma Import (C, Behind, "data_behind");

982

983

<A NAME="ref_978_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_975_16">Behind</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_697_26">Frm</A>);

984

begin

995

-- |

996

-- |

997

-- |

998

function <A NAME="ref_993_13" HREF="terminal_interface-curses-forms__ads.htm#ref_711_13">Driver</A> (<A NAME="ref_993_21" HREF="terminal_interface-curses-forms__ads.htm#ref_711_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

998

function <A NAME="ref_993_13" HREF="terminal_interface-curses-forms__ads.htm#ref_711_13">Driver</A> (<A NAME="ref_993_21" HREF="terminal_interface-curses-forms__ads.htm#ref_711_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

999

<A NAME="ref_994_21" HREF="terminal_interface-curses-forms__ads.htm#ref_712_21">Key</A> : <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_705_9">Driver_Result</A>

1000

is

1001

function <A NAME="ref_996_16">Frm_Driver</A> (<A NAME="ref_996_28">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>; <A NAME="ref_996_40">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1002

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_996_16">Frm_Driver</A>, "form_driver");

1001

function <A NAME="ref_996_16">Frm_Driver</A> (<A NAME="ref_996_28" HREF="terminal_interface-curses-forms__adb.htm#ref_996_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>; <A NAME="ref_996_40" HREF="terminal_interface-curses-forms__adb.htm#ref_996_16">Key</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1002

pragma Import (C, Frm_Driver, "form_driver");

1003

1004

<A NAME="ref_999_7">R</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_996_16">Frm_Driver</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_711_21">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_712_21">Key</A>));

1005

begin

1025

-- |

1026

-- |

1027

-- |

1028

procedure <A NAME="ref_1023_14" HREF="terminal_interface-curses-forms__ads.htm#ref_723_14">Set_Current</A> (<A NAME="ref_1023_27" HREF="terminal_interface-curses-forms__ads.htm#ref_723_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

1029

<A NAME="ref_1024_27" HREF="terminal_interface-curses-forms__ads.htm#ref_724_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>)

1028

procedure <A NAME="ref_1023_14" HREF="terminal_interface-curses-forms__ads.htm#ref_723_14">Set_Current</A> (<A NAME="ref_1023_27" HREF="terminal_interface-curses-forms__ads.htm#ref_723_27">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

1029

<A NAME="ref_1024_27" HREF="terminal_interface-curses-forms__ads.htm#ref_724_27">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>)

1030

is

1031

function <A NAME="ref_1026_16">Set_Current_Fld</A> (<A NAME="ref_1026_33">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>; <A NAME="ref_1026_45">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1032

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1026_16">Set_Current_Fld</A>, "set_current_field");

1031

function <A NAME="ref_1026_16">Set_Current_Fld</A> (<A NAME="ref_1026_33" HREF="terminal_interface-curses-forms__adb.htm#ref_1026_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>; <A NAME="ref_1026_45" HREF="terminal_interface-curses-forms__adb.htm#ref_1026_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1032

pragma Import (C, Set_Current_Fld, "set_current_field");

1033

1034

<A NAME="ref_1029_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1026_16">Set_Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_723_27">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_724_27">Fld</A>);

1035

begin

1040

-- |

1041

-- |

1042

-- |

1043

function <A NAME="ref_1038_13" HREF="terminal_interface-curses-forms__ads.htm#ref_729_13">Current</A> (<A NAME="ref_1038_22" HREF="terminal_interface-curses-forms__ads.htm#ref_729_22">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>

1043

function <A NAME="ref_1038_13" HREF="terminal_interface-curses-forms__ads.htm#ref_729_13">Current</A> (<A NAME="ref_1038_22" HREF="terminal_interface-curses-forms__ads.htm#ref_729_22">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>

1044

is

1045

function <A NAME="ref_1040_16">Current_Fld</A> (<A NAME="ref_1040_29">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

1046

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1040_16">Current_Fld</A>, "current_field");

1045

function <A NAME="ref_1040_16">Current_Fld</A> (<A NAME="ref_1040_29" HREF="terminal_interface-curses-forms__adb.htm#ref_1040_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

1046

pragma Import (C, Current_Fld, "current_field");

1047

1048

<A NAME="ref_1043_7">Fld</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1040_16">Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_729_22">Frm</A>);

1048

<A NAME="ref_1043_7">Fld</A> : constant <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1040_16">Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_729_22">Frm</A>);

1049

begin

1050

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_1043_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

1050

if <A HREF="terminal_interface-curses-forms__adb.htm#ref_1043_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

1051

raise <A HREF="terminal_interface-curses-forms__ads.htm#ref_286_4">Form_Exception</A>;

1052

end if;

1053

return <A HREF="terminal_interface-curses-forms__adb.htm#ref_1043_7">Fld</A>;

1055

-- |

1056

-- |

1057

-- |

1058

procedure <A NAME="ref_1053_14" HREF="terminal_interface-curses-forms__ads.htm#ref_734_14">Set_Page</A> (<A NAME="ref_1053_24" HREF="terminal_interface-curses-forms__ads.htm#ref_734_24">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>;

1058

procedure <A NAME="ref_1053_14" HREF="terminal_interface-curses-forms__ads.htm#ref_734_14">Set_Page</A> (<A NAME="ref_1053_24" HREF="terminal_interface-curses-forms__ads.htm#ref_734_24">Frm</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;

1059

<A NAME="ref_1054_24" HREF="terminal_interface-curses-forms__ads.htm#ref_735_24">Page</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Page_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Page_Number</A>'First)

1060

is

1061

function <A NAME="ref_1056_16">Set_Frm_Page</A> (<A NAME="ref_1056_30">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>; <A NAME="ref_1056_42">Pg</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1062

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1056_16">Set_Frm_Page</A>, "set_form_page");

1061

function <A NAME="ref_1056_16">Set_Frm_Page</A> (<A NAME="ref_1056_30" HREF="terminal_interface-curses-forms__adb.htm#ref_1056_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>; <A NAME="ref_1056_42" HREF="terminal_interface-curses-forms__adb.htm#ref_1056_16">Pg</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1062

pragma Import (C, Set_Frm_Page, "set_form_page");

1063

1064

<A NAME="ref_1059_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1056_16">Set_Frm_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_734_24">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_735_24">Page</A>));

1065

begin

1070

-- |

1071

-- |

1072

-- |

1073

function <A NAME="ref_1068_13" HREF="terminal_interface-curses-forms__ads.htm#ref_740_13">Page</A> (<A NAME="ref_1068_19" HREF="terminal_interface-curses-forms__ads.htm#ref_740_19">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Page_Number</A>

1073

function <A NAME="ref_1068_13" HREF="terminal_interface-curses-forms__ads.htm#ref_740_13">Page</A> (<A NAME="ref_1068_19" HREF="terminal_interface-curses-forms__ads.htm#ref_740_19">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Page_Number</A>

1074

is

1075

function <A NAME="ref_1070_16">Get_Page</A> (<A NAME="ref_1070_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1076

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1070_16">Get_Page</A>, "form_page");

1075

function <A NAME="ref_1070_16">Get_Page</A> (<A NAME="ref_1070_26" HREF="terminal_interface-curses-forms__adb.htm#ref_1070_16">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1076

pragma Import (C, Get_Page, "form_page");

1077

1078

<A NAME="ref_1073_7">P</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1070_16">Get_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_740_19">Frm</A>);

1079

begin

1084

end if;

1085

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_740_13">Page</A>;

1086

1087

function <A NAME="ref_1082_13" HREF="terminal_interface-curses-forms__ads.htm#ref_745_13">Get_Index</A> (<A NAME="ref_1082_24" HREF="terminal_interface-curses-forms__ads.htm#ref_745_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return Positive

1087

function <A NAME="ref_1082_13" HREF="terminal_interface-curses-forms__ads.htm#ref_745_13">Get_Index</A> (<A NAME="ref_1082_24" HREF="terminal_interface-curses-forms__ads.htm#ref_745_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return Positive

1088

is

1089

function <A NAME="ref_1084_16">Get_Fieldindex</A> (<A NAME="ref_1084_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1090

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1084_16">Get_Fieldindex</A>, "field_index");

1089

function <A NAME="ref_1084_16">Get_Fieldindex</A> (<A NAME="ref_1084_32" HREF="terminal_interface-curses-forms__adb.htm#ref_1084_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1090

pragma Import (C, Get_Fieldindex, "field_index");

1091

1092

<A NAME="ref_1087_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1084_16">Get_Fieldindex</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_745_24">Fld</A>);

1093

begin

1104

-- |

1105

-- |

1106

-- |

1107

procedure <A NAME="ref_1102_14" HREF="terminal_interface-curses-forms__ads.htm#ref_757_14">Set_New_Page</A> (<A NAME="ref_1102_28" HREF="terminal_interface-curses-forms__ads.htm#ref_757_28">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>;

1107

procedure <A NAME="ref_1102_14" HREF="terminal_interface-curses-forms__ads.htm#ref_757_14">Set_New_Page</A> (<A NAME="ref_1102_28" HREF="terminal_interface-curses-forms__ads.htm#ref_757_28">Fld</A> : in <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;

1108

<A NAME="ref_1103_28" HREF="terminal_interface-curses-forms__ads.htm#ref_758_28">New_Page</A> : in Boolean := True)

1109

is

1110

function <A NAME="ref_1105_16">Set_Page</A> (<A NAME="ref_1105_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>; <A NAME="ref_1105_39">Flg</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1111

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1105_16">Set_Page</A>, "set_new_page");

1110

function <A NAME="ref_1105_16">Set_Page</A> (<A NAME="ref_1105_26" HREF="terminal_interface-curses-forms__adb.htm#ref_1105_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <A NAME="ref_1105_39" HREF="terminal_interface-curses-forms__adb.htm#ref_1105_16">Flg</A> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1111

pragma Import (C, Set_Page, "set_new_page");

1112

1113

<A NAME="ref_1108_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1105_16">Set_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_757_28">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#ref_758_28">New_Page</A>));

1114

begin

1119

-- |

1120

-- |

1121

-- |

1122

function <A NAME="ref_1117_13" HREF="terminal_interface-curses-forms__ads.htm#ref_763_13">Is_New_Page</A> (<A NAME="ref_1117_26" HREF="terminal_interface-curses-forms__ads.htm#ref_763_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return Boolean

1122

function <A NAME="ref_1117_13" HREF="terminal_interface-curses-forms__ads.htm#ref_763_13">Is_New_Page</A> (<A NAME="ref_1117_26" HREF="terminal_interface-curses-forms__ads.htm#ref_763_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return Boolean

1123

is

1124

function <A NAME="ref_1119_16">Is_New</A> (<A NAME="ref_1119_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1125

pragma Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#ref_1119_16">Is_New</A>, "new_page");

1124

function <A NAME="ref_1119_16">Is_New</A> (<A NAME="ref_1119_24" HREF="terminal_interface-curses-forms__adb.htm#ref_1119_16">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) return <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;

1125

pragma Import (C, Is_New, "new_page");

1126

1127

<A NAME="ref_1122_7">Res</A> : constant <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#ref_1119_16">Is_New</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_763_26">Fld</A>);

1128

begin

1133

end if;

1134

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_763_13">Is_New_Page</A>;

1135

1136

procedure <A NAME="ref_1131_14" HREF="terminal_interface-curses-forms__ads.htm#ref_135_14">Free</A> (<A NAME="ref_1131_20" HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Field_Array_Access</A>;

1137

<A NAME="ref_1132_20" HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">Free_Fields</A> : in Boolean := False)

1136

procedure <A NAME="ref_1131_14" HREF="terminal_interface-curses-forms__ads.htm#ref_136_14">Free</A> (<A NAME="ref_1131_20" HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A> : in out <A HREF="terminal_interface-curses-forms__ads.htm#ref_134_9">Field_Array_Access</A>;

1137

<A NAME="ref_1132_20" HREF="terminal_interface-curses-forms__ads.htm#ref_137_20">Free_Fields</A> : in Boolean := False)

1138

is

1139

procedure <A NAME="ref_1134_17">Release</A> is new Ada.Unchecked_Deallocation

1140

(<A HREF="terminal_interface-curses-forms__ads.htm#ref_130_9">Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Field_Array_Access</A>);

1139

procedure Release is new Ada.Unchecked_Deallocation

1140

(Field_Array, <A HREF="terminal_interface-curses-forms__ads.htm#ref_134_9">Field_Array_Access</A>);

1141

begin

1142

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A> /= null and then <A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">Free_Fields</A> then

1143

for <A NAME="ref_1138_14">I</A> in <A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A>'First .. (<A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A>'Last - 1) loop

1144

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_1138_14">I</A>) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A> then

1145

<A HREF="terminal_interface-curses-forms__ads.htm#ref_315_14">Delete</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_1138_14">I</A>));

1142

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A> /= null and then <A HREF="terminal_interface-curses-forms__ads.htm#ref_137_20">Free_Fields</A> then

1143

for <A NAME="ref_1138_14">I</A> in <A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A>'First .. (<A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A>'Last - 1) loop

1144

if <A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_1138_14">I</A>) /= <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> then

1145

<A HREF="terminal_interface-curses-forms__ads.htm#ref_315_14">Delete</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#ref_1138_14">I</A>));

1146

end if;

1147

end loop;

1148

end if;

1149

<A HREF="terminal_interface-curses-forms__adb.htm#ref_1134_17">Release</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_135_20">FA</A>);

1150

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_135_14">Free</A>;

1149

Release (<A HREF="terminal_interface-curses-forms__ads.htm#ref_136_20">FA</A>);

1150

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_136_14">Free</A>;

1151

1152

-- |=====================================================================

1153

1154

function <A NAME="ref_1149_13" HREF="terminal_interface-curses-forms__ads.htm#ref_101_13">Default_Field_Options</A> return <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field_Option_Set</A>

1155

is

1156

begin

1157

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_416_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_58_4">Null_Field</A>);

1158

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_101_13">Default_Field_Options</A>;

1159

1160

function <A NAME="ref_1155_13" HREF="terminal_interface-curses-forms__ads.htm#ref_124_13">Default_Form_Options</A> return <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form_Option_Set</A>

1161

is

1162

begin

1163

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_663_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Form</A>);

1164

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_124_13">Default_Form_Options</A>;

1165

1166

end <A HREF="terminal_interface__ads.htm#ref_41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_48_35">Forms</A>;

1154

function <A NAME="ref_1149_13" HREF="terminal_interface-curses-forms__ads.htm#ref_102_13">Default_Field_Options</A> return <A HREF="terminal_interface-curses-forms__ads.htm#ref_68_9">Field_Option_Set</A>

1155

is

1156

begin

1157

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_416_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A>);

1158

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_102_13">Default_Field_Options</A>;

1159

1160

function <A NAME="ref_1155_13" HREF="terminal_interface-curses-forms__ads.htm#ref_125_13">Default_Form_Options</A> return <A HREF="terminal_interface-curses-forms__ads.htm#ref_107_9">Form_Option_Set</A>

1161

is

1162

begin

1163

return <A HREF="terminal_interface-curses-forms__ads.htm#ref_663_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#ref_60_4">Null_Form</A>);

1164

end <A HREF="terminal_interface-curses-forms__ads.htm#ref_125_13">Default_Form_Options</A>;

1165

1166

end <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>;

1167

</PRE></BODY></HTML>