Monkeybread Xojo plugin - Example: /Main/Web Edition Examples/TicTacToe game/TicTacToe game Web2

Platforms to show: All Mac Windows Linux Cross-Platform

/Main/Web Edition Examples/TicTacToe game/TicTacToe game Web2
Function:
Required plugins for this example:
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Main/Web Edition Examples/TicTacToe game/TicTacToe game Web2
This example is the version from Mon, 16th Jan 2022.

Project "TicTacToe game Web2.xojo_binary_project"

Class App Inherits WebApplication

EventHandler Sub Opening(args() as String) Dim leer As New Picture(100,100,32) Dim kreis As Picture = picture.Open(findFile("kreis.png")) Dim kreuz As Picture = picture.Open(findFile("kreuz.png")) If kreis = Nil Then Break If kreuz = Nil Then Break KreisPic = New WebPicture(kreis, picture.FormatPNG) kreuzPic = New WebPicture(kreuz, picture.FormatPNG) leerPic = New WebPicture(leer, picture.FormatPNG) End EventHandler

Function FindFile(name as string) As FolderItem // Look for file in parent folders from executable on dim parent as FolderItem = app.ExecutableFile.Parent while parent<>Nil dim file as FolderItem = parent.Child(name) if file<>Nil and file.Exists then Return file end if parent = parent.Parent wend End Function

Property KreisPic As WebPicture

Property KreuzPic As WebPicture

Property LeerPic As WebPicture

End Class

End Project