26 lines
623 B
Plaintext
26 lines
623 B
Plaintext
void local fn DoIt
|
|
CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
|
|
CFStringRef key
|
|
CFTypeRef obj
|
|
|
|
EnumeratorRef keyEnumerator = fn DictionaryKeyEnumerator( dict )
|
|
key = fn EnumeratorNextObject( keyEnumerator )
|
|
while ( key )
|
|
print key,dict[key]
|
|
key = fn EnumeratorNextObject( keyEnumerator )
|
|
wend
|
|
|
|
print
|
|
|
|
EnumeratorRef objectEnumerator = fn DictionaryObjectEnumerator( dict )
|
|
obj = fn EnumeratorNextObject( objectEnumerator )
|
|
while ( obj )
|
|
print obj
|
|
obj = fn EnumeratorNextObject( objectEnumerator )
|
|
wend
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|