Re: [BLACKBOX] Program freezes when window loses focus

From: [at]} <Rex>
Date: Tue, 29 Mar 2011 15:26:21 -0500

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

At 06:42 PM 3/28/2011, Stephen Troy wrote:
>Thanks, Rex, but it seems as though the application is really, really freezing, and it doesn't seem to respond to anything, up to and including a sledgehammer.


        Yes, I know. At this point I'm trying to understand it myself. This shows my profound ignorance of Windows programming, but beyond that, I'm trying to find a ReadKey method that works. With just the line

REPEAT UNTIL ORD(XYplane.ReadKey()) #0

the display freezes solid if you change focus with the mouse, but it still reponds to the keystroke if you <Alt><Tab> through windows.

With

REPEAT
        ProcessMessages
UNTIL ORD(k.ReadKey()) # 0;

ReadKey is unresponsive, and there are bizarre, unpredictable effects on the BB GUI. (Complete program below)

        Does BB have any simple, unfailing procedure to read input directly from the keyboard? Evidently XYplane.ReadKey doesn't work. There has to be something.

Rex Couture


MODULE TestReadKey; (* Not working *)
IMPORT k:=XYplane,StdLog, 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 P*;
        VAR c: CHAR;
        BEGIN
        REPEAT
                ProcessMessages
        UNTIL ORD(k.ReadKey()) # 0;
        StdLog.Ln;
        StdLog.String( 'If you see this, it works');
        END P;
END TestReadKey.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-293093510_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEF0IDA2OjQyIFBNIDMvMjgvMjAxMSwgU3RlcGhl
biBUcm95IHdyb3RlOlxwYXINCj5UaGFua3MsIFJleCwgYnV0IGl0IHNlZW1zIGFzIHRob3VnaCB0
aGUgYXBwbGljYXRpb24gaXMgcmVhbGx5LCByZWFsbHkgZnJlZXppbmcsIGFuZCBpdCBkb2Vzbid0
IHNlZW0gdG8gcmVzcG9uZCB0byBhbnl0aGluZywgdXAgdG8gYW5kIGluY2x1ZGluZyBhIHNsZWRn
ZWhhbW1lci5ccGFyDQpccGFyDQpccGFyDQogICAgICAgIFllcywgSSBrbm93LiAgQXQgdGhpcyBw
b2ludCBJJ20gdHJ5aW5nIHRvIHVuZGVyc3RhbmQgaXQgbXlzZWxmLiAgVGhpcyBzaG93cyBteSBw
cm9mb3VuZCBpZ25vcmFuY2Ugb2YgV2luZG93cyBwcm9ncmFtbWluZywgYnV0IGJleW9uZCB0aGF0
LCBJJ20gdHJ5aW5nIHRvIGZpbmQgYSBSZWFkS2V5IG1ldGhvZCB0aGF0IHdvcmtzLiAgV2l0aCBq
dXN0IHRoZSBsaW5lXHBhcg0KXHBhcg0KUkVQRUFUIFVOVElMIE9SRChYWXBsYW5lLlJlYWRLZXko
KSkgIzBccGFyDQpccGFyDQp0aGUgZGlzcGxheSBmcmVlemVzIHNvbGlkIGlmIHlvdSBjaGFuZ2Ug
Zm9jdXMgd2l0aCB0aGUgbW91c2UsIGJ1dCBpdCBzdGlsbCByZXBvbmRzIHRvIHRoZSBrZXlzdHJv
a2UgaWYgeW91IDxBbHQ+PFRhYj4gdGhyb3VnaCB3aW5kb3dzLlxwYXINClxwYXINCldpdGhccGFy
DQpccGFyDQpSRVBFQVRccGFyDQogICAgICAgIFByb2Nlc3NNZXNzYWdlc1xwYXINClVOVElMIE9S
RChrLlJlYWRLZXkoKSkgIyAwO1xwYXINClxwYXINClJlYWRLZXkgaXMgdW5yZXNwb25zaXZlLCBh
bmQgdGhlcmUgYXJlIGJpemFycmUsIHVucHJlZGljdGFibGUgZWZmZWN0cyBvbiB0aGUgQkIgR1VJ
LiAgKENvbXBsZXRlIHByb2dyYW0gYmVsb3cpXHBhcg0KXHBhcg0KICAgICAgICBEb2VzIEJCIGhh
dmUgYW55IHNpbXBsZSwgdW5mYWlsaW5nIHByb2NlZHVyZSB0byByZWFkIGlucHV0IGRpcmVjdGx5
IGZyb20gdGhlIGtleWJvYXJkPyAgRXZpZGVudGx5IFhZcGxhbmUuUmVhZEtleSBkb2Vzbid0IHdv
cmsuICBUaGVyZSBoYXMgdG8gYmUgc29tZXRoaW5nLlxwYXINClxwYXINClJleCBDb3V0dXJlXHBh
cg0KXHBhcg0KXHBhcg0KTU9EVUxFIFRlc3RSZWFkS2V5OyAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAoKiBOb3Qgd29ya2luZyAqKVxwYXINCklNUE9SVCBrOj1YWXBsYW5lLFN0ZExv
ZywgV2luOj0gV2luQXBpO1xwYXINClxwYXINClBST0NFRFVSRSBQcm9jZXNzTWVzc2FnZXM7XHBh
cg0KICBWQVIgbXNnOiBXaW4uTVNHOyByZXM6IElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQogIFdI
SUxFIFdpbi5QZWVrTWVzc2FnZShtc2csIDAsIDAsIDAsIFdpbi5QTV9SRU1PVkUpICMgMCBET1xw
YXINCiAgICByZXMgOj0gV2luLlRyYW5zbGF0ZU1lc3NhZ2UobXNnKTtccGFyDQogICAgcmVzIDo9
IFdpbi5EaXNwYXRjaE1lc3NhZ2VBKG1zZylccGFyDQogIEVORFxwYXINCkVORCBQcm9jZXNzTWVz
c2FnZXM7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIFAqO1xwYXINCiAgICAgICAgVkFSIGM6IENIQVI7
XHBhcg0KICAgICAgICBCRUdJTlxwYXINCiAgICAgICAgUkVQRUFUXHBhcg0KICAgICAgICAgICAg
ICAgIFByb2Nlc3NNZXNzYWdlc1xwYXINCiAgICAgICAgVU5USUwgT1JEKGsuUmVhZEtleSgpKSAj
IDA7XHBhcg0KICAgICAgICBTdGRMb2cuTG47XHBhcg0KICAgICAgICBTdGRMb2cuU3RyaW5nKCAn
SWYgeW91IHNlZSB0aGlzLCBpdCB3b3JrcycpO1xwYXINCiAgICAgICAgRU5EIFA7XHBhcg0KRU5E
IFRlc3RSZWFkS2V5LiBccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUs
IHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZA
TElTVFMuT0JFUk9OLkNIfX0AQkxBQw==
----boundary-LibPST-iamunique-293093510_-_---

Received on Tue Mar 29 2011 - 22:26:21 UTC