equal
deleted
inserted
replaced
449 "returns true if monitor process is running |
449 "returns true if monitor process is running |
450 " |
450 " |
451 ^ triggerMonitorBlock notNil |
451 ^ triggerMonitorBlock notNil |
452 ! |
452 ! |
453 |
453 |
454 monitoring:aState |
454 monitoring:aBoolean |
455 "enable or disable monitoring |
455 "enable or disable monitoring" |
456 " |
456 |
457 aState ifTrue:[ |
457 aBoolean ifTrue:[ |
458 triggerMonitorBlock notNil ifTrue:[^ self]. |
458 triggerMonitorBlock notNil ifTrue:[^ self]. |
459 "/ triggerMonitorBlock := [self sensor pushUserEvent:#monitorCycle for:self]. |
459 "/ triggerMonitorBlock := [self sensor pushUserEvent:#monitorCycle for:self]. |
460 triggerMonitorBlock := [self pushEvent:#monitorCycle]. |
460 triggerMonitorBlock := [self pushEvent:#monitorCycle]. |
461 Processor addTimedBlock:triggerMonitorBlock afterSeconds:(self monitoringDelayTime). |
461 Processor addTimedBlock:triggerMonitorBlock afterSeconds:(self monitoringDelayTime). |
462 ] ifFalse:[ |
462 ] ifFalse:[ |
463 triggerMonitorBlock isNil ifTrue:[^ self]. |
463 triggerMonitorBlock isNil ifTrue:[^ self]. |
464 Processor removeTimedBlock:triggerMonitorBlock. |
464 Processor removeTimedBlock:triggerMonitorBlock. |
465 triggerMonitorBlock := nil. |
465 triggerMonitorBlock := nil. |
466 ]. |
466 ]. |
|
467 |
|
468 "Modified (comment): / 04-02-2017 / 21:32:26 / cg" |
467 ! |
469 ! |
468 |
470 |
469 monitoringDelayTime |
471 monitoringDelayTime |
470 "delay time of monitoring task in seconds |
472 "delay time of monitoring task in seconds |
471 " |
473 " |