Platforms to show: All Mac Windows Linux Cross-Platform

/MacOSX/UnsanitySmartCrashReporterMBS
Function:
Required plugins for this example: MBS Util Plugin, MBS MacOSX Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacOSX/UnsanitySmartCrashReporterMBS
This example is the version from Sun, 17th Mar 2012.
Project "UnsanitySmartCrashReporterMBS.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class wndMain Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control StaticText4 Inherits Label
ControlInstance StaticText4 Inherits Label
End Control
Control StaticText5 Inherits Label
ControlInstance StaticText5 Inherits Label
End Control
Control lblCanInstall Inherits Label
ControlInstance lblCanInstall Inherits Label
End Control
Control lblInstalledVersion Inherits Label
ControlInstance lblInstalledVersion Inherits Label
End Control
Control lblInstallableVersion Inherits Label
ControlInstance lblInstallableVersion Inherits Label
End Control
Control lblAuthRequired Inherits Label
ControlInstance lblAuthRequired Inherits Label
End Control
Control lblIsGlobal Inherits Label
ControlInstance lblIsGlobal Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
Control lblIsRegistered Inherits Label
ControlInstance lblIsRegistered Inherits Label
End Control
Control lblDomain Inherits Label
ControlInstance lblDomain Inherits Label
End Control
Control StaticText7 Inherits Label
ControlInstance StaticText7 Inherits Label
End Control
Control lblWhatRegistered Inherits Label
ControlInstance lblWhatRegistered Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() Dim osErr As Integer osErr = UnsanitySmartCrashReporterMBS.Install(UnsanitySmartCrashReporterMBS.kUnsanitySCR_GlobalInstall) MsgBox "Attempted to install UnsanitySmartCrashReporter." + EndOfLine + EndOfLine + "Result: " + Str(osErr) self.Initialize() End EventHandler
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action() Dim sURL, sCopmany, sSubmitTicket, sComments As String Dim osErr As Integer sURL = "" sCopmany = "My Software" sSubmitTicket = "SCR-?" //You must enter your SCR TICKET ID sComments = "My comments." osErr = UnsanitySmartCrashReporterMBS.RegisterMatchSpecifier(lblDomain.Text,sCopmany,sURL,sSubmitTicket,sComments) MsgBox "Attempted to register UnsanitySmartCrashReporter." + EndOfLine + EndOfLine + "Result: " + Str(osErr) self.Initialize() End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action() Dim osErr As Integer osErr = UnsanitySmartCrashReporterMBS.UnregisterMatchSpecifier(lblDomain.Text) MsgBox "Attempted to unregister UnsanitySmartCrashReporter." + EndOfLine + EndOfLine + "Result: " + Str(osErr) self.Initialize() End EventHandler
End Control
Control PushButton4 Inherits PushButton
ControlInstance PushButton4 Inherits PushButton
EventHandler Sub Action() CrashNiceMBS() End EventHandler
End Control
Control PushButton5 Inherits PushButton
ControlInstance PushButton5 Inherits PushButton
EventHandler Sub Action() CrashUglyMBS() End EventHandler
End Control
Control StaticText8 Inherits Label
ControlInstance StaticText8 Inherits Label
End Control
EventHandler Sub Open() self.Initialize() End EventHandler
Sub Initialize() Dim iCanInstall, iInstalledVersion As Integer Dim bAuthRequired, bIsGlobal As Boolean Dim sFound As String iCanInstall = UnsanitySmartCrashReporterMBS.CanInstall(bAuthRequired) iInstalledVersion = UnsanitySmartCrashReporterMBS.InstalledVersion(bIsGlobal) lblCanInstall.Text = Str(iCanInstall) lblAuthRequired.Text = CStr(bAuthRequired) lblInstalledVersion.Text = Str(iInstalledVersion) lblIsGlobal.Text = CStr(bIsGlobal) lblInstallableVersion.Text = Str(UnsanitySmartCrashReporterMBS.InstallableVersion()) lblIsRegistered.Text = Str(UnsanitySmartCrashReporterMBS.IsMatchSpecifierRegistered(lblDomain.Text,sFound)) lblWhatRegistered.Text = sFound End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

The items on this page are in the following plugins: MBS MacOSX Plugin.

Feedback: Report problem or ask question.

The biggest plugin in space...