- A Cookbook Topic: "Delay", "WaitUntil" and "Let'ssee actions"

From: Douglas G. Danforth <"Douglas>
Date: Fri, 12 May 2006 13:51:59 -0400

----boundary-LibPST-iamunique-1861506626_-_-
Content-type: text/plain

Marco,
If the following is what you meant then it doesn't work for me. The
cursor remains as the pointing hand
when the commandor is clicked and no actions can be initiated during the
wait time. So what did you
really mean?
-Doug
-----------------
MODULE Wait;
    IMPORT Services, Out:=StdLog;
   
    PROCEDURE Time (ms: INTEGER);
        VAR time: LONGINT;
    BEGIN
        time := Services.Ticks() + ms;
        WHILE Services.Ticks() < time DO
            Services.actionHook.Step
        END
    END Time;
   
    PROCEDURE Test*;
    BEGIN
        Out.String("start..");
        Time(10000);
        Out.String("stop.");
        Out.Ln;
    END Test;
   
END Wait.

--------------------
Marco Ciot wrote:
> Hello Helmut
>
> Sorry for not contributing earlier to this subject.
> I quickly read the follow ups and didn't really see a reason why to do such
> fuzzy things... sorry folks :)
>
> The solution to this indeed is to call Services.actionHook.Step during a
> timed loop.
> This procedure exactly does the stepping of the background tasks
> (Services.Actions) and works fine while being called on command level also.
> (It should not be called by Actions, however!)
> (Well, let me also clarify that this is my understanding of the module
> Services and not a documented feature.)
>
> How come you didn't try this yourself after having suggested it in xyBoss3?
>
> Note that by adding such a call in HostPorts.Input followed by a conditional
> Kernel.Sleep and having Services.actionHook.Step a little bit more robust
> towards calls from anywhere (even Actions) any BB system becomes much more
> responsive and won't do any excess CPU heating while tracking the mouse,
> e.g. making a text selection ;)
>
> Regards
> Marco Ciot
>
>

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy



