RE: [BLACKBOX] Cursor re-focus

From: null <">
Date: Fri, 17 Sep 2010 14:08:26 +0000

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

Dear Doug,

having encountered recently a similar problem, when working with folds,
I digged through the BlackBox mailing List and found your solution,
which you posted in March:

> -----Original Message-----
> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
> Douglas G. Danforth
> Sent: Tuesday, March 02, 2010 5:20 AM
[...]
>
> PROCEDURE SetFocus;
> VAR res: INTEGER; win: HostWindows.Window;
> BEGIN
> win := HostWindows.dir.Focus(Controllers.targetPath);
> res := WinApi.SetFocus(win.wnd);
> res := WinApi.UpdateWindow(win.wnd)
> END SetFocus;

I am just curious: Can you explain the inner workings of it to me?

Below is my solution, which does not even require changing any of the BlackBox modules, it requires only a little addition to Std/Rsrc/Fold.odc, which is included below as StdCoded text.

--
  Bernhard 
---------------------
MODULE PrivFocus;
(*
  *  posted to the BlackBox Mailing List on 2-Mar-2010 by Doug Danforth
 *)
IMPORT Controllers, WinApi, HostWindows;
PROCEDURE ReFocus*;
	VAR res: INTEGER; win: HostWindows.Window;
    BEGIN
        win := HostWindows.dir.Focus(Controllers.targetPath);
        res := WinApi.SetFocus(win.wnd);
        res := WinApi.UpdateWindow(win.wnd)
    END ReFocus;
END PrivFocus.
--------------------
StdCoder.Decode ..,, ..Di....3Qw7uP5PRPPNR9Rbf9b8R79FTvMf1GomCrlAy2xhX,Cb2x
 hXhC6FU1xhiZiVBhihgmRiioedhgrZcZRiXFfaqmSrtuGfa4700zdGrr8rmCLLCJuyKtYcZRiX
 7.2.s,63L.,6.5Qw7uP51QCPuP7PNN9F9vQAy1xB.gdj,UBxhYhAbf9P0G2sIdvPZntgcghghZ
 cZRC8T0E.Ele.H.pe02.,U0eFTfQPfJHPNCbHZiYpedhgrZ6MwBuPZ1QCh0708T,U..w.YU8.,
 sUOor8bBxhYltQ8qorGqmY6Mw.sQq2Y6cwB.0.nM0I,AW7E.0E.E,RcjpBZvPNvQRtFZvPf9Q7
 ONbXlT6.CoruKuEWKqtcw5.,6.o32U.E9U.YU.E...EUal.U.MXDFUfL6Ikmj,6.o36.o06.7E
 .2...2cNEUfL62UBG.jGAIkl1sQAgkZidxhiZcZRiXF5U.EjU.EXU.Y.,cFaai7Ne1GZZ7SGb1
 NPGand9OYjtMKbntFKbVdQGa.6..1.0E.9H,2s9R.,wZBEUur0IklT6.OooKKqGKWKqt.,E.0.
 Z20.p10E0CZo7NOYj7PGanVatPU2NMGbVd9Oad,mYVdMKag7.0UH7RcF.C5OYd,.U5NR.0U..A
 .6.,wZBE.9H,MevEUur0..CIoKqliKVyKwGomC5Zb.E.6V2U.UgV.6,YCo6.b1Bnr.70d1RlkY
 BN11Gq.d0..o6Tnlkt.11E...QsS6kL0pO70Iz..28b9O3ORd9RTfP7ONcw2.0.d2,.t1,E06R
 cF6PsQcFa4cFaamtQGb4tPU.cFaaiVUcFcQU.6JK4..sPC4,sQUVVY7.0..E.910v1s9PE.nT3
 IkmL06.2G2.2D2.7.Ga4tPm4C5MOu4uYZ7ScF.0U4NOUUcH.0UI,sE.UjtMsQUV,0U...2EM3N
 Ujg,4q5IkmL06.2L2.2I2.7.cFyagVnV1tPmagNM0bnNNmYVdM6PiXU6I8bddRO2C4CbicIKa4
 tP.0U1tP.OWktQ6.G3.q4c9O2.S244U...2chK0,Cg2sdi1,Az.0U.EM7.,.l2,E0.O2maYtQM
 FWbkNMu4m284m46I.UXVnd983O2.0U33Ua6S05u40UI,G5.cF.sFMM.0..EUUJEUbuCMMk6E.0
 .V2,.l1,E0.O2m4C5O4U2VoVicPKan7RKaY7.u2.UIVs,UnV4VXVntFMM.0..U1HUCy22snp2,
 S3IkmL00U.E6F.EwE.Y.6NO2m4C5CZZ7Rm284ma.sIK40WA,UuUH7RcF.C5.m2.S2.6...,2,O
 fZE.ym42Utj03gwVU.2.oF2U.EvU.Y.U4,sQcN.G2GbVd9Ur7H4aWVg7.0UH,O2UnVH,m2.S2.
 6..1.0EUWI52chG.fpG2Ut1Z.0.VH.2.292.7.sE.sEmajtQKa2NO4agtPS4,s6CZttQGbZNPe
 X1,CbaMN0.,.U,.PhA,F54pAMXDFbnNCIEU.EAF.E.1U.E0UYdFUYtQUmNN4aoNNWWlM8iXU6I
 85.C4CbicIcF.6.OW1,4466,MNWbkNMu4KaY7.0...L6xIisA1l8QTEpKPCIkmX.6.IH6.Ik.6
 .0E0.O2m4C5C2.680XdsC6I.UX,uWGNNO2.0U1dQMMUU2UXd7yag7P6QMNG4,6...AlP20Z1,e
 sxEpKPC2k.6.U0Cy4V1xhi,NPNZvQRtIdnVyKrG5EWKqt2Ulr6..bf95uP.Y62.5011Z1cQ...
 sQR,.G20EtH.0..M0E.I.6.3M.Vfl2cNk06.0U,YVsH4WDXQoHllyPDIklb6.Qcj,.k8U...F.
 ,..lwGbHESmF3kwL,,AzJEAyIo2oe2H,.Hq1...
 --- end of encoding ---
