[TomToadParticipant]

Fullscreen Editor is not really full screen. It is letterboxed to a 4×3 ratio and is even smaller than a non fullscreen editor. On my laptop monitor, with fullscreen window and my current font size and layout, I get 116 columns. In fullscreen editor mode, I get only 96. If I do fullscreen Window mode, and turn off all the dock views, I get 142 columns, an extra 46 columns. Problem with that solution is 1) I still get the icons and menu at top, so the vertical space is shorter, and 2) It is much easier to switch from Fullscreen editor and back with Shift-F11, instead of doing Alt-1-2-3-4-5-6-7 to switch back and forth.

What would be a nice feature is to allow any dock to become fullscreen. At times I will try and read the documentation and have to drag the window up into the editor to see more at a time. Would be handy to switch between views with a single key combination.

[TomToadParticipant]

I’ll post this here as I think this problem is related. When someone likes a post, you can’t click on any links in the post near the bottom. For example http://monkeycoder.co.nz/forums/topic/extracting-affinematrixes/#post-15276

[TomToadParticipant]

It seems a fix was already on Github. Compiles fine now.

[TomToadParticipant]

If you want to read one line at a time, you need to open a stream and use ReadLine() method

Monkey

Namespace myapp #Import "<std>" #Import "assets/test.txt" Using std.. Function Main() Local stream:Stream = Stream.Open("asset::test.txt","r") While Not stream.Eof Print stream.ReadLine() End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Namespace myapp   #Import "<std>" #Import "assets/test.txt"   Using std..   Function Main() Local stream:Stream = Stream.Open("asset::test.txt","r") While Not stream.Eof Print stream.ReadLine() End End

[TomToadParticipant]

Revenge star is an Android game made in Monkey 2.
https://play.google.com/store/apps/details?id=com.playniax.revengestar

[TomToadParticipant]

Arrays are a bit weird. A zero length array acts like a Null object, but at the same time has a Length property which it shouldn’t if the array is truly Null.

Monkey

Local IntArray:Int[] If IntArray = Null 'The array is Null Print "Array is Null" Else Print "Array is not Null" End If Print "Array length = "+IntArray.Length 'However, it still has a Length property

1 2 3 4 5 6 7 8 9

Local IntArray:Int[] If IntArray = Null 'The array is Null Print "Array is Null" Else Print "Array is not Null" End If Print "Array length = "+IntArray.Length 'However, it still has a Length property

[TomToadParticipant]

To create a zero length array, use ArrayName:Type[]. Then you can use Resize or New to add to the array

Monkey

Namespace myapp #Import "<std>" Using std.. Class Control Field Name:String Field Trigger:Bool() Field Callback:Void() End Function Main() Local Controls:Control[] '0 length controls For Local i:Int = 0 To 3 Print ("Length before adding control = "+Controls.Length) Controls = Controls.Resize(i+1) Print ("Length after adding control = "+Controls.Length) Controls[i] = New Control 'add the instance to the array Controls[i].Name = "Control #"+i Next For Local control := Eachin Controls Print control.Name Next 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

Namespace myapp   #Import "<std>"   Using std..   Class Control   Field Name:String   Field Trigger:Bool()   Field Callback:Void() End       Function Main() Local Controls:Control[] '0 length controls For Local i:Int = 0 To 3 Print ("Length before adding control = "+Controls.Length) Controls = Controls.Resize(i+1) Print ("Length after adding control = "+Controls.Length) Controls[i] = New Control 'add the instance to the array Controls[i].Name = "Control #"+i Next For Local control := Eachin Controls Print control.Name Next End

[TomToadParticipant]

Very useful. Thanks for sharing.

[TomToadParticipant]

On windows, you can use GetEnv(“appdata”) to get the aplication data directory, then append “/myprogramname/data/” to it.
Local Dir:=GetEnv(“appdata”)+”/myprogramname/data/”
CreateDir(Dir)
etc…

Don’t know if that would work on other platforms. Monkey probably should have a command like AppDataDir() to return the place to store persistent data across all platforms.

[TomToadParticipant]

Maybe possible that more data is received between lines 2 and 3 causing server.ReceiveFrom to read in more data than the buffer was originally allocated?
Maybe try something like this

Monkey

