[impixiParticipant]

Can’t you just use MX2’s built-in event handling mechanisms to generate mouse movement events? Eg:

Monkey

[crayon-5cba87d85a068672525172 inline="true" ]#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() canvas.DrawText( "Press space...",Width/2,Height/2,.5,.5 ) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyRepeat If event.Key = Key.Space Print "Spacebar pressed." Local loc:Vec2i Local wheel:Vec2i Local modi:Modifier Local clicks := 0 Local button := MouseButton.Left SendMouseEvent(New MouseEvent(EventType.MouseMove, Self, loc, button, wheel, modi, clicks)) Endif Endif End Method OnMouseEvent(event:MouseEvent) Override If event.Type = EventType.MouseClick Then Print "CLICK!" If event.Type = EventType.MouseMove Print "Mouse moved." Endif 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

[crayon-5cba87d85a068672525172 inline="true" ]#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() canvas.DrawText( "Press space...",Width/2,Height/2,.5,.5 ) End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyRepeat If event.Key = Key.Space Print "Spacebar pressed." Local loc:Vec2i Local wheel:Vec2i Local modi:Modifier Local clicks := 0 Local button := MouseButton.Left SendMouseEvent(New MouseEvent(EventType.MouseMove, Self, loc, button, wheel, modi, clicks)) Endif Endif End Method OnMouseEvent(event:MouseEvent) Override If event.Type = EventType.MouseClick Then Print "CLICK!" If event.Type = EventType.MouseMove Print "Mouse moved." Endif End End   Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

[impixiParticipant]

There’s a bug in the Window.BeginFullscreen method. I posted an issue on Github…

When it’s fixed the following *rough* example should work. It gets your primary display’s supported modes and allows you to switch through them at run time:

Monkey

[crayon-5cba87d85fd30400056555 inline="true" ]#Import "<std>" #Import "<sdl2>" #Import "<mojo>" Using std.. Using sdl2.. Using mojo.. Function Main() New AppInstance New MyWindow App.Run() End Class MyWindow Extends Window Field _curScreenMode:ScreenMode Field _curScreenModeStr:String Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) 'In this example, assuming mojo is using SDL display id = 0. ScreenMode.GetAll(0) ScreenMode.DebugPrintAll() If ScreenMode.Stack.Length <= 0 Print "ERROR: Could not find a valid screen mode." App.Terminate() End SetScreenMode(0) End Method SetScreenMode:Void(idx:int) If Fullscreen Then EndFullscreen() If idx < 0 Or idx >= ScreenMode.Stack.Length Then idx = 0 _curScreenMode = ScreenMode.Stack[idx] _curScreenModeStr = _curScreenMode.ToString() BeginFullscreen(_curScreenMode.Width, _curScreenMode.Height, _curScreenMode.Rate) App.RequestRender() End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("[TAB] - toggle fullscreen, [LEFT] [RIGHT] change screen mode.", Width / 2, Height / 4, 0.5, 0.5) canvas.DrawText(_curScreenModeStr, Width / 2, Height / 2, 0.5, 0.5) canvas.Flush() End Method OnKeyEvent:Void(event:KeyEvent) Override If event.Type = EventType.KeyDown Select event.Key Case Key.Escape App.Terminate() Case Key.Tab If Fullscreen Then EndFullscreen() Else SetScreenMode(_curScreenMode.ModeId) Case Key.Left SetScreenMode(_curScreenMode.ModeId - 1) Case Key.Right SetScreenMode(_curScreenMode.ModeId + 1) End Endif End End Class ScreenMode 'TODO: DPI information for each display? Public Global Stack:Stack<ScreenMode> Function GetAll:Void(displayId:Int = -1) Stack = New Stack<ScreenMode> Local numDisplays := SDL_GetNumVideoDisplays() For Local i:Int = 0 Until numDisplays 'Only include modes matvhing the specified displayId 'otherwise if < 0 then inlclude all modes for all detected displays. If displayId >= 0 And i <> displayId Then Continue Local displayName := String.FromCString(SDL_GetDisplayName(i)) Local numModes := SDL_GetNumDisplayModes(i) For Local j := 0 Until numModes Local displayMode:SDL_DisplayMode Local displayModePtr:SDL_DisplayMode Ptr = Varptr displayMode SDL_GetDisplayMode(i, j, displayModePtr) Stack.Push(New ScreenMode(i, j, displayMode)) Next Next End Function DebugPrintAll:Void() For Local mode := Eachin Stack Print mode.ToString() Next End '---------- Private Field _displayId:Int Field _modeId:Int Field _mode:SDL_DisplayMode Public Method New(displayId:Int, modeId:Int, mode:SDL_DisplayMode) _displayId = displayId _modeId = modeId _mode = mode End Property DisplayId:Int() Return _displayId End Property ModeId:Int() Return _modeId End Property Width:Int() Return _mode.w End Property Height:Int() Return _mode.h End Property Rate:Int() Return _mode.refresh_rate End Method ToString:String() Local str := "(" + _displayId + ") " + String.FromCString(SDL_GetDisplayName(_displayId)) str += " -- [" + _modeId + "] " + _mode.w + "x" + _mode.h + " @ " + _mode.refresh_rate + "hz" Return str End 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 154 155 156 157 158 159 160 161 162 163

