[SamFisherParticipant]

Windows Defender delete the complete folder or only the exe?
It’s the same with me from time to time that Defender delete a compiled exe. My solution was, to exclude the folders in Defender.
To release a Application, you need maybe a digital signature?!

[SamFisherParticipant]

latest graphicard driver installed?!

I had the same problem, but after updating it worked. HP notebook 7 years old.

[SamFisherParticipant]

Monkey2 only support single windows at the moment.
But i use a modded Ted2go version do undock the views(Output,Debug etc)
So it works for me(unofficially more than one window works). Also you can use Monkey2 with more than one screen.

Tested in Windows 10 x64, Window 7 x64, x32 and Ubuntu 18.04 LTs X64

[SamFisherParticipant]

nice

[SamFisherParticipant]

Very good work

I love the editor, but one feature i still miss. Local vars not parse. See Gif.
And is it possible to make a fullsreen mode, like Sublime Text

Attachments:

1. 

   local-parser.gif
   

[SamFisherParticipant]

Maybe this?!

Monkey

Function CurrentDate:String() Local t:Time=Time.Now() Local ts:String=t.ToString() Return ts.Slice(4,15) End Function CurrentTime:String() Local t:Time=Time.Now() Local ts:String=t.ToString() Return ts.Slice(16) End

1 2 3 4 5 6 7 8 9 10 11 12

Function CurrentDate:String() Local t:Time=Time.Now() Local ts:String=t.ToString() Return ts.Slice(4,15) End Function CurrentTime:String() Local t:Time=Time.Now() Local ts:String=t.ToString() Return ts.Slice(16) End

[SamFisherParticipant]

On my machine(Windows 10, monkey2 1.1.07) no error…

[SamFisherParticipant]

Little late, but here a little Chat Server/Client App for 1.1.07

Server.monkey2

Monkey

Namespace serverChatSample #import "<std>" #import "<mojo>" Using std.. Using mojo.. Const HOST:="localhost" 'Note: Use "" for 'public' host? Const PORT:=40122 Class ServerDemo Method New() New Fiber( Server ) End Method Server() Local server:=Socket.Listen( HOST,PORT ) If Not server Print "Server: Failed to create server" ; Return Print "Server @"+server.Address+" listening" server.SetOption( "SO_REUSEADDR",1 ) server.SetOption( "TCP_NODELAY",1 ) Repeat Local socket:=server.Accept() If Not socket Exit Print "Server accepted client @"+socket.PeerAddress Local stream:=New SocketStream( socket ) New Fiber( Lambda() Repeat Local line:=stream.ReadSizedString() Local command:String Local _var1:String If Not line Exit Print line+" from client @"+socket.PeerAddress If(line.Contains("/_join_ "))Then New Client(line.Replace("/_join_ ",""),socket,stream) line="" Endif if(line.Contains("/"))Then Local c:string[]=line.Split(" ") Print c.Length If(c.Length>1) command=c[0] _var1=c[1] Endif line="" Endif If(command) line="" Select command Case "/nick" line="***"+Client.ReturnUserName(socket)+" is now known as "+_var1 Client.ChangeUserName(socket, _var1) Default line="WRONG COMMAND" End Select Endif If(line) if(command) command="" _var1="" Else line=Client.ReturnUserName(socket)+": "+line Endif 'Sending to all For Local c:Client=Eachin Client.clientList c.clientSocketStream.WriteSizedString(line) Next Endif Forever stream.Close();Print "Stream Closed" End ) Forever Print "Server:Bye" server.Close() End End 'Client Class Class Client Field clientSocket :Socket Field clientName :String Field clientSocketStream :SocketStream Global clientList :List<Client> = New List<Client> Method New(name:String, socket:Socket, stream:SocketStream) Self.clientSocket=socket Self.clientName=name Self.clientSocketStream=stream clientList.AddLast(Self) End Function ReturnUserName:String(socket:Socket) For Local c:Client=Eachin Client.clientList if(c.clientSocket.PeerAddress=socket.PeerAddress)Then Return c.clientName Next Return "Anonymous" End Function ChangeUserName(socket:Socket, newName:String) For Local c:Client=Eachin Client.clientList if(c.clientSocket.PeerAddress=socket.PeerAddress)Then c.clientName=newName Next End End '--Main Function Main() New AppInstance New ServerDemo App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153

