equal
deleted
inserted
replaced
4586 "fork a subprocess which updates the contextList in regular intervals" |
4586 "fork a subprocess which updates the contextList in regular intervals" |
4587 |
4587 |
4588 updateProcess isNil ifTrue:[ |
4588 updateProcess isNil ifTrue:[ |
4589 updateProcess := |
4589 updateProcess := |
4590 [ |
4590 [ |
4591 [true] whileTrue:[ |
4591 |delay| |
|
4592 |
|
4593 delay := Delay forSeconds:0.25. |
|
4594 [ |
4592 monitorToggle showLamp ifTrue:[ |
4595 monitorToggle showLamp ifTrue:[ |
4593 monitorToggle lampColor:(Color yellow). |
4596 monitorToggle lampColor:(Color yellow). |
4594 ] ifFalse:[ |
4597 ] ifFalse:[ |
4595 monitorToggle activeForegroundColor:Color black. |
4598 monitorToggle activeForegroundColor:Color black. |
4596 ]. |
4599 ]. |
4597 (Delay forSeconds:0.25) wait. |
4600 delay wait. |
4598 self updateContext. |
4601 self updateContext. |
4599 monitorToggle showLamp ifTrue:[ |
4602 monitorToggle showLamp ifTrue:[ |
4600 monitorToggle lampColor:(Color red). |
4603 monitorToggle lampColor:(Color red). |
4601 ] ifFalse:[ |
4604 ] ifFalse:[ |
4602 monitorToggle activeForegroundColor:Color red. |
4605 monitorToggle activeForegroundColor:Color red. |
4603 ]. |
4606 ]. |
4604 (Delay forSeconds:0.25) wait. |
4607 delay wait. |
4605 self updateContext. |
4608 self updateContext. |
4606 ] |
4609 ] loop |
4607 ] forkAt:(Processor activePriority - 1) |
4610 ] forkAt:(Processor activePriority - 1) |
4608 ] |
4611 ] |
4609 |
4612 |
|
4613 "Modified: / 23-02-2017 / 13:25:32 / stefan" |
4610 ! |
4614 ! |
4611 |
4615 |
4612 browseBlocksHome |
4616 browseBlocksHome |
4613 "browse the receiver block's home method (if a value-like send is selected)" |
4617 "browse the receiver block's home method (if a value-like send is selected)" |
4614 |
4618 |