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

1
mystic/nodespy_term.pas
View File

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