- Code: Select all
' global
Dim myInstance As ukBaseClass
Event Init()
Dim myMuArray As Array = myInstance!myArray
Alert("valueForKeyPath", myMuArray)
myMuArray.Append("Test")
myInstance!myArray = myMuArray 'setValue forkeypath
Alert("valueForKeyPath", myInstance!myArray)
End Event
File ukBaseClass.NSObject
- Code: Select all
' ukBaseClass
Private Dim myArray As Array
Function myArray() As NSMutableArray
Alert("get my array",myArray)
Return myArray
End Function
Sub setMyArray(theArray As NSMutableArray)
Alert("set my array")
myArray=theArray
End Sub
Event Init()
myArray=Array(5,6,7)
End Event