[crayon-5cba87d85fd30400056555 inline="true" ]#Import "<std>" #Import "<sdl2>" #Import "<mojo>"   Using std.. Using sdl2.. Using mojo..   Function Main() New AppInstance New MyWindow App.Run() End   Class MyWindow Extends Window   Field _curScreenMode:ScreenMode Field _curScreenModeStr:String   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) 'In this example, assuming mojo is using SDL display id = 0. ScreenMode.GetAll(0) ScreenMode.DebugPrintAll()   If ScreenMode.Stack.Length <= 0 Print "ERROR: Could not find a valid screen mode." App.Terminate() End SetScreenMode(0) End   Method SetScreenMode:Void(idx:int) If Fullscreen Then EndFullscreen()   If idx < 0 Or idx >= ScreenMode.Stack.Length Then idx = 0 _curScreenMode = ScreenMode.Stack[idx] _curScreenModeStr = _curScreenMode.ToString() BeginFullscreen(_curScreenMode.Width, _curScreenMode.Height, _curScreenMode.Rate)   App.RequestRender() End   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("[TAB] - toggle fullscreen, [LEFT] [RIGHT] change screen mode.", Width / 2, Height / 4, 0.5, 0.5) canvas.DrawText(_curScreenModeStr, Width / 2, Height / 2, 0.5, 0.5) canvas.Flush() End Method OnKeyEvent:Void(event:KeyEvent) Override If event.Type = EventType.KeyDown   Select event.Key Case Key.Escape App.Terminate() Case Key.Tab If Fullscreen Then EndFullscreen() Else SetScreenMode(_curScreenMode.ModeId) Case Key.Left SetScreenMode(_curScreenMode.ModeId - 1) Case Key.Right SetScreenMode(_curScreenMode.ModeId + 1)   End Endif End End   Class ScreenMode 'TODO: DPI information for each display? Public Global Stack:Stack<ScreenMode> Function GetAll:Void(displayId:Int = -1) Stack = New Stack<ScreenMode> Local numDisplays := SDL_GetNumVideoDisplays() For Local i:Int = 0 Until numDisplays 'Only include modes matvhing the specified displayId 'otherwise if < 0 then inlclude all modes for all detected displays. If displayId >= 0 And i <> displayId Then Continue Local displayName := String.FromCString(SDL_GetDisplayName(i)) Local numModes := SDL_GetNumDisplayModes(i) For Local j := 0 Until numModes Local displayMode:SDL_DisplayMode Local displayModePtr:SDL_DisplayMode Ptr = Varptr displayMode SDL_GetDisplayMode(i, j, displayModePtr) Stack.Push(New ScreenMode(i, j, displayMode)) Next Next End Function DebugPrintAll:Void() For Local mode := Eachin Stack Print mode.ToString() Next End '---------- Private Field _displayId:Int Field _modeId:Int Field _mode:SDL_DisplayMode Public Method New(displayId:Int, modeId:Int, mode:SDL_DisplayMode) _displayId = displayId _modeId = modeId _mode = mode End Property DisplayId:Int() Return _displayId End Property ModeId:Int() Return _modeId End Property Width:Int() Return _mode.w End Property Height:Int() Return _mode.h End Property Rate:Int() Return _mode.refresh_rate End Method ToString:String() Local str := "(" + _displayId + ") " + String.FromCString(SDL_GetDisplayName(_displayId)) str += " -- [" + _modeId + "] " + _mode.w + "x" + _mode.h + " @ " + _mode.refresh_rate + "hz" Return str End End