Local CanReceive:=server.CanReceive If CanReceive>0 Then buffer=New DataBuffer( CanReceive+1 ) server.ReceiveFrom( Varptr buffer, CanReceive, addr ) Print buffer.PeekUByte( 0 ) Endif

1 2 3 4 5 6

Local CanReceive:=server.CanReceive If CanReceive>0 Then buffer=New DataBuffer( CanReceive+1 ) server.ReceiveFrom( Varptr buffer, CanReceive, addr ) Print buffer.PeekUByte( 0 ) Endif

[TomToadParticipant]

Here is the code in the source.

Monkey

Method Resize( length:Int ) Local data:=Cast<UByte Ptr>( GCMalloc( length ) ) libc.memcpy( data,_data,Min( length,_length ) ) GCFree( _data ) _data=data End

1 2 3 4 5 6

Method Resize( length:Int ) Local data:=Cast<UByte Ptr>( GCMalloc( length ) ) libc.memcpy( data,_data,Min( length,_length ) ) GCFree( _data ) _data=data End

As you can see, the buffer is being resized properly. The problem is that the _length field is not being updated, so it is reporting the wrong size (and could cause an error if you read or write outside the true length).
Should be a _length = length in there somewhere.

Edit: just submitted an issue on Github.

[TomToadParticipant]

I get the same error. Don’t know why. If I run the below in a command window, I get this printed to STDOUT:
SDL_PeepEvents error:

and this printed to STDERR:
AL lib: (EE) alc_cleanup: 1 device not closed

This is true whether I compile in debug or release.
Without the timer, the SDL error disappears, but the AL error remains.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field timer:Timer Field x:int Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) timer = New Timer(60,OnUpdate) x = 0 End Method OnUpdate() x = (x+1)Mod 640 end Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "Hello World!",x,Height/2,1,.5 ) End End Function Main() New AppInstance New MyWindow 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field timer:Timer Field x:int   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) timer = New Timer(60,OnUpdate) x = 0 End Method OnUpdate() x = (x+1)Mod 640 end   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "Hello World!",x,Height/2,1,.5 ) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[TomToadParticipant]

I have the same problem with Google Drive. Never did figure out the solution for it.

[TomToadParticipant]

