Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio 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

Loading


Links
MBS Realbasic Plugins - Pfarrgemeinde Messdiener Nickenich