[/crayon]

[impixiParticipant]

@jesse

Your TestE function is wrong. Hint: it has something to do with your while condition.

EDIT: Okay here’s a solution (because Lists in MX2 are apparently circular):

Monkey

[crayon-5cba87d867d4b049406553 inline="true" ]Function TestE() 'E Local firstNode := Collection_.ToNode() Local node := firstNode Repeat 'Do something useful here. node = node.Succ Until node = firstNode End Function

1 2 3 4 5 6 7 8 9 10 11

[crayon-5cba87d867d4b049406553 inline="true" ]Function TestE() 'E Local firstNode := Collection_.ToNode() Local node := firstNode Repeat 'Do something useful here. node = node.Succ Until node = firstNode End Function

[/crayon]

[impixiParticipant]

On iOS and MacOS, assuming I understand the information in this link:

https://developer.apple.com/library/content/documentation/FileManagement/Conceptual/FileSystemProgrammingGuide/FileSystemOverview/FileSystemOverview.html

Persistent user-specific files like app configuration and save game files should be stored in the user’s Library folder.

eg:
Users/Dude/Library/Application Support/TheGame/options.cfg
Users/Dude/Library/Application Support/TheGame/save001.dat
etc..

[impixiParticipant]

Try this:

Monkey

[crayon-5cba87d86d3c9666716273 inline="true" ] #Import "<std>" #Import "table.data" Using std.. Function Main() Local url := AssetsDir() + "table.data" Local dataIn := FileStream.Open(url, "r") If Not dataIn RuntimeError("unable to find data file: " + url) Else While Not dataIn.Eof Print dataIn.ReadByte() Wend dataIn.Close() End End

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

[crayon-5cba87d86d3c9666716273 inline="true" ] #Import "<std>" #Import "table.data"   Using std..   Function Main() Local url := AssetsDir() + "table.data" Local dataIn := FileStream.Open(url, "r") If Not dataIn RuntimeError("unable to find data file: " + url) Else While Not dataIn.Eof Print dataIn.ReadByte() Wend dataIn.Close() End End

[/crayon]

[impixiParticipant]

Well, that was simpler than I thought. Works on MacOSX, untested on Windows. It pays to poke around monkey2’s source code (I merely copied and modified the DesktopDir function).

Monkey

[crayon-5cba87d870afe306330703 inline="true" ]#Import "<std>" #Import "<libc>" Using std.. Using libc.. Function Main() Print DocumentsDir() End Function DocumentsDir:String() #If __TARGET__="windows" Return (String.FromCString( getenv( "HOMEDRIVE" ) )+String.FromCString( getenv( "HOMEPATH" ) )).Replace( "\","/" )+"/Documents/" #Else If __DESKTOP_TARGET__ Return String.FromCString( getenv( "HOME" ) )+"/Documents/" #Endif Return "" End

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

[crayon-5cba87d870afe306330703 inline="true" ]#Import "<std>" #Import "<libc>"   Using std.. Using libc..   Function Main()   Print DocumentsDir()   End   Function DocumentsDir:String() #If __TARGET__="windows" Return (String.FromCString( getenv( "HOMEDRIVE" ) )+String.FromCString( getenv( "HOMEPATH" ) )).Replace( "\","/" )+"/Documents/" #Else If __DESKTOP_TARGET__ Return String.FromCString( getenv( "HOME" ) )+"/Documents/" #Endif Return "" End

[/crayon]

EDIT: And it works in place of the DesktopDir() function in my earlier file creation/reading/writing test code. Just remember to import libc..

[impixiParticipant]

Actually, it would be nice if I could do this on MacOS X to access/read/write to the user’s Documents directory:

Monkey

[crayon-5cba87d8741bf007199269 inline="true" ]#Import "<std>" Using std.. Function Main() Local url:="~~/Documents" Print url ChangeDir(url) Local docs := LoadDir(".") For Local doc := Eachin docs Print doc Next End

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

