[BLACKBOX] Long running command and Dialog.ShowStatus

From: [at]} <Josef>
Date: Thu, 3 Dec 2009 07:19:20 +0100

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

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.

I observed in the Windows Task Manager that the application is getting
a 'not responding' state after 5 seconds and also the application window
title changes in order to indicate that it is not responding.
I guess that there is some connection between this state change
and the update behavior of the status bar.

Is there any solution to this problem?
Any kind of better progress bar?
Any way of telling windows that the app is still alive?
Any way of increasing the 5 sec timeout?
Any other idea?

Thanks

- Josef

P.S. A simple test program follows

MODULE TestLong;
IMPORT Dialog, Strings;
PROCEDURE Do*;
  VAR i, j: INTEGER; s: ARRAY 20 OF CHAR;
BEGIN
  FOR i := 0 TO 300 DO
    FOR j := 0 TO 10000000 DO
    END ;
    Strings.IntToString(i, s);
    Dialog.ShowStatus("msg " + s)
  END
END Do;
END TestLong.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-193529084_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIEV2ZXJ5Ym9keSFccGFyDQpccGFyDQpJIGhh
dmUgYSBsb25nIHJ1bm5pbmcgY29tbWFuZCAoYWJvdXQgMTUgbWluKSBhbmQgaW4gb3JkZXJccGFy
DQp0byBzaG93IHRoYXQgaXQgbWFrZXMgcHJvZ3Jlc3MsIEkgY2FsbCBEaWFsb2cuU2hvd1N0YXR1
cyxccGFyDQp3aGljaCBkaXNwbGF5cyBhIG1lc3NhZ2UgaW4gdGhlIHN0YXR1cyBiYXIgYXQgdGhl
IGJvdHRvbSBvZiB0aGUgXHBhcg0KYXBwbGljYXRpb24gd2luZG93LlxwYXINClxwYXINClRoaXMg
d29ya3MgZmluZSBhcyBsb25nIGFzIHRoZXJlIGlzIG5vIGV2ZW50IGJlaW5nIHNlbnQgdG8gdGhl
XHBhcg0KYXBwbGljYXRpb24gZS5nLiBieSBjbGlja2luZyB0aGUgbW91c2Ugb3IgcHJlc3Npbmcg
YSBrZXkuXHBhcg0KSWYgc3VjaCBhbiBldmVudCBvY2N1cnMsIHRoZSBzdGF0dXMgYmFyIHN0b3Bz
IGJlaW5nIHVwZGF0ZWRccGFyDQphZnRlciBhYm91dCA1IHNlY29uZHMgYW5kIHRoZSBhcHBsaWNh
dGlvbiBhcHBlYXJzIHRvIGJlXHBhcg0KY29tcGxldGVseSBmcm96ZW4gdW50aWwgdGhlIGNvbW1h
bmQgdGVybWluYXRlcy5ccGFyDQpUaGlzIGNvbmZ1c2VzIHRoZSB1c2VycyBhbmQgaXQgY29uZnVz
ZXMgZXZlbiBtZS5ccGFyDQpccGFyDQpJIG9ic2VydmVkIGluIHRoZSBXaW5kb3dzIFRhc2sgTWFu
YWdlciB0aGF0IHRoZSBhcHBsaWNhdGlvbiBpcyBnZXR0aW5nXHBhcg0KYSAnbm90ICByZXNwb25k
aW5nJyBzdGF0ZSBhZnRlciA1IHNlY29uZHMgYW5kIGFsc28gdGhlIGFwcGxpY2F0aW9uIHdpbmRv
d1xwYXINCnRpdGxlIGNoYW5nZXMgaW4gb3JkZXIgdG8gaW5kaWNhdGUgdGhhdCBpdCBpcyBub3Qg
cmVzcG9uZGluZy5ccGFyDQpJIGd1ZXNzIHRoYXQgdGhlcmUgaXMgc29tZSBjb25uZWN0aW9uIGJl
dHdlZW4gdGhpcyBzdGF0ZSBjaGFuZ2VccGFyDQphbmQgdGhlIHVwZGF0ZSBiZWhhdmlvciBvZiB0
aGUgc3RhdHVzIGJhci5ccGFyDQpccGFyDQpJcyB0aGVyZSBhbnkgc29sdXRpb24gdG8gdGhpcyBw
cm9ibGVtP1xwYXINCkFueSBraW5kIG9mIGJldHRlciBwcm9ncmVzcyBiYXI/XHBhcg0KQW55IHdh
eSBvZiB0ZWxsaW5nIHdpbmRvd3MgdGhhdCB0aGUgYXBwIGlzIHN0aWxsIGFsaXZlP1xwYXINCkFu
eSB3YXkgb2YgaW5jcmVhc2luZyB0aGUgNSBzZWMgdGltZW91dD9ccGFyDQpBbnkgb3RoZXIgaWRl
YT9ccGFyDQpccGFyDQpUaGFua3NccGFyDQpccGFyDQotIEpvc2VmXHBhcg0KXHBhcg0KUC5TLiBB
IHNpbXBsZSB0ZXN0IHByb2dyYW0gZm9sbG93c1xwYXINClxwYXINCk1PRFVMRSBUZXN0TG9uZztc
cGFyDQpJTVBPUlQgRGlhbG9nLCBTdHJpbmdzO1xwYXINClBST0NFRFVSRSBEbyo7XHBhcg0KICBW
QVIgaSwgajogSU5URUdFUjsgczogQVJSQVkgMjAgT0YgQ0hBUjtccGFyDQpCRUdJTlxwYXINCiAg
Rk9SIGkgOj0gMCBUTyAzMDAgRE9ccGFyDQogICAgRk9SIGogOj0gMCBUTyAxMDAwMDAwMCBET1xw
YXINCiAgICBFTkQgO1xwYXINCiAgICBTdHJpbmdzLkludFRvU3RyaW5nKGksIHMpO1xwYXINCiAg
ICBEaWFsb2cuU2hvd1N0YXR1cygibXNnICIgKyBzKVxwYXINCiAgRU5EXHBhcg0KRU5EIERvO1xw
YXINCkVORCBUZXN0TG9uZy5ccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3Jp
YmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNF
UlZATElTVFMuT0JFUk9OLkNIfX0AYWlsdA==
----boundary-LibPST-iamunique-193529084_-_---

Received on Thu Dec 03 2009 - 07:19:20 UTC