Namespace serverChatSample   #import "<std>" #import "<mojo>"   Using std.. Using mojo..   Const HOST:="localhost" 'Note: Use "" for 'public' host? Const PORT:=40122   Class ServerDemo   Method New() New Fiber( Server ) End Method Server() Local server:=Socket.Listen( HOST,PORT ) If Not server Print "Server: Failed to create server" ; Return Print "Server @"+server.Address+" listening" server.SetOption( "SO_REUSEADDR",1 )   server.SetOption( "TCP_NODELAY",1 ) Repeat Local socket:=server.Accept() If Not socket Exit Print "Server accepted client @"+socket.PeerAddress Local stream:=New SocketStream( socket ) New Fiber( Lambda() Repeat Local line:=stream.ReadSizedString() Local command:String Local _var1:String If Not line Exit Print line+" from client @"+socket.PeerAddress If(line.Contains("/_join_ "))Then New Client(line.Replace("/_join_ ",""),socket,stream) line="" Endif if(line.Contains("/"))Then Local c:string[]=line.Split(" ") Print c.Length If(c.Length>1) command=c[0] _var1=c[1] Endif line="" Endif If(command) line="" Select command Case "/nick" line="***"+Client.ReturnUserName(socket)+" is now known as "+_var1 Client.ChangeUserName(socket, _var1) Default line="WRONG COMMAND" End Select Endif If(line) if(command) command="" _var1="" Else line=Client.ReturnUserName(socket)+": "+line Endif 'Sending to all For Local c:Client=Eachin Client.clientList c.clientSocketStream.WriteSizedString(line) Next Endif Forever stream.Close();Print "Stream Closed" End ) Forever Print "Server:Bye" server.Close() End   End   'Client Class Class Client   Field clientSocket :Socket Field clientName :String Field clientSocketStream :SocketStream Global clientList :List<Client> = New List<Client> Method New(name:String, socket:Socket, stream:SocketStream) Self.clientSocket=socket Self.clientName=name Self.clientSocketStream=stream clientList.AddLast(Self) End Function ReturnUserName:String(socket:Socket) For Local c:Client=Eachin Client.clientList if(c.clientSocket.PeerAddress=socket.PeerAddress)Then Return c.clientName Next Return "Anonymous" End Function ChangeUserName(socket:Socket, newName:String) For Local c:Client=Eachin Client.clientList if(c.clientSocket.PeerAddress=socket.PeerAddress)Then c.clientName=newName Next End End '--Main Function Main() New AppInstance New ServerDemo App.Run() End

Client.monkey2

Monkey

