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

From: [at]} <Chris>
Date: Thu, 3 Dec 2009 17:33:33 +1030

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

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Josef Templ
>Sent: Thursday, 3 December 2009 4:49 PM
>To: BLACKBOX{([at]})nowhere.xy
>Subject: [BLACKBOX] Long running command and Dialog.ShowStatus
>
>Hi Everybody!
>
>I have a long running command (about 15 min) and in order to
>show that it makes progress, I call Dialog.ShowStatus, which
>displays a message in the status bar at the bottom of the
>application window.
>
>This works fine as long as there is no event being sent to the
>application e.g. by clicking the mouse or pressing a key.
>If such an event occurs, the status bar stops being updated
>after about 5 seconds and the application appears to be
>completely frozen until the command terminates.
>This confuses the users and it confuses even me.
>

AFAIK, the proper solution for this sort of problem is to use multiple /
background threads. However, a less elegant but easier and possibly
effective solution is to periodically process the Windows Message queue. The
following example should help you get started:

MODULE TestLong;

IMPORT Dialog, Strings, Win := WinApi;

PROCEDURE ProcessMessages;
  VAR msg: Win.MSG; res: INTEGER;
BEGIN
  WHILE Win.PeekMessage(msg, 0, 0, 0, Win.PM_REMOVE) # 0 DO
    res := Win.TranslateMessage(msg);
    res := Win.DispatchMessageA(msg)
  END
END ProcessMessages;
        
PROCEDURE Do*;
  VAR i, j: INTEGER; s: ARRAY 20 OF CHAR; BEGIN
  FOR i := 0 TO 300 DO
    ProcessMessages;
    FOR j := 0 TO 10000000 DO
    END ;
    Strings.IntToString(i, s);
    Dialog.ShowStatus("msg " + s)
  END
END Do;

END TestLong.

P.S. My system must be faster than yours - I had to increase the j loop by a
factor of 10 to 100000000 to actually test it!

Regards,
Chris

