Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

Sparkle Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub Action() Handles Event
Sparkle.CheckStatus

Exception e as NSExceptionMBS

MsgBox e.message

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
Sparkle.CheckForUpdates true

Exception e as NSExceptionMBS
MsgBox e.message

End Sub
End ControlInstance

// Properties
Dim Sparkle As Mysparkle

// Event implementations
Sub Open()
dim appfile,appfolder,framework as FolderItem

appfile=App.ExecutableFile
appfolder=appfile.Parent

framework=appfolder.Child("Sparkle.framework")

Sparkle=new MySparkle(Framework)

if not Sparkle.Initialized then
MsgBox "Failed to initialize Sparkle"
end if

Exception e as NSExceptionMBS
MsgBox e.message

End Sub
End Class

Class MySparkle
Inherits SparkleMBS
// Event implementations
Sub FoundVersion(version as string, isNew as boolean)
if isnew then
MsgBox "Found a new version: "+version
else
MsgBox "Found an old version: "+version
end if

End Sub
End Class


All movies




Links
MBS FileMaker blog