equal
deleted
inserted
replaced
447 "reinit after a snapIn. |
447 "reinit after a snapIn. |
448 recreate access-semaphore; image could have been save (theoretically) |
448 recreate access-semaphore; image could have been save (theoretically) |
449 with the semaphore locked - in this case, we had a deadlock" |
449 with the semaphore locked - in this case, we had a deadlock" |
450 |
450 |
451 flushPending := inFlush := false. |
451 flushPending := inFlush := false. |
452 access := RecursionLock new. "/ Semaphore forMutualExclusion. |
452 access := RecursionLock new name:'TextCollector access lock'. |
453 super reinitialize. |
453 super reinitialize. |
454 |
454 |
455 "Modified: / 5.3.1998 / 10:09:14 / stefan" |
455 "Modified: / 20-02-2017 / 21:29:13 / stefan" |
456 ! |
456 ! |
457 |
457 |
458 release |
458 release |
459 flushBlock notNil ifTrue:[ |
459 flushBlock notNil ifTrue:[ |
460 Processor removeTimedBlock:flushBlock. |
460 Processor removeTimedBlock:flushBlock. |