--
Chris Burrows
CFB Software
Armaide: ARM Oberon-07 Development System
http://www.cfbsoftware.com/armaide.htm
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1217423967_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIFxwYXINCj5Kb3NlZiBUZW1wbFxwYXINCj5TZW50OiBUaHVyc2RheSwgMyBEZWNl
bWJlciAyMDA5IDQ6NDkgUE1ccGFyDQo+VG86IEJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSFxwYXIN
Cj5TdWJqZWN0OiBbQkxBQ0tCT1hdIExvbmcgcnVubmluZyBjb21tYW5kIGFuZCBEaWFsb2cuU2hv
d1N0YXR1c1xwYXINCj5ccGFyDQo+SGkgRXZlcnlib2R5IVxwYXINCj5ccGFyDQo+SSBoYXZlIGEg
bG9uZyBydW5uaW5nIGNvbW1hbmQgKGFib3V0IDE1IG1pbikgYW5kIGluIG9yZGVyIHRvIFxwYXIN
Cj5zaG93IHRoYXQgaXQgbWFrZXMgcHJvZ3Jlc3MsIEkgY2FsbCBEaWFsb2cuU2hvd1N0YXR1cywg
d2hpY2ggXHBhcg0KPmRpc3BsYXlzIGEgbWVzc2FnZSBpbiB0aGUgc3RhdHVzIGJhciBhdCB0aGUg
Ym90dG9tIG9mIHRoZSBccGFyDQo+YXBwbGljYXRpb24gd2luZG93LlxwYXINCj5ccGFyDQo+VGhp
cyB3b3JrcyBmaW5lIGFzIGxvbmcgYXMgdGhlcmUgaXMgbm8gZXZlbnQgYmVpbmcgc2VudCB0byB0
aGUgXHBhcg0KPmFwcGxpY2F0aW9uIGUuZy4gYnkgY2xpY2tpbmcgdGhlIG1vdXNlIG9yIHByZXNz
aW5nIGEga2V5LlxwYXINCj5JZiBzdWNoIGFuIGV2ZW50IG9jY3VycywgdGhlIHN0YXR1cyBiYXIg
c3RvcHMgYmVpbmcgdXBkYXRlZCBccGFyDQo+YWZ0ZXIgYWJvdXQgNSBzZWNvbmRzIGFuZCB0aGUg
YXBwbGljYXRpb24gYXBwZWFycyB0byBiZSBccGFyDQo+Y29tcGxldGVseSBmcm96ZW4gdW50aWwg
dGhlIGNvbW1hbmQgdGVybWluYXRlcy5ccGFyDQo+VGhpcyBjb25mdXNlcyB0aGUgdXNlcnMgYW5k
IGl0IGNvbmZ1c2VzIGV2ZW4gbWUuXHBhcg0KPlxwYXINClxwYXINCkFGQUlLLCB0aGUgcHJvcGVy
IHNvbHV0aW9uIGZvciB0aGlzIHNvcnQgb2YgcHJvYmxlbSBpcyB0byB1c2UgbXVsdGlwbGUgL1xw
YXINCmJhY2tncm91bmQgdGhyZWFkcy4gSG93ZXZlciwgYSBsZXNzIGVsZWdhbnQgYnV0IGVhc2ll
ciBhbmQgcG9zc2libHlccGFyDQplZmZlY3RpdmUgc29sdXRpb24gaXMgdG8gcGVyaW9kaWNhbGx5
IHByb2Nlc3MgdGhlIFdpbmRvd3MgTWVzc2FnZSBxdWV1ZS4gVGhlXHBhcg0KZm9sbG93aW5nIGV4
YW1wbGUgc2hvdWxkIGhlbHAgeW91IGdldCBzdGFydGVkOlxwYXINClxwYXINCk1PRFVMRSBUZXN0
TG9uZztccGFyDQpccGFyDQpJTVBPUlQgRGlhbG9nLCBTdHJpbmdzLCBXaW4gOj0gV2luQXBpO1xw
YXINClxwYXINClBST0NFRFVSRSBQcm9jZXNzTWVzc2FnZXM7XHBhcg0KICBWQVIgbXNnOiBXaW4u
TVNHOyByZXM6IElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQogIFdISUxFIFdpbi5QZWVrTWVzc2Fn
ZShtc2csIDAsIDAsIDAsIFdpbi5QTV9SRU1PVkUpICMgMCBET1xwYXINCiAgICByZXMgOj0gV2lu
LlRyYW5zbGF0ZU1lc3NhZ2UobXNnKTtccGFyDQogICAgcmVzIDo9IFdpbi5EaXNwYXRjaE1lc3Nh
Z2VBKG1zZylccGFyDQogIEVORFxwYXINCkVORCBQcm9jZXNzTWVzc2FnZXM7XHBhcg0KXHRhYiBc
cGFyDQpQUk9DRURVUkUgRG8qO1xwYXINCiAgVkFSIGksIGo6IElOVEVHRVI7IHM6IEFSUkFZIDIw
IE9GIENIQVI7IEJFR0lOXHBhcg0KICBGT1IgaSA6PSAwIFRPIDMwMCBET1xwYXINCiAgICBQcm9j
ZXNzTWVzc2FnZXM7XHBhcg0KICAgIEZPUiBqIDo9IDAgVE8gMTAwMDAwMDAgRE9ccGFyDQogICAg
RU5EIDtccGFyDQogICAgU3RyaW5ncy5JbnRUb1N0cmluZyhpLCBzKTtccGFyDQogICAgRGlhbG9n
LlNob3dTdGF0dXMoIm1zZyAiICsgcylccGFyDQogIEVORFxwYXINCkVORCBEbztccGFyDQpccGFy
DQpFTkQgVGVzdExvbmcuXHBhcg0KXHBhcg0KUC5TLiBNeSBzeXN0ZW0gbXVzdCBiZSBmYXN0ZXIg
dGhhbiB5b3VycyAtIEkgaGFkIHRvIGluY3JlYXNlIHRoZSBqIGxvb3AgYnkgYVxwYXINCmZhY3Rv
ciBvZiAxMCB0byAxMDAwMDAwMDAgdG8gYWN0dWFsbHkgdGVzdCBpdCFccGFyDQpccGFyDQpSZWdh
cmRzLFxwYXINCkNocmlzXHBhcg0KXHBhcg0KLS1ccGFyDQpDaHJpcyBCdXJyb3dzXHBhcg0KQ0ZC
IFNvZnR3YXJlXHBhcg0KQXJtYWlkZTogQVJNIE9iZXJvbi0wNyBEZXZlbG9wbWVudCBTeXN0ZW1c
cGFyDQpodHRwOi8vd3d3LmNmYnNvZnR3YXJlLmNvbS9hcm1haWRlLmh0bVxwYXINClxwYXINClxw
YXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJT
SUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hcfX0AdC1I
----boundary-LibPST-iamunique-1217423967_-_---

Received on Thu Dec 03 2009 - 08:03:33 UTC