ShowMeHowItWorks.st
changeset 3815 d9b849d3e63f
parent 3814 b57cff575911
child 3817 34cfc2fb2258
equal deleted inserted replaced
3814:b57cff575911 3815:d9b849d3e63f
   471         messageView realize.
   471         messageView realize.
   472 
   472 
   473         self talking ifTrue:[
   473         self talking ifTrue:[
   474             talkDone := Semaphore new.
   474             talkDone := Semaphore new.
   475             [
   475             [
       
   476                 |sentence|
       
   477                 sentence := (sentenceOrNil ? xLatedMessage) copy withCRs replaceAny:c'\t' with:(Character space).
   476                 self tell:(sentenceOrNil ? xLatedMessage).
   478                 self tell:(sentenceOrNil ? xLatedMessage).
   477                 talkDone signal
   479                 talkDone signal
   478             ] fork.
   480             ] fork.
   479             
   481             
   480             "/
   482             "/