Namespace clientChatSample #Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Const HOST:="localhost" 'Note: Use "" for 'public' host? Const PORT:=40122 Class ClientDemo Extends Window Global sendLine :String Global firstrun :Bool Global mainView :DockingView Global chatView :TextView Global inputField :TextField Global sendButton :Button Global stream :SocketStream Global client :Socket Method New() Super.New( "Client Chat Sample", 800, 600, WindowFlags.Resizable ) '---- chatView=New TextView chatView.ReadOnly=True chatView.Text="Commands without quotes:~n'/exit' Terminate the Chat Client~n'/nick newUserName' Change the UserName~n" inputField=New TextField inputField.Text="user"+Millisecs()'Randome User Name sendButton=New Button("Send") '---- mainView=New DockingView mainView.AddView(chatView,"top","90%") mainView.AddView(inputField,"left","90%") mainView.AddView(sendButton,"right","10%") Local sendLineLambda:=Lambda() sendLine=inputField.Text inputField.Text="" 'chatline Commands Select sendLine Case "/exit" 'Terminate App App.Terminate() End Select If Not(firstrun) New Fiber( Client ) Endif End '---- sendButton.Clicked=Lambda() sendLineLambda() End '---- inputField.Entered=Lambda() sendLineLambda() End ContentView=mainView End Method Client() Local receiveLength:Int chatView.AppendText("Client: Try to connect to Server("+HOST+":"+PORT+")~n") Fiber.Sleep( .5 ) client=Socket.Connect( HOST,PORT ) If Not client 'Print "Client: Couldn't connect to server" chatView.AppendText("Client: Couldn't connect to server~n") Return Endif 'Print "Client @"+client.Address+" connected to server @"+client.PeerAddress chatView.AppendText("Connected to server @"+client.PeerAddress+"~n") client.SetOption( "TCP_NODELAY",1 ) stream=New SocketStream( client ) Repeat if(sendLine) If not(firstrun) stream.WriteSizedString("/_join_ "+sendLine) firstrun=True Else stream.WriteSizedString(sendLine) Endif sendLine="" Endif if(receiveLength<client.CanReceive) chatView.AppendText(stream.ReadSizedString()+"~n") receiveLength=client.CanReceive Endif Fiber.Sleep(.01) Forever Print "Client:Bye" stream.Close() End End '--Main Function Main() New AppInstance New ClientDemo App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142

Namespace clientChatSample   #Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Const HOST:="localhost" 'Note: Use "" for 'public' host? Const PORT:=40122     Class ClientDemo Extends Window Global sendLine :String Global firstrun :Bool Global mainView :DockingView Global chatView :TextView Global inputField :TextField Global sendButton :Button Global stream :SocketStream Global client :Socket Method New() Super.New( "Client Chat Sample", 800, 600, WindowFlags.Resizable ) '---- chatView=New TextView chatView.ReadOnly=True chatView.Text="Commands without quotes:~n'/exit' Terminate the Chat Client~n'/nick newUserName' Change the UserName~n" inputField=New TextField inputField.Text="user"+Millisecs()'Randome User Name sendButton=New Button("Send") '---- mainView=New DockingView mainView.AddView(chatView,"top","90%") mainView.AddView(inputField,"left","90%") mainView.AddView(sendButton,"right","10%") Local sendLineLambda:=Lambda() sendLine=inputField.Text inputField.Text="" 'chatline Commands Select sendLine Case "/exit" 'Terminate App App.Terminate() End Select If Not(firstrun) New Fiber( Client ) Endif End '---- sendButton.Clicked=Lambda() sendLineLambda() End '---- inputField.Entered=Lambda() sendLineLambda() End ContentView=mainView End   Method Client() Local receiveLength:Int   chatView.AppendText("Client: Try to connect to Server("+HOST+":"+PORT+")~n") Fiber.Sleep( .5 ) client=Socket.Connect( HOST,PORT ) If Not client 'Print "Client: Couldn't connect to server" chatView.AppendText("Client: Couldn't connect to server~n") Return Endif 'Print "Client @"+client.Address+" connected to server @"+client.PeerAddress chatView.AppendText("Connected to server @"+client.PeerAddress+"~n") client.SetOption( "TCP_NODELAY",1 ) stream=New SocketStream( client ) Repeat if(sendLine) If not(firstrun) stream.WriteSizedString("/_join_ "+sendLine) firstrun=True Else stream.WriteSizedString(sendLine) Endif sendLine="" Endif if(receiveLength<client.CanReceive) chatView.AppendText(stream.ReadSizedString()+"~n") receiveLength=client.CanReceive Endif Fiber.Sleep(.01) Forever Print "Client:Bye" stream.Close() End End '--Main Function Main()   New AppInstance New ClientDemo App.Run()   End

[SamFisherParticipant]

I miss Autocomplete for local…is this a design choice?

Nice IDE btw

[Author]

Posts