----boundary-LibPST-iamunique-421304654_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgRG91ZyxccGFyDQpccGFyDQpoYXZpbmcg
ZW5jb3VudGVyZWQgcmVjZW50bHkgYSBzaW1pbGFyIHByb2JsZW0sIHdoZW4gd29ya2luZyB3aXRo
IGZvbGRzLCBccGFyDQpJIGRpZ2dlZCB0aHJvdWdoIHRoZSBCbGFja0JveCBtYWlsaW5nIExpc3Qg
YW5kIGZvdW5kIHlvdXIgc29sdXRpb24sIFxwYXINCndoaWNoIHlvdSBwb3N0ZWQgaW4gTWFyY2g6
XHBhcg0KXHBhcg0KPiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxwYXINCj4gRnJvbTogQmxh
Y2tCb3ggW21haWx0bzpCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hdIE9uIEJlaGFsZiBPZiBccGFy
DQo+IERvdWdsYXMgRy4gRGFuZm9ydGhccGFyDQo+IFNlbnQ6IFR1ZXNkYXksIE1hcmNoIDAyLCAy
MDEwIDU6MjAgQU1ccGFyDQpbLi4uXVxwYXINCj4gXHBhcg0KPiAgICAgUFJPQ0VEVVJFIFNldEZv
Y3VzO1xwYXINCj4gICAgICAgICBWQVIgcmVzOiBJTlRFR0VSOyB3aW46IEhvc3RXaW5kb3dzLldp
bmRvdztccGFyDQo+ICAgICBCRUdJTlxwYXINCj4gICAgICAgICB3aW4gOj0gSG9zdFdpbmRvd3Mu
ZGlyLkZvY3VzKENvbnRyb2xsZXJzLnRhcmdldFBhdGgpO1xwYXINCj4gICAgICAgICByZXMgOj0g
V2luQXBpLlNldEZvY3VzKHdpbi53bmQpO1xwYXINCj4gICAgICAgICByZXMgOj0gV2luQXBpLlVw
ZGF0ZVdpbmRvdyh3aW4ud25kKVxwYXINCj4gICAgIEVORCBTZXRGb2N1cztccGFyDQpccGFyDQpJ
IGFtIGp1c3QgY3VyaW91czogQ2FuIHlvdSBleHBsYWluIHRoZSBpbm5lciB3b3JraW5ncyBvZiBp
dCB0byBtZT9ccGFyDQpccGFyDQpCZWxvdyBpcyBteSBzb2x1dGlvbiwgd2hpY2ggZG9lcyBub3Qg
ZXZlbiByZXF1aXJlIGNoYW5naW5nIGFueSBvZiB0aGUgQmxhY2tCb3ggbW9kdWxlcywgaXQgcmVx
dWlyZXMgb25seSBhIGxpdHRsZSBhZGRpdGlvbiB0byBTdGQvUnNyYy9Gb2xkLm9kYywgd2hpY2gg
aXMgaW5jbHVkZWQgYmVsb3cgYXMgU3RkQ29kZWQgdGV4dC5ccGFyDQotLVxwYXINCiAgQmVybmhh
cmQgXHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KTU9EVUxFIFByaXZGb2N1
cztccGFyDQooKlxwYXINCiAgKiAgcG9zdGVkIHRvIHRoZSBCbGFja0JveCBNYWlsaW5nIExpc3Qg
b24gMi1NYXItMjAxMCBieSBEb3VnIERhbmZvcnRoXHBhcg0KICopXHBhcg0KXHBhcg0KSU1QT1JU
IENvbnRyb2xsZXJzLCBXaW5BcGksIEhvc3RXaW5kb3dzO1xwYXINClxwYXINClBST0NFRFVSRSBS
ZUZvY3VzKjtccGFyDQpcdGFiIFZBUiByZXM6IElOVEVHRVI7IHdpbjogSG9zdFdpbmRvd3MuV2lu
ZG93O1xwYXINCiAgICBCRUdJTlxwYXINCiAgICAgICAgd2luIDo9IEhvc3RXaW5kb3dzLmRpci5G
b2N1cyhDb250cm9sbGVycy50YXJnZXRQYXRoKTtccGFyDQogICAgICAgIHJlcyA6PSBXaW5BcGku
U2V0Rm9jdXMod2luLnduZCk7XHBhcg0KICAgICAgICByZXMgOj0gV2luQXBpLlVwZGF0ZVdpbmRv
dyh3aW4ud25kKVxwYXINCiAgICBFTkQgUmVGb2N1cztccGFyDQpccGFyDQpFTkQgUHJpdkZvY3Vz
LlxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KU3RkQ29kZXIuRGVjb2RlIC4uLCwgLi5E
aS4uLi4zUXc3dVA1UFJQUE5SOVJiZjliOFI3OUZUdk1mMUdvbUNybEF5MnhoWCxDYjJ4XHBhcg0K
IGhYaEM2RlUxeGhpWmlWQmhpaGdtUmlpb2VkaGdyWmNaUmlYRmZhcW1TcnR1R2ZhNDcwMHpkR3Jy
OHJtQ0xMQ0p1eUt0WWNaUmlYXHBhcg0KIDcuMi5zLDYzTC4sNi41UXc3dVA1MVFDUHVQN1BOTjlG
OXZRQXkxeEIuZ2RqLFVCeGhZaEFiZjlQMEcyc0lkdlBabnRnY2doZ2haXHBhcg0KIGNaUkM4VDBF
LkVsZS5ILnBlMDIuLFUwZUZUZlFQZkpIUE5DYkhaaVlwZWRoZ3JaNk13QnVQWjFRQ2gwNzA4VCxV
Li53LllVOC4sXHBhcg0KIHNVT29yOGJCeGhZbHRROHFvckdxbVk2TXcuc1FxMlk2Y3dCLjAubk0w
SSxBVzdFLjBFLkUsUmNqcEJadlBOdlFSdEZadlBmOVE3XHBhcg0KIE9OYlhsVDYuQ29ydUt1RVdL
cXRjdzUuLDYubzMyVS5FOVUuWVUuRS4uLkVVYWwuVS5NWERGVWZMNklrbWosNi5vMzYubzA2LjdF
XHBhcg0KIC4yLi4uMmNORVVmTDYyVUJHLmpHQUlrbDFzUUFna1ppZHhoaVpjWlJpWEY1VS5FalUu
RVhVLlkuLGNGYWFpN05lMUdaWjdTR2IxXHBhcg0KIE5QR2FuZDlPWWp0TUtibnRGS2JWZFFHYS42
Li4xLjBFLjlILDJzOVIuLHdaQkVVdXIwSWtsVDYuT29vS0txR0tXS3F0LixFLjAuXHBhcg0KIFoy
MC5wMTBFMENabzdOT1lqN1BHYW5WYXRQVTJOTUdiVmQ5T2FkLG1ZVmRNS2FnNy4wVUg3UmNGLkM1
T1lkLC5VNU5SLjBVLi5BXHBhcg0KIC42Lix3WkJFLjlILE1ldkVVdXIwLi5DSW9LcWxpS1Z5S3dH
b21DNVpiLkUuNlYyVS5VZ1YuNixZQ282LmIxQm5yLjcwZDFSbGtZXHBhcg0KIEJOMTFHcS5kMC4u
bzZUbmxrdC4xMUUuLi5Rc1M2a0wwcE83MEl6Li4yOGI5TzNPUmQ5UlRmUDdPTmN3Mi4wLmQyLC50
MSxFMDZSXHBhcg0KIGNGNlBzUWNGYTRjRmFhbXRRR2I0dFBVLmNGYWFpVlVjRmNRVS42Sks0Li5z
UEM0LHNRVVZWWTcuMC4uRS45MTB2MXM5UEUublQzXHBhcg0KIElrbUwwNi4yRzIuMkQyLjcuR2E0
dFBtNEM1TU91NHVZWjdTY0YuMFU0Tk9VVWNILjBVSSxzRS5VanRNc1FVViwwVS4uLjJFTTNOXHBh
cg0KIFVqZyw0cTVJa21MMDYuMkwyLjJJMi43LmNGeWFnVm5WMXRQbWFnTk0wYm5OTm1ZVmRNNlBp
WFU2SThiZGRSTzJDNENiaWNJS2E0XHBhcg0KIHRQLjBVMXRQLk9Xa3RRNi5HMy5xNGM5TzIuUzI0
NFUuLi4yY2hLMCxDZzJzZGkxLEF6LjBVLkVNNy4sLmwyLEUwLk8ybWFZdFFNXHBhcg0KIEZXYmtO
TXU0bTI4NG00NkkuVVhWbmQ5ODNPMi4wVTMzVWE2UzA1dTQwVUksRzUuY0Yuc0ZNTS4wLi5FVVVK
RVVidUNNTWs2RS4wXHBhcg0KIC5WMiwubDEsRTAuTzJtNEM1TzRVMlZvVmljUEthbjdSS2FZNy51
Mi5VSVZzLFVuVjRWWFZudEZNTS4wLi5VMUhVQ3kyMnNucDIsXHBhcg0KIFMzSWttTDAwVS5FNkYu
RXdFLlkuNk5PMm00QzVDWlo3Um0yODRtYS5zSUs0MFdBLFV1VUg3UmNGLkM1Lm0yLlMyLjYuLi4s
MixPXHBhcg0KIGZaRS55bTQyVXRqMDNnd1ZVLjIub0YyVS5FdlUuWS5VNCxzUWNOLkcyR2JWZDlV
cjdINGFXVmc3LjBVSCxPMlVuVkgsbTIuUzIuXHBhcg0KIDYuLjEuMEVVV0k1MmNoRy5mcEcyVXQx
Wi4wLlZILjIuMjkyLjcuc0Uuc0VtYWp0UUthMk5PNGFndFBTNCxzNkNadHRRR2JaTlBlXHBhcg0K
IFgxLENiYU1OMC4sLlUsLlBoQSxGNTRwQU1YREZibk5DSUVVLkVBRi5FLjFVLkUwVVlkRlVZdFFV
bU5ONGFvTk5XV2xNOGlYVTZJXHBhcg0KIDg1LkM0Q2JpY0ljRi42Lk9XMSw0NDY2LE1OV2JrTk11
NEthWTcuMC4uLkw2eElpc0ExbDhRVEVwS1BDSWttWC42LklINi5Jay42XHBhcg0KIC4wRTAuTzJt
NEM1QzIuNjgwWGRzQzZJLlVYLHVXR05OTzIuMFUxZFFNTVVVMlVYZDd5YWc3UDZRTU5HNCw2Li4u
QWxQMjBaMSxlXHBhcg0KIHN4RXBLUEMyay42LlUwQ3k0VjF4aGksTlBOWnZRUnRJZG5WeUtyRzVF
V0txdDJVbHI2Li5iZjk1dVAuWTYyLjUwMTFaMWNRLi4uXHBhcg0KIHNRUiwuRzIwRXRILjAuLk0w
RS5JLjYuM00uVmZsMmNOazA2LjBVLFlWc0g0V0RYUW9IbGx5UERJa2xiNi5RY2osLms4VS4uLkYu
XHBhcg0KICwuLmx3R2JIRVNtRjNrd0wsLEF6SkVBeUlvMm9lMkgsLkhxMS4uLlxwYXINCiAtLS0g
ZW5kIG9mIGVuY29kaW5nIH19AHdzLmRpci4=
----boundary-LibPST-iamunique-421304654_-_---

Received on Fri Sep 17 2010 - 16:08:26 UTC