dim file as FolderItem = SpecialFolder.Pictures.Child("mbs.jpg") // some file

dim w as new NSWorkspaceMBS
dim files() as FolderItem

files.Append file

// show in Finder
w.activateFileViewerSelectingFiles(files)

dim w as new NSWorkspaceMBS
dim m as NSScreenMBS = NSScreenMBS.mainScreen
dim dic as Dictionary = w.desktopImageOptionsForScreen(m)

break // check in debugger

dim w as new NSWorkspaceMBS
dim m as NSScreenMBS = NSScreenMBS.mainScreen
dim file as FolderItem = w.desktopImageURLForScreen(m)

MsgBox file.AbsolutePath

dim w as new NSWorkspaceMBS
dim labels() as string = w.fileLabels
dim colors() as NSColorMBS = w.fileLabelColors
dim lines() as string

dim u as Integer = UBound(Colors)
for i as Integer = 0 to u
  dim co as NSColorMBS = colors(i)
  
  lines.Append labels(i)+": "+str(co.colorValue)
next

MsgBox Join(lines,EndOfLine)

dim w as new NSWorkspaceMBS
dim labels() as string = w.fileLabels

MsgBox Join(labels, EndOfLine)

NSWorkspaceMBS.findApplications

dim w as new NSWorkspaceMBS
dim n as NSRunningApplicationMBS = w.frontmostApplication

MsgBox n.localizedName

MsgBox NSWorkspaceMBS.fullPathForApplication("textedit").ShellPath
// shows /Applications/TextEdit.app

NSWorkspaceMBS.hideOtherApplications

dim f as FolderItem
f=SpecialFolder.Desktop.Child("test.txt")

dim n as NSImageMBS = NSWorkspaceMBS.iconForFile(f)
n.size = new NSSizeMBS(512,512)
Backdrop=n.CopyPictureWithMask

dim w as new NSWorkspaceMBS
dim files() as FolderItem

dim folder as FolderItem = SpecialFolder.Pictures

// one file
files.Append folder.TrueItem(2)
canvas1.Backdrop = w.iconForFiles(files).CopyPictureWithMask

// two files
files.Append folder.TrueItem(3)
canvas2.Backdrop = w.iconForFiles(files).CopyPictureWithMask

// three files
files.Append folder.TrueItem(4)
canvas3.Backdrop = w.iconForFiles(files).CopyPictureWithMask

const SizeWanted = 512
const typeWanted = "txt"

dim n as NSImageMBS = NSWorkspaceMBS.iconForFileType(typeWanted)
// set size we want
n.setSize SizeWanted*2, SizeWanted*2

// make picture
dim p as Picture = n.CopyPictureWithMask

// set DPI
p.VerticalResolution = 144
p.HorizontalResolution = 144

dim w as new NSWorkspaceMBS
dim file as FolderItem = SpecialFolder.Applications.Child("iTunes.app")

// shows true for iTunes
MsgBox str(w.isFilePackageAtPath(file))

if NSWorkspaceMBS.launchApplication("Textedit") then
  MsgBox "Ok"
else
  MsgBox "failed"
end if

if NSWorkspaceMBS.launchApplication("Textedit",false,false) then
  MsgBox "Ok"
else
  MsgBox "failed"
end if

dim w as new NSWorkspaceMBS
dim file as FolderItem = SpecialFolder.Applications.Child("Address Book.app")

dim error as NSErrorMBS
dim configuration as new Dictionary
dim options as Integer

// today we start 32 bit version
configuration.Value(w.NSWorkspaceLaunchConfigurationArchitecture) = w.NSBundleExecutableArchitectureI386

// and hide all others
options = w.NSWorkspaceLaunchAndHideOthers

dim r as NSRunningApplicationMBS = w.launchApplicationAtFile(file, options, configuration, error)

if r = nil then
  MsgBox "Error: "+error.LocalizedDescription
else
  MsgBox "Started: "+r.localizedName
end if

MsgBox NSWorkspaceMBS.localizedDescriptionForType("public.jpeg")
// "JPEG-Bild" in German

dim w as new NSWorkspaceMBS
dim n as NSRunningApplicationMBS = w.menuBarOwningApplication

MsgBox n.localizedName

dim w as new NSWorkspaceMBS
dim paths() as string = w.mountedLocalVolumePaths

MsgBox Join(paths, EndOfLine)

dim w as new NSWorkspaceMBS
dim paths() as string = w.mountedRemovableMedia

MsgBox Join(paths, EndOfLine)