[crayon-5cba87d8741bf007199269 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local url:="~~/Documents" Print url ChangeDir(url) Local docs := LoadDir(".") For Local doc := Eachin docs Print doc Next End

[/crayon]

But, alas, it’s not that simple.

[impixiParticipant]

I think we need to expose a few additional folders so we can do our file handling in a more “appropriate” manner, ie according to modern expectations.

Here’s a good link for iOS / MacOS X:

https://developer.apple.com/library/content/documentation/FileManagement/Conceptual/FileSystemProgrammingGuide/FileSystemOverview/FileSystemOverview.html

I don’t have time right now, but later I’ll have a crack at exposing the Documents and Library folders via a wrapper or maybe a modification to std.filesystem (if nobody else does it first).

I haven’t looked into the other target platforms yet, but the principles are the same IIRC. In any case I need the functionality for Mac OS X and Windows 10, so minimally that’s what I need to get working at some point…

IIRC Brucey had a “bah.volumes” BlitzMax module that exposed appropriate folders/directories on the various platforms – I wonder if any of that c/c++ native code would be useful for us…

[impixiParticipant]

Monkey 2’s file streaming capabilities have some “quirks” depending on the target platform. (eg The “rw” mode is not working for me on MacOS). You’re also limited to the file types you can “#Import”.

You can, however, create, load and save files at runtime. The location of the created files will depend on the target platform and the chosen target directory.

Here’s an example that creates, saves and loads one text and one binary file to your desktop (tested on MacOS, might encounter file permission issues on other platforms?)

Monkey

[crayon-5cba87d87a07f019010053 inline="true" ] #Import "<std>" Using std.. Function Main() Local urlText := DesktopDir() + "test.csv" Local urlBinary := DesktopDir() + "test.dat" Local scores := New Scores() '****Check if our text-based csv file already exists. Local file := FileStream.Open(urlText, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Bob, 200~nAnna, 220~nMick, 18~nAi, 333") scores.SaveCSV(urlText) Else file.Close() Endif '**** '****Check if our binary data file already exists. file = FileStream.Open(urlBinary, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Don, 0~nPeta, 499~nStu, 88~nCarl, 600") scores.SaveBinary(urlBinary) Else file.Close() Endif '**** 'Load Both files into our scores manager and print them all. scores.LoadCSV(urlText) scores.LoadBinary(urlBinary, True) scores.PrintAll() End '-------------- Class Scores Private Field _scores:Stack<Score> Public Method New() _scores = New Stack<Score> End Method LoadCSV:Void(url:String) If Not url Then Return ParseCSV(LoadString(url)) End Method SaveCSV:Void(url:String) If Not url Then Return If Not _scores Then Return Local str:String For Local score := eachin _scores str += score.ToCSVString() End If Not SaveString(str, url) Print "Could not save csv file: " + url Endif End Method ParseCSV:Void(csvDB:String, append:Bool = False) If Not csvDB Or csvDB.Length <= 0 Print "Invalid CSV data." Return Endif Local csvRecords := csvDB.Split("~n") If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() For Local i := 0 Until csvRecords.Length Local csvRecordFields := csvRecords[i].Split(",") If csvRecordFields.Length < 2 Then Continue 'Invalid record so skip it. _scores.Push(New Score(csvRecordFields[0].Trim(), Cast<UInt>(csvRecordFields[1]))) Next End Method LoadBinary:Void(url:String, append:Bool = False) If Not url Then Return Local file := FileStream.Open(url, "r") If Not file Print "Could not read binary file: " + url Return Endif If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() Local numRecords := file.ReadInt() Local recordCounter := 0 While (Not file.Eof) And (recordCounter < numRecords) _scores.Push(New Score(Cast<String>(file.ReadCString()), file.ReadUInt())) recordCounter += 1 Wend file.Close() End Method SaveBinary:Void(url:String) If Not url Then Return If Not _scores Then Return Local file := FileStream.Open(url, "w") If Not file Print "Could not write binary file: " + url Return Endif file.WriteInt(_scores.Length) For Local score := Eachin _scores file.WriteCString(score.Name) file.WriteUInt(score.Value) Next file.Close() End Method PrintAll:Void() For Local score:= Eachin _scores Print score.ToString() Next End End ' ---------- Struct Score Public Field Name:String Field Value:UInt Method New(name:String, value:UInt) Name = name Value = value End Method ToString:String() Return Name + "~t~t" + Value End Method ToCSVString:String() Return Name + ", " + Value + "~n" End 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 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177

[crayon-5cba87d87a07f019010053 inline="true" ] #Import "<std>"   Using std..   Function Main()   Local urlText := DesktopDir() + "test.csv" Local urlBinary := DesktopDir() + "test.dat" Local scores := New Scores() '****Check if our text-based csv file already exists. Local file := FileStream.Open(urlText, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Bob, 200~nAnna, 220~nMick, 18~nAi, 333") scores.SaveCSV(urlText) Else file.Close() Endif '****   '****Check if our binary data file already exists. file = FileStream.Open(urlBinary, "r") If Not file 'If not then create it using some test data. scores.ParseCSV("Don, 0~nPeta, 499~nStu, 88~nCarl, 600") scores.SaveBinary(urlBinary) Else file.Close() Endif '**** 'Load Both files into our scores manager and print them all. scores.LoadCSV(urlText) scores.LoadBinary(urlBinary, True) scores.PrintAll() End   '--------------   Class Scores   Private   Field _scores:Stack<Score>   Public Method New() _scores = New Stack<Score> End Method LoadCSV:Void(url:String) If Not url Then Return   ParseCSV(LoadString(url)) End   Method SaveCSV:Void(url:String) If Not url Then Return If Not _scores Then Return Local str:String For Local score := eachin _scores str += score.ToCSVString() End   If Not SaveString(str, url) Print "Could not save csv file: " + url Endif End   Method ParseCSV:Void(csvDB:String, append:Bool = False)   If Not csvDB Or csvDB.Length <= 0 Print "Invalid CSV data." Return Endif Local csvRecords := csvDB.Split("~n") If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear()   For Local i := 0 Until csvRecords.Length Local csvRecordFields := csvRecords[i].Split(",") If csvRecordFields.Length < 2 Then Continue 'Invalid record so skip it. _scores.Push(New Score(csvRecordFields[0].Trim(), Cast<UInt>(csvRecordFields[1]))) Next End Method LoadBinary:Void(url:String, append:Bool = False) If Not url Then Return Local file := FileStream.Open(url, "r") If Not file Print "Could not read binary file: " + url Return Endif If Not _scores Then _scores = New Stack<Score>() If Not append Then _scores.Clear() Local numRecords := file.ReadInt() Local recordCounter := 0 While (Not file.Eof) And (recordCounter < numRecords) _scores.Push(New Score(Cast<String>(file.ReadCString()), file.ReadUInt())) recordCounter += 1 Wend file.Close() End Method SaveBinary:Void(url:String) If Not url Then Return If Not _scores Then Return Local file := FileStream.Open(url, "w") If Not file Print "Could not write binary file: " + url Return Endif   file.WriteInt(_scores.Length) For Local score := Eachin _scores file.WriteCString(score.Name) file.WriteUInt(score.Value) Next   file.Close()   End   Method PrintAll:Void() For Local score:= Eachin _scores Print score.ToString() Next End   End   ' ----------   Struct Score Public Field Name:String Field Value:UInt Method New(name:String, value:UInt) Name = name Value = value End Method ToString:String() Return Name + "~t~t" + Value End Method ToCSVString:String() Return Name + ", " + Value + "~n" End End

[/crayon]

[impixiParticipant]

canvas.CopyPixmap(New Recti(0, 0, canvas.Viewport.Width, canvas.Viewport.Height))

?

example: (press F10 to save capture to your desktop)

Monkey

[crayon-5cba87d881ae4615292104 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field _capture:Pixmap Field _takeSnapShot:Bool Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) _takeSnapShot = False End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) canvas.Flush() If _takeSnapShot _capture = canvas.CopyPixmap(New Recti(0, 0, canvas.Viewport.Width, canvas.Viewport.Height)) Local url:String = DesktopDir() + "cap.png" _capture.Save(url) Print "Capture saved: " + url _takeSnapShot = False Endif End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown If event.Key = Key.F10 _takeSnapShot = True Endif Endif 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

