eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added buffer flushes after displaying Scanning prompts

This commit is contained in:
mysticbbs 2012-07-30 18:18:00 -04:00
parent 5674235b32
commit bee95ca79e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/bbs_filebase.pas
View File

@ -2920,8 +2920,9 @@ Var
Procedure Scan_Base; Procedure Scan_Base;
Begin Begin
Session.io.PromptInfo[1] := FBase.Name; Session.io.PromptInfo[1] := FBase.Name;
Session.io.OutBS (Screen.CursorX, True); Session.io.OutBS (Screen.CursorX, True);
Session.io.OutFull (Session.GetPrompt(87)); Session.io.OutFull (Session.GetPrompt(87));
Session.io.BufFlush;
Case ListFiles (3, Str) of Case ListFiles (3, Str) of
0 : Found := False; 0 : Found := False;
@ -2991,8 +2992,10 @@ Var
Procedure Scan_Current_Base; Procedure Scan_Current_Base;
Begin Begin
Session.io.PromptInfo[1] := FBase.Name; Session.io.PromptInfo[1] := FBase.Name;
Session.io.OutBS (Screen.CursorX, True);
Session.io.OutBS (Screen.CursorX, True);
Session.io.OutFull (Session.GetPrompt(87)); Session.io.OutFull (Session.GetPrompt(87));
Session.io.BufFlush;
Case ListFiles (2, '') of Case ListFiles (2, '') of
0 : Found := False; 0 : Found := False;