diff --git a/mystic/nodespy.pas b/mystic/nodespy.pas index 2245d8b..0e15e6e 100644 --- a/mystic/nodespy.pas +++ b/mystic/nodespy.pas @@ -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; diff --git a/mystic/nodespy_term.pas b/mystic/nodespy_term.pas index 1fa86a4..6089644 100644 --- a/mystic/nodespy_term.pas +++ b/mystic/nodespy_term.pas @@ -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;