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

Minor fixes

This commit is contained in:
mysticbbs 2012-09-24 13:48:04 -04:00
parent b1f05b204f
commit 9292249228
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/nodespy.pas
View File

@ -371,7 +371,7 @@ Procedure SnoopNode (Node: Byte);
Var
Pipe : TPipe;
Buffer : Array[1..4 * 1024] of Char;
BufRead : LongWord;
BufRead : LongInt;
Update : LongInt;
Procedure DrawStatus;
@ -396,13 +396,13 @@ Var
End;
Begin
ShowMsgBox (3, 'Requesting snoop session for node ' + strI2S(Node));
ShowMsgBox (2, 'Requesting snoop session for node ' + strI2S(Node));
SendNodeMessage(Node, 11);
Pipe := TPipe.Create(Config.DataPath, True, Node);
If Not Pipe.ConnectPipe(800) Then Begin
If Not Pipe.ConnectPipe(600) Then Begin
ShowMsgBox (0, 'Unable to establish a session. Try again');
Pipe.Free;
Exit;

1
mystic/nodespy_term.pas
View File

@ -283,7 +283,6 @@ Begin
List := TMenuList.Create(Screen);
List.NoWindow := True;
List.AllowTag := False;
List.LoAttr := 7;
List.HiAttr := 9 + 1 * 16;
List.LoChars := #13#27;