----boundary-LibPST-iamunique-1861506626_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIE1hcmNvLFxwYXINCklmIHRoZSBmb2xsb3dpbmcg
aXMgd2hhdCB5b3UgbWVhbnQgdGhlbiBpdCBkb2Vzbid0IHdvcmsgZm9yIG1lLiAgVGhlIFxwYXIN
CmN1cnNvciByZW1haW5zIGFzIHRoZSBwb2ludGluZyBoYW5kXHBhcg0Kd2hlbiB0aGUgY29tbWFu
ZG9yIGlzIGNsaWNrZWQgYW5kIG5vIGFjdGlvbnMgY2FuIGJlIGluaXRpYXRlZCBkdXJpbmcgdGhl
IFxwYXINCndhaXQgdGltZS4gIFNvIHdoYXQgZGlkIHlvdVxwYXINCnJlYWxseSBtZWFuP1xwYXIN
Ci1Eb3VnXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpNT0RVTEUgV2FpdDtccGFyDQogICAg
SU1QT1JUIFNlcnZpY2VzLCBPdXQ6PVN0ZExvZztccGFyDQogICBccGFyDQogICAgUFJPQ0VEVVJF
IFRpbWUgKG1zOiBJTlRFR0VSKTtccGFyDQogICAgICAgIFZBUiB0aW1lOiBMT05HSU5UO1xwYXIN
CiAgICBCRUdJTlxwYXINCiAgICAgICAgdGltZSA6PSBTZXJ2aWNlcy5UaWNrcygpICsgbXM7XHBh
cg0KICAgICAgICBXSElMRSBTZXJ2aWNlcy5UaWNrcygpIDwgdGltZSBET1xwYXINCiAgICAgICAg
ICAgIFNlcnZpY2VzLmFjdGlvbkhvb2suU3RlcFxwYXINCiAgICAgICAgRU5EXHBhcg0KICAgIEVO
RCBUaW1lO1xwYXINCiAgIFxwYXINCiAgICBQUk9DRURVUkUgVGVzdCo7XHBhcg0KICAgIEJFR0lO
XHBhcg0KICAgICAgICBPdXQuU3RyaW5nKCJzdGFydC4uIik7XHBhcg0KICAgICAgICBUaW1lKDEw
MDAwKTtccGFyDQogICAgICAgIE91dC5TdHJpbmcoInN0b3AuIik7XHBhcg0KICAgICAgICBPdXQu
TG47XHBhcg0KICAgIEVORCBUZXN0O1xwYXINCiAgIFxwYXINCkVORCBXYWl0LlxwYXINClxwYXIN
Ci0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KTWFyY28gQ2lvdCB3cm90ZTpccGFyDQo+IEhlbGxv
IEhlbG11dFxwYXINCj5ccGFyDQo+IFNvcnJ5IGZvciBub3QgY29udHJpYnV0aW5nIGVhcmxpZXIg
dG8gdGhpcyBzdWJqZWN0LlxwYXINCj4gSSBxdWlja2x5IHJlYWQgdGhlIGZvbGxvdyB1cHMgYW5k
IGRpZG4ndCByZWFsbHkgc2VlIGEgcmVhc29uIHdoeSB0byBkbyBzdWNoXHBhcg0KPiBmdXp6eSB0
aGluZ3MuLi4gc29ycnkgZm9sa3MgOilccGFyDQo+XHBhcg0KPiBUaGUgc29sdXRpb24gdG8gdGhp
cyBpbmRlZWQgaXMgdG8gY2FsbCBTZXJ2aWNlcy5hY3Rpb25Ib29rLlN0ZXAgZHVyaW5nIGFccGFy
DQo+IHRpbWVkIGxvb3AuXHBhcg0KPiBUaGlzIHByb2NlZHVyZSBleGFjdGx5IGRvZXMgdGhlIHN0
ZXBwaW5nIG9mIHRoZSBiYWNrZ3JvdW5kIHRhc2tzXHBhcg0KPiAoU2VydmljZXMuQWN0aW9ucykg
YW5kIHdvcmtzIGZpbmUgd2hpbGUgYmVpbmcgY2FsbGVkIG9uIGNvbW1hbmQgbGV2ZWwgYWxzby5c
cGFyDQo+IChJdCBzaG91bGQgbm90IGJlIGNhbGxlZCBieSBBY3Rpb25zLCBob3dldmVyISlccGFy
DQo+IChXZWxsLCBsZXQgbWUgYWxzbyBjbGFyaWZ5IHRoYXQgdGhpcyBpcyBteSB1bmRlcnN0YW5k
aW5nIG9mIHRoZSBtb2R1bGVccGFyDQo+IFNlcnZpY2VzIGFuZCBub3QgYSBkb2N1bWVudGVkIGZl
YXR1cmUuKVxwYXINCj5ccGFyDQo+IEhvdyBjb21lIHlvdSBkaWRuJ3QgdHJ5IHRoaXMgeW91cnNl
bGYgYWZ0ZXIgaGF2aW5nIHN1Z2dlc3RlZCBpdCBpbiB4eUJvc3MzP1xwYXINCj5ccGFyDQo+IE5v
dGUgdGhhdCBieSBhZGRpbmcgc3VjaCBhIGNhbGwgaW4gSG9zdFBvcnRzLklucHV0IGZvbGxvd2Vk
IGJ5IGEgY29uZGl0aW9uYWxccGFyDQo+IEtlcm5lbC5TbGVlcCBhbmQgaGF2aW5nIFNlcnZpY2Vz
LmFjdGlvbkhvb2suU3RlcCBhIGxpdHRsZSBiaXQgbW9yZSByb2J1c3RccGFyDQo+IHRvd2FyZHMg
Y2FsbHMgZnJvbSBhbnl3aGVyZSAoZXZlbiBBY3Rpb25zKSBhbnkgQkIgc3lzdGVtIGJlY29tZXMg
bXVjaCBtb3JlXHBhcg0KPiByZXNwb25zaXZlIGFuZCB3b24ndCBkbyBhbnkgZXhjZXNzIENQVSBo
ZWF0aW5nIHdoaWxlIHRyYWNraW5nIHRoZSBtb3VzZSxccGFyDQo+IGUuZy4gbWFraW5nIGEgdGV4
dCBzZWxlY3Rpb24gOylccGFyDQo+XHBhcg0KPiBSZWdhcmRzXHBhcg0KPiBNYXJjbyBDaW90XHBh
cg0KPlxwYXINCj4gICBccGFyDQpccGFyDQotLS0gQmxhY2tCb3hccGFyDQotLS0gc2VuZCBzdWJq
ZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0K
fQ==


----boundary-LibPST-iamunique-1861506626_-_---
Received on Fri May 12 2006 - 19:51:59 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:28:01 UTC