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

  1. void
  2. TclMacOSXNotifierAddRunLoopMode(
  3. const void *runLoopMode)
  4. {
  5. ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
  6. CFStringRef mode = (CFStringRef) runLoopMode;
  7.  
  8. if (tsdPtr->runLoop) {
  9. CFRunLoopAddSource(tsdPtr->runLoop, tsdPtr->runLoopSource, mode);
  10. CFRunLoopAddObserver(tsdPtr->runLoop, tsdPtr->runLoopObserver, mode);
  11. if (tsdPtr->runLoopTimer) {
  12. CFRunLoopAddTimer(tsdPtr->runLoop, tsdPtr->runLoopTimer, mode);
  13. }
  14. }
  15. }