Posted to tcl by kevin_walzer at Mon Apr 23 21:25:58 GMT 2012view pretty

void
TclMacOSXNotifierAddRunLoopMode(
    const void *runLoopMode)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
    CFStringRef mode = (CFStringRef) runLoopMode;

    if (tsdPtr->runLoop) {
    	CFRunLoopAddSource(tsdPtr->runLoop, tsdPtr->runLoopSource, mode);
    	CFRunLoopAddObserver(tsdPtr->runLoop, tsdPtr->runLoopObserver, mode);
    	if (tsdPtr->runLoopTimer) {
	       CFRunLoopAddTimer(tsdPtr->runLoop, tsdPtr->runLoopTimer, mode);
    	}
    }
}