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.