Has anyone converted this class to API 2.0?
I have tried, but there are these errors:
// Now we have all target objs in objs.Keys - we can create the array now and add the parameters dim dictArray as Ptr = nsarray (NSClassFromString("NSMutableArray")) for each o as Object in objs.Keys dim hdl as Ptr // was Integer, but API 2.0 Handle is Ptr if o isA DesktopWindow then hdl = DesktopWindow(o).Handle else hdl = DesktopUIControl(o).Handle end if dim dict as Ptr = init (alloc (NSClassFromString ("NSMutableDictionary"))) setObjectIntegerForKeyString dict, hdl, "NSViewAnimationTargetKey" addObject dictArray, dict .... TTsCocoaAnimationPrivate.StartAnimation, line 103 Parameter "obj" expects type Integer, but this is type Ptr. setObjectIntegerForKeyString dict, hdl, "NSViewAnimationTargetKey" TTsCocoaAnimationPrivate.StartAnimation, line 124 Parameter "self_ptr" expects type Integer, but this is type Ptr. dim startingFrame as NSRect = frame (hdl) TTsCocoaAnimationPrivate.StartAnimation, line 124 Type mismatch error. Expected structure TTsCocoaAnimationPrivate.NSRect, but got Int32 dim startingFrame as NSRect = frame (hdl)