test[dji8-ios] A1 Airlink

" Accessing the AirLink of product "
| product |
product := DJISDKManager product.
product isNil ifTrue: [ ^self abortPage ].
self print: 'Accessing product airLink: ' ,product airLink.

" Accessing AirLink properties "
| link |
link := DJISDKManager product airLink.
(link class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#(lightbridgeLink ocuSyncLink)
  do: [:msg| self print: ' ',msg,'=',(link perform: msg) ].

" Accessing lightbridgeLink properties "
| link |
link := DJISDKManager product airLink lightbridgeLink.
link isNil ifTrue: [ ^self print: '// Linkage missing/unsupported' ].
"ToDo - 
(link class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#(lightbridgeLink ocuSyncLink)
  do: [:msg| self print: ' ',msg,'=',(airLink perform: msg) ].
"
self print: 'Accessing lightbridgeLink: ',link.

" Accessing OcuSyncLink properties "
| link |
link := DJISDKManager product airLink ocuSyncLink.
link isNil ifTrue: [ ^self print: '// Linkage missing/unsupported' ].
"ToDo - 
(link class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#(lightbridgeLink ocuSyncLink)
  do: [:msg| self print: ' ',msg,'=',(airLink perform: msg) ].
"
self print: 'Accessing OcuSyncLink: ',link.

" Accessing wifiLink properties "
| link |
link := DJISDKManager product airLink wifiLink.
link isNil ifTrue: [ ^self print: '// Linkage missing/unsupported' ].
"ToDo - 
(link class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#(lightbridgeLink ocuSyncLink)
  do: [:msg| self print: ' ',msg,'=',(airLink perform: msg) ].
"
self print: 'Accessing wifiLink: ',link.