Re: [BLACKBOX] Long running command and Dialog.ShowStatus

From: [at]} <Georgy>
Date: Thu, 3 Dec 2009 21:05:56 +0100

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

You can also use background processing service using Services.Action:

MODULE TestLong;
        IMPORT Dialog, Services, Strings;
        TYPE LongFunc = POINTER TO RECORD (Services.Action)
                        i: INTEGER;
                END;
        VAR func: LongFunc;
        PROCEDURE (func: LongFunc) Do;
                VAR j: INTEGER; s: ARRAY 20 OF CHAR;
        BEGIN
                INC(func.i);
                FOR j := 0 TO 10000000 DO
                END;
                Strings.IntToString(func.i, s);
                Dialog.ShowStatus("msg " + s);
                IF func.i < 300 THEN
                        Services.DoLater(func, Services.now)
                ELSE
                        func := NIL;
                END;
        END Do;
        
        PROCEDURE Interrupt*;
                VAR res: INTEGER;
        BEGIN
                Services.RemoveAction(func);
                Dialog.GetOK("interrupted", "", "", "", {Dialog.ok}, res);
        END Interrupt;
        
        PROCEDURE DoLong*;
        BEGIN
                NEW(func);
                Services.DoLater(func, Services.now);
        END DoLong;
END TestLong.

^QTestLong.DoLong
^QTestLong.Interrupt

Chris, that's probably what you were suggesting?
This calculation takes more time however, as only 50% CPU is used by BlackBox.

Regards,
Georgy

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-488786972_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFlvdSBjYW4gYWxzbyB1c2UgYmFja2dyb3VuZCBw
cm9jZXNzaW5nIHNlcnZpY2UgdXNpbmcgU2VydmljZXMuQWN0aW9uOlxwYXINClxwYXINCk1PRFVM
RSBUZXN0TG9uZztccGFyDQpcdGFiIElNUE9SVCBEaWFsb2csIFNlcnZpY2VzLCBTdHJpbmdzO1xw
YXINClx0YWIgVFlQRSBMb25nRnVuYyA9IFBPSU5URVIgVE8gUkVDT1JEIChTZXJ2aWNlcy5BY3Rp
b24pXHBhcg0KXHRhYiBcdGFiIFx0YWIgaTogSU5URUdFUjtccGFyDQpcdGFiIFx0YWIgRU5EO1xw
YXINClx0YWIgVkFSIGZ1bmM6IExvbmdGdW5jO1xwYXINClx0YWIgUFJPQ0VEVVJFIChmdW5jOiBM
b25nRnVuYykgRG87XHBhcg0KXHRhYiBcdGFiIFZBUiBqOiBJTlRFR0VSOyBzOiBBUlJBWSAyMCBP
RiBDSEFSO1xwYXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgSU5DKGZ1bmMuaSk7XHBhcg0K
XHRhYiBcdGFiIEZPUiBqIDo9IDAgVE8gMTAwMDAwMDAgRE9ccGFyDQpcdGFiIFx0YWIgRU5EO1xw
YXINClx0YWIgXHRhYiBTdHJpbmdzLkludFRvU3RyaW5nKGZ1bmMuaSwgcyk7XHBhcg0KXHRhYiBc
dGFiIERpYWxvZy5TaG93U3RhdHVzKCJtc2cgIiArIHMpO1xwYXINClx0YWIgXHRhYiBJRiBmdW5j
LmkgPCAzMDAgVEhFTlxwYXINClx0YWIgXHRhYiBcdGFiIFNlcnZpY2VzLkRvTGF0ZXIoZnVuYywg
U2VydmljZXMubm93KVxwYXINClx0YWIgXHRhYiBFTFNFXHBhcg0KXHRhYiBcdGFiIFx0YWIgZnVu
YyA6PSBOSUw7XHBhcg0KXHRhYiBcdGFiIEVORDtccGFyDQpcdGFiIEVORCBEbztccGFyDQpcdGFi
IFxwYXINClx0YWIgUFJPQ0VEVVJFIEludGVycnVwdCo7XHBhcg0KXHRhYiBcdGFiIFZBUiAgIHJl
czogSU5URUdFUjtccGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIFNlcnZpY2VzLlJlbW92
ZUFjdGlvbihmdW5jKTtccGFyDQpcdGFiIFx0YWIgRGlhbG9nLkdldE9LKCJpbnRlcnJ1cHRlZCIs
ICIiLCAiIiwgIiIsIFx7RGlhbG9nLm9rXH0sIHJlcyk7XHBhcg0KXHRhYiBFTkQgSW50ZXJydXB0
O1xwYXINClx0YWIgXHBhcg0KXHRhYiBQUk9DRURVUkUgRG9Mb25nKjtccGFyDQpcdGFiIEJFR0lO
XHBhcg0KXHRhYiBcdGFiIE5FVyhmdW5jKTtccGFyDQpcdGFiIFx0YWIgU2VydmljZXMuRG9MYXRl
cihmdW5jLCBTZXJ2aWNlcy5ub3cpO1xwYXINClx0YWIgRU5EIERvTG9uZztccGFyDQpFTkQgVGVz
dExvbmcuXHBhcg0KXHBhcg0KXlFUZXN0TG9uZy5Eb0xvbmdccGFyDQpeUVRlc3RMb25nLkludGVy
cnVwdFxwYXINClxwYXINCkNocmlzLCB0aGF0J3MgcHJvYmFibHkgd2hhdCB5b3Ugd2VyZSBzdWdn
ZXN0aW5nP1xwYXINClRoaXMgY2FsY3VsYXRpb24gdGFrZXMgbW9yZSB0aW1lIGhvd2V2ZXIsIGFz
IG9ubHkgNTAlIENQVSBpcyB1c2VkIGJ5IEJsYWNrQm94LlxwYXINClxwYXINClJlZ2FyZHMsXHBh
cg0KR2Vvcmd5XHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5k
IGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RT
Lk9CRVJPTi5DSH19AOAEACQ=
----boundary-LibPST-iamunique-488786972_-_---

Received on Thu Dec 03 2009 - 21:05:56 UTC