Commit f8ea097c50628283500d4090a7048e332ffdada5 - el-ixir

Handle resizes while in the man page pager. Inconsistent with the rest of the program, but it's the only place we re-check TIOCGWINSZ. Adam Borowski 6 years ago

1 changed file(s) with 13 addition(s) and 14 deletion(s). Raw diff Collapse all Expand all

+13

-14

el-ixir.pas less more

722	722	until not em
723	723	end;
724	724
	725	procedure setsize;
	726	var
	727	i:integer;
	728	begin
	729	SX:=ScreenWidth;
	730	SY:=ScreenHeight;
	731	SX2:=SX div 2;
	732	SetLength(screen, SY+1);
	733	for i:=1 to SY
	734	do SetLength(screen[i], SX+1);
	735	end;
	736
725	737	procedure quit;
726	738	begin
727	739	write(#27'[0m'#27'[2J'#27'[0;0f');

739	751	ExecuteProcess('/usr/bin/man', 'el-ixir', []);
740	752	InitCrt;
741	753	InitMouse;
	754	setsize
742	755	end;
743	756
744	757	procedure menu;

844	857	until false
845	858	end;
846	859
847
848		procedure setsize;
849		var
850		i:integer;
851		begin
852		SX:=ScreenWidth;
853		SY:=ScreenHeight;
854		SX2:=SX div 2;
855		SetLength(screen, SY+1);
856		for i:=1 to SY
857		do SetLength(screen[i], SX+1);
858		end;
859
860
861	860	var
862	861	x,y:integer;
863	862	pl:integer;