Didn’t even realize just how flexible using handles on text is until I started thinking about this more. Put text right where you want it without messing with too much math.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) Self.ClearColor = Color.Black End Method OnRender( canvas:Canvas ) Override App.RequestRender() Local rect:= New Rectf(100.0,30.0,Width-100.0,Height-30.0) canvas.Color = Color.Grey canvas.DrawRect(rect) canvas.Color = Color.White 'Top left canvas.DrawText("0 ",rect.Left,rect.Top,1.0,1.0) canvas.DrawText(" 1",rect.Left,rect.Top,0.0,1.0) canvas.DrawText("2 ",rect.Left,rect.Top,1.0,0.0) canvas.DrawText(" 3",rect.Left,rect.Top,0.0,0.0) 'Top Right canvas.DrawText("0 ",rect.Right,rect.Top,1.0,1.0) canvas.DrawText(" 1",rect.Right,rect.Top,0.0,1.0) canvas.DrawText("2 ",rect.Right,rect.Top,1.0,0.0) canvas.DrawText(" 3",rect.Right,rect.Top,0.0,0.0) 'Bottom Left canvas.DrawText("0 ",rect.Left,rect.Bottom,1.0,1.0) canvas.DrawText(" 1",rect.Left,rect.Bottom,0.0,1.0) canvas.DrawText("2 ",rect.Left,rect.Bottom,1.0,0.0) canvas.DrawText(" 3",rect.Left,rect.Bottom,0.0,0.0) 'Bottom Right canvas.DrawText("0 ",rect.Right,rect.Bottom,1.0,1.0) canvas.DrawText(" 1",rect.Right,rect.Bottom,0.0,1.0) canvas.DrawText("2 ",rect.Right,rect.Bottom,1.0,0.0) canvas.DrawText(" 3",rect.Right,rect.Bottom,0.0,0.0) 'Left canvas.DrawText("Left1 ",rect.Left,rect.Center.y,1.0,.5) canvas.DrawText(" Left2",rect.Left,rect.Center.y,0.0,.5) 'Right canvas.DrawText("Right1 ",rect.Right,rect.Center.y,1.0,.5) canvas.DrawText(" Right2",rect.Right,rect.Center.y,0.0,.5) 'Top canvas.DrawText("Top1",rect.Center.x,rect.Top,.5,1.0) canvas.DrawText("Top2",rect.Center.x,rect.Top,.5,0.0) 'Bottom canvas.DrawText("Bottom1",rect.Center.x,rect.Bottom,.5,1.0) canvas.DrawText("Bottom2",rect.Center.x,rect.Bottom,.5,0.0) 'Center canvas.DrawText("Center",rect.Center.x,rect.Center.y,.5,.5) End End Function Main() New AppInstance New MyWindow 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) Self.ClearColor = Color.Black End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Local rect:= New Rectf(100.0,30.0,Width-100.0,Height-30.0) canvas.Color = Color.Grey canvas.DrawRect(rect) canvas.Color = Color.White 'Top left canvas.DrawText("0 ",rect.Left,rect.Top,1.0,1.0) canvas.DrawText(" 1",rect.Left,rect.Top,0.0,1.0) canvas.DrawText("2 ",rect.Left,rect.Top,1.0,0.0) canvas.DrawText(" 3",rect.Left,rect.Top,0.0,0.0) 'Top Right canvas.DrawText("0 ",rect.Right,rect.Top,1.0,1.0) canvas.DrawText(" 1",rect.Right,rect.Top,0.0,1.0) canvas.DrawText("2 ",rect.Right,rect.Top,1.0,0.0) canvas.DrawText(" 3",rect.Right,rect.Top,0.0,0.0) 'Bottom Left canvas.DrawText("0 ",rect.Left,rect.Bottom,1.0,1.0) canvas.DrawText(" 1",rect.Left,rect.Bottom,0.0,1.0) canvas.DrawText("2 ",rect.Left,rect.Bottom,1.0,0.0) canvas.DrawText(" 3",rect.Left,rect.Bottom,0.0,0.0) 'Bottom Right canvas.DrawText("0 ",rect.Right,rect.Bottom,1.0,1.0) canvas.DrawText(" 1",rect.Right,rect.Bottom,0.0,1.0) canvas.DrawText("2 ",rect.Right,rect.Bottom,1.0,0.0) canvas.DrawText(" 3",rect.Right,rect.Bottom,0.0,0.0) 'Left canvas.DrawText("Left1 ",rect.Left,rect.Center.y,1.0,.5) canvas.DrawText(" Left2",rect.Left,rect.Center.y,0.0,.5) 'Right canvas.DrawText("Right1 ",rect.Right,rect.Center.y,1.0,.5) canvas.DrawText(" Right2",rect.Right,rect.Center.y,0.0,.5) 'Top canvas.DrawText("Top1",rect.Center.x,rect.Top,.5,1.0) canvas.DrawText("Top2",rect.Center.x,rect.Top,.5,0.0) 'Bottom canvas.DrawText("Bottom1",rect.Center.x,rect.Bottom,.5,1.0) canvas.DrawText("Bottom2",rect.Center.x,rect.Bottom,.5,0.0) 'Center canvas.DrawText("Center",rect.Center.x,rect.Center.y,.5,.5)       End End   Function Main()   New AppInstance New MyWindow App.Run() End

Edit: Thinking this would be good in the Code Library.

[TomToadParticipant]

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Local text:="Hello World!" Local rightX:= Width-canvas.Font.TextWidth(text) 'left justify canvas.DrawText(text,0,10) 'right justify canvas.DrawText(text,rightX,30) 'center justify canvas.DrawText(text,rightX/2,60) 'or canvas.DrawText(text,Width/2,90,.5,0 ) '<-use handles End End Function Main() New AppInstance New MyWindow 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Local text:="Hello World!" Local rightX:= Width-canvas.Font.TextWidth(text) 'left justify canvas.DrawText(text,0,10) 'right justify canvas.DrawText(text,rightX,30) 'center justify canvas.DrawText(text,rightX/2,60) 'or canvas.DrawText(text,Width/2,90,.5,0 ) '<-use handles   End End   Function Main()   New AppInstance New MyWindow App.Run() End

[Author]

Posts