[crayon-5cba87d881ae4615292104 inline="true" ] Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Field _capture:Pixmap Field _takeSnapShot:Bool   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) _takeSnapShot = False End   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) canvas.Flush() If _takeSnapShot _capture = canvas.CopyPixmap(New Recti(0, 0, canvas.Viewport.Width, canvas.Viewport.Height)) Local url:String = DesktopDir() + "cap.png" _capture.Save(url) Print "Capture saved: " + url _takeSnapShot = False Endif End Method OnKeyEvent(event:KeyEvent) Override If event.Type = EventType.KeyDown If event.Key = Key.F10 _takeSnapShot = True Endif Endif End End   Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

[impixiParticipant]

Mark just beat me to it, about the ‘<=>’ operator. Anyway, here’s what I whipped up:

Monkey

[crayon-5cba87d886187744094160 inline="true" ]#Import "<std>" Using std.. Function Main() Local scores := New Stack<Score>() Local PrintAllScores := Lambda:Void(heading:String) Print heading + "~n" For Local score:= Eachin scores Print score.ToString() Next Print "~n~n" End scores.Push(New Score("Joe Blogs", 11)) scores.Push(New Score("Iron Man", 23)) scores.Push(New Score("Jane Doe", 12)) scores.Push(New Score("Dudeson", 10)) PrintAllScores("Before Sort") scores.Sort(False) PrintAllScores("After Sort") End Class Score Private Field _name:String Field _value:Int Public Method New(name:String, value:Int) Name = name Value = value End Property Name:String() Return _name Setter (name:String) _name = name End Property Value:Int() Return _value Setter (value:Int) _value = value End Operator<=>:Int(cmp:Score) Return Value<=>cmp.Value End Method ToString:String() Return Name + "~t~t" + Value End 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

