Platforms to show: All Mac Windows Linux Cross-Platform

/MacOSX/Accessibility services/Accessible Test


Required plugins for this example: MBS MacCF Plugin, MBS Main Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacOSX/Accessibility services/Accessible Test

This example is the version from Thu, 6th Feb 2013.

Project "Accessible Test.xojo_binary_project"
Class Window1 Inherits Window
Control ListBox1 Inherits ListBox
ControlInstance ListBox1 Inherits ListBox
End Control
EventHandler Sub Open() dim e as AXUIElementMBS if not AccessibilityMBS.Available then MsgBox "The framework for the Accessible API could not be loaded." quit end if if not AccessibilityMBS.AXAPIEnabled then MsgBox "The Accessible API is not enabled" quit end if e=AccessibilityMBS.SystemWideAXUIElement if e<>nil then showarray e.AttributeNames end if End EventHandler
Sub showarray(ar as cfarrayMBS) dim i,c as integer dim o as CFObjectMBS dim s as CFStringMBS ListBox1.DeleteAllRows if ar<>nil then c=ar.Count-1 for i=0 to c o=ar.Item(i) if o<>Nil then s=o.CFStringMBS if s<>nil then ListBox1.AddRow s.str end if end if next end if End Sub
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
Module CFUtil
Function CFStringMBS(extends o as CFObjectMBS) As CFStringMBS dim s as CFStringMBS if o<>nil then if o.Handle<>0 then s=new CFStringMBS s.Handle=o.Handle s.RetainObject Return s end if end if End Function
End Module
End Project

See also:

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


The biggest plugin in space...