Maybe bug?

[GwenelParticipant]

I tried this graphical example on my friends MacOS and it if you happen to have an enlarged mousepointer (Settings/Accessibility/Display/Cursorsize) then you get a blinking grey rectangle flashing underneath the Mousepointer.

I don’t know if this is Monkey2 related or OS related but, there it is.
Sorry about the fact that I couldn’t take a screenshot of it because it always takes the picture when the rectangle is out of the picture.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field image1:Image Field image2:Image Field image3:Image Field cnvs:Canvas Field img:Image Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) image1 = New Image(100,100) cnvs = New Canvas(image1) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(1,0,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() image2 = New Image(100,100) cnvs = New Canvas(image2) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(1,0,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() image3 = New Image(100,100) cnvs = New Canvas(image3) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(0,1,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() img = New Image(640,480) cnvs = New Canvas(img) cnvs.Clear(New Color(0,0,0,0)) ' SwapInterval = 0 End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.Clear(Color.Grey) canvas.Color=Color.Black canvas.DrawRect(200,0,200,400) canvas.Color =Color.White cnvs.Clear(New Color(0,0,0,0)) 'cnvs.BlendMode=BlendMode.Alpha cnvs.DrawImage(image1,150,50) cnvs.DrawImage(image2,100,100) cnvs.BlendMode=BlendMode.Additive cnvs.DrawImage(image3,Mouse.X-50,Mouse.Y-50) cnvs.Flush() canvas.DrawImage(img,0,0) 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

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field image1:Image Field image2:Image Field image3:Image Field cnvs:Canvas Field img:Image Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) image1 = New Image(100,100) cnvs = New Canvas(image1) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(1,0,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() image2 = New Image(100,100) cnvs = New Canvas(image2) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(1,0,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() image3 = New Image(100,100) cnvs = New Canvas(image3) cnvs.Clear(New Color(0,0,0,0)) cnvs.Color= New Color(0,1,0) cnvs.DrawCircle(50,50,50) cnvs.Flush() img = New Image(640,480) cnvs = New Canvas(img) cnvs.Clear(New Color(0,0,0,0)) ' SwapInterval = 0 End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.Clear(Color.Grey) canvas.Color=Color.Black canvas.DrawRect(200,0,200,400) canvas.Color =Color.White cnvs.Clear(New Color(0,0,0,0)) 'cnvs.BlendMode=BlendMode.Alpha cnvs.DrawImage(image1,150,50) cnvs.DrawImage(image2,100,100) cnvs.BlendMode=BlendMode.Additive cnvs.DrawImage(image3,Mouse.X-50,Mouse.Y-50) cnvs.Flush() canvas.DrawImage(img,0,0) End End Function Main() New AppInstance New MyWindow App.Run() End

[AdamStrangeParticipant]

What version of Monkey are you using and also what MacOS version.

Tested with V1.1.05 and High Sierra and it works no problem here

[JesseParticipant]

Works fine here as well. 2013 MacBook Air, OS Sierra and the latest Monkey 2.

[GwenelParticipant]

It works well here too without enlarged pointer I might need to say.

Could you please enlarge it to max (or midsize, anything than original size really) and try it? You do that in System Preferences / Accessibility / Cursor size

[JesseParticipant]

Dude, I know how to read. Thats what I did and it worked fine. I tried it max size medium and small it worked fine with all.

[AdamStrangeParticipant]

me too. enlarged pointer no problem

[GwenelParticipant]

Okay so my friend reinstalled MacOS and he still got the same effect, I don’t know what to do now.

[GwenelParticipant]

I said what everyone said here and I added that it was probably the old model so he got down and bought a Apple iMac 27″ 5k Retina, lo and behold, it now WORKS!

Thanks so much for trying things out

[AdamStrangeParticipant]

what was the old hardware he was trying to run it on?

[Author]

Posts