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

Screen is not redrawn after a shell if it is inactive.

This commit is contained in:
mysticbbs 2012-07-14 15:03:58 -04:00
parent b5f073ed25
commit 51875b54df
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mystic/bbs_common.pas
View File

@ -169,10 +169,6 @@ Begin
End; End;
Function ShellDOS (ExecPath: String; Command: String) : LongInt; Function ShellDOS (ExecPath: String; Command: String) : LongInt;
{$IFNDEF UNIX}
Var
Image : TConsoleImageRec;
{$ENDIF}
Begin Begin
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
ExecInheritsHandles := True; ExecInheritsHandles := True;
@ -186,7 +182,6 @@ Begin
End; End;
{$IFNDEF UNIX} {$IFNDEF UNIX}
Screen.GetScreenImage(1, 1, 80, 25, Image);
Screen.SetWindow (1, 1, 80, 25, False); Screen.SetWindow (1, 1, 80, 25, False);
Screen.TextAttr := 7; Screen.TextAttr := 7;
Screen.ClearScreen; Screen.ClearScreen;
@ -228,8 +223,10 @@ Begin
Reset (Session.PromptFile); Reset (Session.PromptFile);
{$IFNDEF UNIX} {$IFNDEF UNIX}
Screen.PutScreenImage(Image); If Screen.Active Then
UpdateStatusLine(StatusPtr, ''); Session.io.LocalScreenEnable
Else
Session.io.LocalScreenDisable;
{$ENDIF} {$ENDIF}
Session.TimeOut := TimerSeconds; Session.TimeOut := TimerSeconds;