test[dji8-ios] B4 RemoteController

" Accessing remoteController "
| value |
DJISDKManager product isNil ifTrue: [ ^self abortPage ].
value := DJISDKManager product remoteController.
value isNil ifTrue: [ ^self print: 'Missing value' ].
(value class selectors
  select: [:each| (each startsWith: #is) and: [each argumentCount = 0] ])
  ,#( )
  do: [:msg| self print: ' ',msg,'=',(value perform: msg) ].

" Accessing properties... "
| object echo |
object := DJISDKManager product remoteController.
#(	Name
	Password
	AircraftMappingStyle
	CustomAircraftMapping
	PairingState
	ChargeMobileMode
	LeftWheelGimbalControlAxis
	CustomButtonTags
	C1ButtonBindingEnabled
	Mode
	MasterSlaveConnectionState
	ConnectedMasterCredentials
	MasterSearchingState
	GimbalMappingStyle
	CustomGimbalMapping
	SlaveList
	Masters
) do: [:each|
	echo := [:value| self print: '// ',each ,'=',value ].
	object perform: #with ,each ,$: with: echo
].