12 lines
360 B
Text
12 lines
360 B
Text
void local fn MyDictEnumerator( dict as CFDictionaryRef, key as CFTypeRef, obj as CFTypeRef, stp as ^BOOL, userData as ptr )
|
|
print key, obj
|
|
end fn
|
|
|
|
void local fn DoIt
|
|
CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
|
|
DictionaryEnumerateKeysAndObjects( dict, @fn MyDictEnumerator, NULL )
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|