Monkeybread Xojo plugin - Example: /Util/OS Versions

Platforms to show: All Mac Windows Linux Cross-Platform

Required plugins for this example: MBS Util Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/OS Versions

This example is the version from Mon, 25th Oct 2015.

Project "OS Versions.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control List Inherits Listbox

ControlInstance List Inherits Listbox

End Control

Control List1 Inherits Listbox

ControlInstance List1 Inherits Listbox

End Control

EventHandler Sub Open() List.AddRow "Windows 2000", bool(SystemInformationMBS.isWindows2000(false)), bool(SystemInformationMBS.isWindows2000(true)) List.AddRow "Windows XP", bool(SystemInformationMBS.isWindowsXP(false)), bool(SystemInformationMBS.isWindowsXP(true)) List.AddRow "Windows Vista", bool(SystemInformationMBS.isWindowsVista(false)), bool(SystemInformationMBS.isWindowsVista(true)) List.AddRow "Windows 7", bool(SystemInformationMBS.isWindows7(false)), bool(SystemInformationMBS.isWindows7(true)) List.AddRow "Windows 8", bool(SystemInformationMBS.isWindows8(false)), bool(SystemInformationMBS.isWindows8(true)) List.AddRow "Windows 8.1", bool(SystemInformationMBS.isWindows81(false)), bool(SystemInformationMBS.isWindows81(true)) List.AddRow "Windows 10", bool(SystemInformationMBS.isWindows10(false)), bool(SystemInformationMBS.isWindows10(true)) List.AddRow "OS X Leopard", bool(SystemInformationMBS.isLeopard(false)), bool(SystemInformationMBS.isLeopard(true)) List.AddRow "OS X Snow Leopard", bool(SystemInformationMBS.isSnowLeopard(false)), bool(SystemInformationMBS.isSnowLeopard(true)) List.AddRow "OS X Lion", bool(SystemInformationMBS.isLion(false)), bool(SystemInformationMBS.isLion(true)) List.AddRow "OS X Mountain Lion", bool(SystemInformationMBS.isMountainLion(false)), bool(SystemInformationMBS.isMountainLion(true)) List.AddRow "OS X Mavericks", bool(SystemInformationMBS.isMavericks(false)), bool(SystemInformationMBS.isMavericks(true)) List.AddRow "OS X Yosemite", bool(SystemInformationMBS.isYosemite(false)), bool(SystemInformationMBS.isYosemite(true)) List.AddRow "OS X El Capitan", bool(SystemInformationMBS.isElCapitan(false)), bool(SystemInformationMBS.isElCapitan(true)) list1.AddRow "Mac OS X", bool(SystemInformationMBS.isMacOSX) list1.AddRow "OS Version String", (SystemInformationMBS.OSVersionString) #if TargetWin32 list1.AddRow "64-bit Windows", bool(SystemInformationMBS.Is64bitWindows) list1.AddRow "Win Major Version", str(SystemInformationMBS.WinMajorVersion) list1.AddRow "Win Minor Version", str(SystemInformationMBS.WinMinorVersion) list1.AddRow "Win Build Number", str(SystemInformationMBS.WinBuildNumber) #endif #if TargetMacOS then list1.AddRow "Mac Major Version", str(SystemInformationMBS.MacMajorVersion) list1.AddRow "Mac Minor Version", str(SystemInformationMBS.MacMinorVersion) list1.AddRow "Mac BugFix Version", str(SystemInformationMBS.MacBugFixVersion) #endif End EventHandler

Function Bool(b as Boolean) As string if b then Return "yes" else Return "no" end if End Function

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&Ablage"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Bearbeiten"

MenuItem EditUndo = "&Rückgängig"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "&Ausschneiden"

MenuItem EditCopy = "&Kopieren"

MenuItem EditPaste = "&Einfügen"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "&Alles auswählen"

End MenuBar

End Project