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;
Begin
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.BufFlush;
Case ListFiles (3, Str) of
0 : Found := False;
@ -2991,8 +2992,10 @@ Var
Procedure Scan_Current_Base;
Begin
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.BufFlush;
Case ListFiles (2, '') of
0 : Found := False;