- Action.Do method call interval

From: [at]} <Necati>
Date: Mon, 11 Jul 2005 13:28:36 +0300

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

Hello Blackbox users,


Action.Do method is normally called at about 50 ms intervals if its body
is empty (measured by PrivTestAction module as shown below) in Blackbox
1.5. Is it possible to decrease this dead time 1-3 ms?. i.e., I would
like it to be called in 1-3 ms intervals.

Alternatively, I can use the following technique;
I have a long computation in a FOR loop. When the loop starts the
framework is locked until it is finished. If I would like to to stop
computation by pressing a command or command button how this can be
achieved.
(In Delphi, there was an Application.ProcessMessages procedure, when
this procedure is called in a loop I could use the buttons to exit from
the loop, that increases the computation time also)

Thanks for help,

- Necati

(******************)
MODULE PrivTestAction;
        

        IMPORT Out, Services;

        TYPE
                Action = POINTER TO RECORD (Services.Action) END;

        VAR i: INTEGER;

                action: Action;
                actionalive: BOOLEAN;
                dt0, time: LONGINT;

        PROCEDURE (a: Action) Do;
        BEGIN
                IF actionalive THEN
                        time := Services.Ticks() - dt0;
                        Services.DoLater(action, Services.now);
                        dt0 := Services.Ticks();
                END;
        END Do;


        PROCEDURE Start*;
        BEGIN
                actionalive := TRUE;
                Out.String('Started'); Out.Ln;
                Services.DoLater(action, Services.now);
                dt0 := 0;
        END Start;

        PROCEDURE Stop*;
        BEGIN
                actionalive := FALSE;
                Out.String('time (ms): '); Out.Int(time, 0); Out.Ln;
        END Stop;

BEGIN

        NEW(action);
        actionalive := FALSE;

END PrivTestAction.

PrivTestAction.Start

PrivTestAction.Stop

