98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
function Fit_In_Line
(Output : in Printer;
Width : in Screen_Offset)
return Boolean is
begin
return Output.Param.Width = 0
or Output.Param.Width >= Output.Cursor + Width;
end Fit_In_Line;
function Indent_Width (Output : in Printer) return Screen_Offset is
begin
if Output.Indent_Level > 0 and Output.Param.Indentation > 0 then
case Output.Param.Indent is
|
|
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
function Fit_In_Line
(Output : in Printer;
Width : in Screen_Offset)
return Boolean is
begin
return Output.Param.Width = 0
or Output.Param.Width >= Output.Cursor - 1 + Width;
end Fit_In_Line;
function Indent_Width (Output : in Printer) return Screen_Offset is
begin
if Output.Indent_Level > 0 and Output.Param.Indentation > 0 then
case Output.Param.Indent is
|