[crayon-5cba87d886187744094160 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local scores := New Stack<Score>()   Local PrintAllScores := Lambda:Void(heading:String) Print heading + "~n" For Local score:= Eachin scores Print score.ToString() Next Print "~n~n" End   scores.Push(New Score("Joe Blogs", 11)) scores.Push(New Score("Iron Man", 23)) scores.Push(New Score("Jane Doe", 12)) scores.Push(New Score("Dudeson", 10)) PrintAllScores("Before Sort") scores.Sort(False) PrintAllScores("After Sort") End   Class Score   Private Field _name:String Field _value:Int   Public Method New(name:String, value:Int) Name = name Value = value End   Property Name:String() Return _name Setter (name:String) _name = name End Property Value:Int() Return _value Setter (value:Int) _value = value End Operator<=>:Int(cmp:Score) Return Value<=>cmp.Value End   Method ToString:String() Return Name + "~t~t" + Value End   End

[/crayon]

[impixiParticipant]

I think there’s a node/pathfinding demo in blitzmax!

samples/aaronkoolen/AStar/astar_demo.bmx?

EDIT: Removed possibly incorrect info.

@hezkore: I’m not sure I understand your requirements. Do you want to calculate the most efficient route through a set of given nodes?

[impixiParticipant]

Yes, looks great. Any plans for an iOS edition?

[impixiParticipant]

I’m seriously considering writing some comprehensive Mojo/MojoX docs. However, it would be a big job and distract me from my current project… Probably worth it though… We’ll see…

[impixiParticipant]

Here’s a “better” example, doing things “properly”, using only skins this time. Themes should be stored in a “assets/themes” folder along with the relevant skin images. Bizarrely, setting the initial “UP”/default state skin in the theme file isn’t working – I must be missing something obvious. Instead I set the required image as the icon on Button creation. I’ll update this example when/if I figure it out…

BTW: In this example use “skinColor” if you want to change the button state colors.

Monkey

[crayon-5cba87d891f2e506511360 inline="true" ]#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Function Main() New AppInstance New MyWindow App.Run() End '------ Class MyWindow Extends Window Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) Local themeDir := AssetsDir() + "/themes" CreateDir(themeDir, False, False) CreateButtonPNGs(200, 40, themeDir + "/myButton") CreateButtonTheme(themeDir + "/myTheme.json") App.Theme.Load("theme::myTheme.json") Local image := Image.Load("theme::myButtonUp.png") Local button:=New PushButton("", image) 'Local button:=New PushButton("") button.Layout="float" button.Gravity=New Vec2f( .5,.5 ) button.Style = GetStyle("myButton") button.Clicked=Lambda() Alert( "Well done sir!" ) End ClearColor = Color.LightGrey ContentView=button End End '---- Generated Content: Function CreateButtonTheme:Void(url:String) Local strJson:String strJson += "{~n~qextends~q:~qdefault~q,~n" strJson += "~qstyles~q:{~n" strJson += "~t~qmyButton~q:{~n" strJson += "~t~t~qskin~q:~qmyButtonUp.png~q,~n" strJson += "~t~t~qstates~q:{~n" strJson += "~t~t~t~qselected~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonSelected.png~q~n~t~t~t},~n" strJson += "~t~t~t~qhover~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonHover.png~q~n~t~t~t},~n" strJson += "~t~t~t~qactive~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonActive.png~q~n~t~t~t}~n" strJson += "~n~t~t}~n" strJson += "~t}~n}~n}" Print strJson SaveString(strJson, url) End Function CreateButtonPNGs:Void(w:Int, h:Int, urlStem:String) Local bLabs:=New String[]("Up", "Active", "Hover", "Selected") For Local n:=0 until bLabs.Length Local img := New Image(w, h) local canvas := New Canvas(img) canvas.Clear(New Color(Rnd(), Rnd(), Rnd(), 1.0)) canvas.Color=Color.Black canvas.DrawText(bLabs[n], 0, 0) canvas.Flush() Local pm := canvas.CopyPixmap(New Recti(0, 0, img.Width, img.Height)) pm.Save(urlStem + bLabs[n] + ".png") canvas = Null img = Null Next GCCollect() 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

[crayon-5cba87d891f2e506511360 inline="true" ]#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Function Main() New AppInstance New MyWindow App.Run() End '------ Class MyWindow Extends Window Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) Local themeDir := AssetsDir() + "/themes" CreateDir(themeDir, False, False) CreateButtonPNGs(200, 40, themeDir + "/myButton") CreateButtonTheme(themeDir + "/myTheme.json") App.Theme.Load("theme::myTheme.json") Local image := Image.Load("theme::myButtonUp.png") Local button:=New PushButton("", image) 'Local button:=New PushButton("") button.Layout="float" button.Gravity=New Vec2f( .5,.5 ) button.Style = GetStyle("myButton")   button.Clicked=Lambda() Alert( "Well done sir!" ) End ClearColor = Color.LightGrey ContentView=button End End '---- Generated Content: Function CreateButtonTheme:Void(url:String)   Local strJson:String strJson += "{~n~qextends~q:~qdefault~q,~n" strJson += "~qstyles~q:{~n" strJson += "~t~qmyButton~q:{~n" strJson += "~t~t~qskin~q:~qmyButtonUp.png~q,~n" strJson += "~t~t~qstates~q:{~n" strJson += "~t~t~t~qselected~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonSelected.png~q~n~t~t~t},~n" strJson += "~t~t~t~qhover~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonHover.png~q~n~t~t~t},~n" strJson += "~t~t~t~qactive~q:{~n" strJson += "~t~t~t~t~qskin~q:~qmyButtonActive.png~q~n~t~t~t}~n" strJson += "~n~t~t}~n" strJson += "~t}~n}~n}" Print strJson SaveString(strJson, url) End    Function CreateButtonPNGs:Void(w:Int, h:Int, urlStem:String)   Local bLabs:=New String[]("Up", "Active", "Hover", "Selected")   For Local n:=0 until bLabs.Length Local img := New Image(w, h) local canvas := New Canvas(img) canvas.Clear(New Color(Rnd(), Rnd(), Rnd(), 1.0)) canvas.Color=Color.Black canvas.DrawText(bLabs[n], 0, 0) canvas.Flush() Local pm := canvas.CopyPixmap(New Recti(0, 0, img.Width, img.Height)) pm.Save(urlStem + bLabs[n] + ".png") canvas = Null img = Null Next GCCollect()   End

[/crayon]

Yes, someone needs to document MojoX: it’s actually a very powerful GUI library. Currently you need to poke around the module’s source files (and the TED source code) to figure it out, and that can take ages.

[Author]

Posts