(* time: 50 - 55 ms *)

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



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

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbGxvIEJsYWNrYm94IHVzZXJzLFxwYXINClxw
YXINClxwYXINCkFjdGlvbi5EbyBtZXRob2QgaXMgbm9ybWFsbHkgY2FsbGVkIGF0IGFib3V0IDUw
IG1zIGludGVydmFscyBpZiBpdHMgYm9keVxwYXINCmlzIGVtcHR5IChtZWFzdXJlZCBieSBQcml2
VGVzdEFjdGlvbiBtb2R1bGUgYXMgc2hvd24gYmVsb3cpIGluIEJsYWNrYm94XHBhcg0KMS41LiBJ
cyBpdCBwb3NzaWJsZSB0byBkZWNyZWFzZSB0aGlzIGRlYWQgdGltZSAxLTMgbXM/LiBpLmUuLCBJ
IHdvdWxkXHBhcg0KbGlrZSBpdCB0byBiZSBjYWxsZWQgaW4gMS0zIG1zIGludGVydmFscy5ccGFy
DQpccGFyDQpBbHRlcm5hdGl2ZWx5LCBJIGNhbiB1c2UgdGhlIGZvbGxvd2luZyB0ZWNobmlxdWU7
XHBhcg0KSSBoYXZlIGEgbG9uZyBjb21wdXRhdGlvbiBpbiBhIEZPUiBsb29wLiBXaGVuIHRoZSBs
b29wIHN0YXJ0cyB0aGVccGFyDQpmcmFtZXdvcmsgaXMgbG9ja2VkIHVudGlsIGl0IGlzIGZpbmlz
aGVkLiBJZiBJIHdvdWxkIGxpa2UgdG8gdG8gc3RvcFxwYXINCmNvbXB1dGF0aW9uIGJ5IHByZXNz
aW5nIGEgY29tbWFuZCBvciBjb21tYW5kIGJ1dHRvbiBob3cgdGhpcyBjYW4gYmVccGFyDQphY2hp
ZXZlZC4gXHBhcg0KKEluIERlbHBoaSwgdGhlcmUgd2FzIGFuIEFwcGxpY2F0aW9uLlByb2Nlc3NN
ZXNzYWdlcyBwcm9jZWR1cmUsIHdoZW5ccGFyDQp0aGlzIHByb2NlZHVyZSBpcyBjYWxsZWQgaW4g
YSBsb29wIEkgY291bGQgdXNlIHRoZSBidXR0b25zIHRvIGV4aXQgZnJvbVxwYXINCnRoZSBsb29w
LCB0aGF0IGluY3JlYXNlcyB0aGUgY29tcHV0YXRpb24gdGltZSBhbHNvKVxwYXINClxwYXINClRo
YW5rcyBmb3IgaGVscCxccGFyDQpccGFyDQotIE5lY2F0aVxwYXINClxwYXINCigqKioqKioqKioq
KioqKioqKiopXHBhcg0KTU9EVUxFIFByaXZUZXN0QWN0aW9uO1xwYXINClx0YWIgXHBhcg0KXHBh
cg0KXHRhYiBJTVBPUlQgT3V0LCBTZXJ2aWNlcztccGFyDQpccGFyDQpcdGFiIFRZUEVccGFyDQpc
dGFiIFx0YWIgQWN0aW9uID0gUE9JTlRFUiBUTyBSRUNPUkQgKFNlcnZpY2VzLkFjdGlvbikgRU5E
O1xwYXINClxwYXINClx0YWIgVkFSIGk6IElOVEVHRVI7XHBhcg0KXHBhcg0KXHRhYiBcdGFiIGFj
dGlvbjogQWN0aW9uO1xwYXINClx0YWIgXHRhYiBhY3Rpb25hbGl2ZTogQk9PTEVBTjtccGFyDQpc
dGFiIFx0YWIgZHQwLCB0aW1lOiBMT05HSU5UO1xwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIChh
OiBBY3Rpb24pIERvO1xwYXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgSUYgYWN0aW9uYWxp
dmUgVEhFTlxwYXINClx0YWIgXHRhYiBcdGFiIHRpbWUgOj0gU2VydmljZXMuVGlja3MoKSAtIGR0
MDtccGFyDQpcdGFiIFx0YWIgXHRhYiBTZXJ2aWNlcy5Eb0xhdGVyKGFjdGlvbiwgU2VydmljZXMu
bm93KTtccGFyDQpcdGFiIFx0YWIgXHRhYiBkdDAgOj0gU2VydmljZXMuVGlja3MoKTtccGFyDQpc
dGFiIFx0YWIgRU5EO1xwYXINClx0YWIgRU5EIERvO1xwYXINClxwYXINClxwYXINClx0YWIgUFJP
Q0VEVVJFIFN0YXJ0KjtccGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIGFjdGlvbmFsaXZl
IDo9IFRSVUU7XHBhcg0KXHRhYiBcdGFiIE91dC5TdHJpbmcoJ1N0YXJ0ZWQnKTsgT3V0LkxuO1xw
YXINClx0YWIgXHRhYiBTZXJ2aWNlcy5Eb0xhdGVyKGFjdGlvbiwgU2VydmljZXMubm93KTtccGFy
DQpcdGFiIFx0YWIgZHQwIDo9IDA7XHBhcg0KXHRhYiBFTkQgU3RhcnQ7XHBhcg0KXHBhcg0KXHRh
YiBQUk9DRURVUkUgU3RvcCo7XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBhY3Rpb25h
bGl2ZSA6PSBGQUxTRTtccGFyDQpcdGFiIFx0YWIgT3V0LlN0cmluZygndGltZSAobXMpOiAnKTsg
T3V0LkludCh0aW1lLCAwKTsgT3V0LkxuO1xwYXINClx0YWIgRU5EIFN0b3A7XHBhcg0KXHBhcg0K
QkVHSU5ccGFyDQpccGFyDQpcdGFiIE5FVyhhY3Rpb24pO1xwYXINClx0YWIgYWN0aW9uYWxpdmUg
Oj0gRkFMU0U7XHBhcg0KXHBhcg0KRU5EIFByaXZUZXN0QWN0aW9uLlxwYXINClxwYXINClByaXZU
ZXN0QWN0aW9uLlN0YXJ0XHBhcg0KXHBhcg0KUHJpdlRlc3RBY3Rpb24uU3RvcFxwYXINClxwYXIN
CigqIHRpbWU6IDUwIC0gNTUgbXMgKilccGFyDQpccGFyDQotLS0gQmxhY2tCb3hccGFyDQotLS0g
c2VuZCBzdWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNofX0A
dW5pLW11ZW5jaA==


----boundary-LibPST-iamunique-89827071_-_---
Received on Mon Jul 11 2005 - 12:28:36 UTC