home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / thrdfix1.st < prev    next >
Encoding:
Text File  |  1995-10-24  |  802 b   |  37 lines
  1. AbtThreadsApp becomeDefault!
  2.  
  3. !AbtThreadManager class privateMethods !
  4.  
  5. dispatchMessage: reqId
  6.  
  7.     | procSynch reply |
  8.  
  9.     procSynch := self procSynchFor: reqId.
  10.     (procSynch isNil) ifTrue: [
  11.         ^self releaseCompletedMessages
  12.     ].
  13.     (reply := procSynch message) isUndefined ifTrue: [
  14.         ^self releaseCompletedMessages
  15.     ].
  16.     reply messageType == AbtReplyMessage ifFalse: [
  17.         ^self releaseCompletedMessages
  18.     ].
  19.     procSynch signal.
  20.     Processor yield.
  21. !
  22.  
  23. releaseCompletedMessages
  24.  
  25.     | request |
  26.     ProcessDictionaryLock abtWait.
  27.     self processDictionary do: [: procSync |
  28.         (request := procSync message) isNil ifFalse: [
  29.             request isUndefined ifFalse: [
  30.                 request messageType == AbtReplyMessage ifTrue: [
  31.                     procSync signal
  32.                 ]
  33.             ]
  34.         ]
  35.     ].
  36.     ProcessDictionaryLock abtSignal.! !
  37.