- - BlackBox Component Builder 1.6-rc5

From: Campbell, Robert D (SELEX) (UK Edinburgh) <"Campbell,>
Date: Mon, 7 May 2007 09:12:57 +0100

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


Hi

I give an example below of one (in fact the only) routine I have
translated to be version 1.6 friendly.

I replaced Module USER32 with WinApi, and a further 4 identifiers were
not recognised. I looked at the BlackBox interfaces, and then made
guesses. I have not consulted the Microsoft documentation.

The new code compiles, and apparently works ok.




I guess that USER32 things are defined & implemented in a DLL with a
name like USER32, and the WinApi things are defined & implemented in a
DLL with a name like WinApi (or is it KERNEL32?).


This raises 3 questions for me, and I wonder if they have simple
answers. I am only looking for simple answers as my very limited
knowledge of Windows is matched by equally limited interest!

1 - Why are there duplicate implementations of thousands of apparently
identical functions?

2 - Is it a reasonable generalisation that if a WinApi function is VERY
similar in name to another (eg USER32) that it will behave the same, or
is it necessary to scrutinise the small print of the Microsoft
documentation in every case?

3 - Why are Oms telling us to switch to WinApi - what is wrong with the
others?


Regards

Robert

ps - WinApi.GetWindowPlacement & USER32.GetWindowPlacement have
different interfaces, one has a '[nil]' decoration. Is this reason to be
suspicious that they are not 'drop-in' replacements?




New code:

PROCEDURE SetWindowPlacement* (title : Views.Title; x, y, w, h :
INTEGER);
  VAR
    win : Windows.Window;
    wTitle : Views.Title;
    wnd : WinApi.HWND;
    ret : WinApi.BOOL;
    wp : WinApi.WINDOWPLACEMENT;
  BEGIN
    win := Windows.dir.First ();
    WHILE win # NIL DO
      win.GetTitle (wTitle);
      IF wTitle = title THEN
        wnd := win(HostWindows.Window).wnd;
        IF (w = 0) & (h = 0) THEN
          ret := WinApi.GetWindowPlacement (wnd, wp);
          w := wp.rcNormalPosition.right -
wp.rcNormalPosition.left;
          h := wp.rcNormalPosition.bottom -
wp.rcNormalPosition.top
        END;
        ret := WinApi.MoveWindow (wnd, x, y, w, h, 1);
        RETURN
      END;
      win := Windows.dir.Next (win)
    END
  END SetWindowPlacement;


Old code:

PROCEDURE SetWindowPlacement* (title : Views.Title; x, y, w, h :
INTEGER);
  VAR
    win : Windows.Window;
    wTitle : Views.Title;
    wnd : USER32.Handle;
    ret : USER32.Bool;
    wp : USER32.WindowPlacement;
  BEGIN
    win := Windows.dir.First ();
    WHILE win # NIL DO
      win.GetTitle (wTitle);
      IF wTitle = title THEN
        wnd := win(HostWindows.Window).wnd;
        IF (w = 0) & (h = 0) THEN
          ret := USER32.GetWindowPlacement (wnd, wp);
          w := wp.normPos.right - wp.normPos.left;
          h := wp.normPos.bottom - wp.normPos.top
        END;
        ret := USER32.MoveWindow (wnd, x, y, w, h, 1);
        RETURN
      END;
      win := Windows.dir.Next (win)
    END
  END SetWindowPlacement;

SELEX Sensors and Airborne Systems Limited
Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex SS14 3EL
A company registered in England & Wales. Company no. 02426132
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy


----boundary-LibPST-iamunique-1040985314_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFxwYXINCkhpXHBhcg0KXHBhcg0KSSBnaXZlIGFu
IGV4YW1wbGUgYmVsb3cgb2Ygb25lIChpbiBmYWN0IHRoZSBvbmx5KSByb3V0aW5lIEkgaGF2ZVxw
YXINCnRyYW5zbGF0ZWQgdG8gYmUgdmVyc2lvbiAxLjYgZnJpZW5kbHkuXHBhcg0KXHBhcg0KSSBy
ZXBsYWNlZCBNb2R1bGUgVVNFUjMyIHdpdGggV2luQXBpLCBhbmQgYSBmdXJ0aGVyIDQgaWRlbnRp
ZmllcnMgd2VyZVxwYXINCm5vdCByZWNvZ25pc2VkLiBJIGxvb2tlZCBhdCB0aGUgQmxhY2tCb3gg
aW50ZXJmYWNlcywgYW5kIHRoZW4gbWFkZVxwYXINCmd1ZXNzZXMuIEkgaGF2ZSBub3QgY29uc3Vs
dGVkIHRoZSBNaWNyb3NvZnQgZG9jdW1lbnRhdGlvbi5ccGFyDQpccGFyDQpUaGUgbmV3IGNvZGUg
Y29tcGlsZXMsIGFuZCBhcHBhcmVudGx5IHdvcmtzIG9rLlxwYXINClxwYXINClxwYXINClxwYXIN
ClxwYXINCkkgZ3Vlc3MgdGhhdCBVU0VSMzIgdGhpbmdzIGFyZSBkZWZpbmVkICYgaW1wbGVtZW50
ZWQgaW4gYSBETEwgd2l0aCBhXHBhcg0KbmFtZSBsaWtlIFVTRVIzMiwgYW5kIHRoZSBXaW5BcGkg
dGhpbmdzIGFyZSBkZWZpbmVkICYgaW1wbGVtZW50ZWQgaW4gYVxwYXINCkRMTCB3aXRoIGEgbmFt
ZSBsaWtlIFdpbkFwaSAob3IgaXMgaXQgS0VSTkVMMzI/KS5ccGFyDQpccGFyDQpccGFyDQpUaGlz
IHJhaXNlcyAzIHF1ZXN0aW9ucyBmb3IgbWUsIGFuZCBJIHdvbmRlciBpZiB0aGV5IGhhdmUgc2lt
cGxlXHBhcg0KYW5zd2Vycy4gSSBhbSBvbmx5IGxvb2tpbmcgZm9yIHNpbXBsZSBhbnN3ZXJzIGFz
IG15IHZlcnkgbGltaXRlZFxwYXINCmtub3dsZWRnZSBvZiBXaW5kb3dzIGlzIG1hdGNoZWQgYnkg
ZXF1YWxseSBsaW1pdGVkIGludGVyZXN0IVxwYXINClxwYXINCjEgLSBXaHkgYXJlIHRoZXJlIGR1
cGxpY2F0ZSBpbXBsZW1lbnRhdGlvbnMgb2YgdGhvdXNhbmRzIG9mIGFwcGFyZW50bHlccGFyDQpp
ZGVudGljYWwgZnVuY3Rpb25zP1xwYXINClxwYXINCjIgLSBJcyBpdCBhIHJlYXNvbmFibGUgZ2Vu
ZXJhbGlzYXRpb24gdGhhdCBpZiBhIFdpbkFwaSBmdW5jdGlvbiBpcyBWRVJZXHBhcg0Kc2ltaWxh
ciBpbiBuYW1lIHRvIGFub3RoZXIgKGVnIFVTRVIzMikgdGhhdCBpdCB3aWxsIGJlaGF2ZSB0aGUg
c2FtZSwgb3JccGFyDQppcyBpdCBuZWNlc3NhcnkgdG8gc2NydXRpbmlzZSB0aGUgc21hbGwgcHJp
bnQgb2YgdGhlIE1pY3Jvc29mdFxwYXINCmRvY3VtZW50YXRpb24gaW4gZXZlcnkgY2FzZT9ccGFy
DQpccGFyDQozIC0gV2h5IGFyZSBPbXMgdGVsbGluZyB1cyB0byBzd2l0Y2ggdG8gV2luQXBpIC0g
d2hhdCBpcyB3cm9uZyB3aXRoIHRoZVxwYXINCm90aGVycz9ccGFyDQpccGFyDQpccGFyDQpSZWdh
cmRzXHBhcg0KXHBhcg0KUm9iZXJ0XHBhcg0KXHBhcg0KcHMgLSBXaW5BcGkuR2V0V2luZG93UGxh
Y2VtZW50ICYgVVNFUjMyLkdldFdpbmRvd1BsYWNlbWVudCBoYXZlXHBhcg0KZGlmZmVyZW50IGlu
dGVyZmFjZXMsIG9uZSBoYXMgYSAnW25pbF0nIGRlY29yYXRpb24uIElzIHRoaXMgcmVhc29uIHRv
IGJlXHBhcg0Kc3VzcGljaW91cyB0aGF0IHRoZXkgYXJlIG5vdCAnZHJvcC1pbicgcmVwbGFjZW1l
bnRzP1xwYXINClxwYXINClxwYXINClxwYXINClxwYXINCk5ldyBjb2RlOlxwYXINClxwYXINClBS
T0NFRFVSRSAgU2V0V2luZG93UGxhY2VtZW50KiAodGl0bGUgOiBWaWV3cy5UaXRsZTsgeCwgeSwg
dywgaCA6XHBhcg0KSU5URUdFUik7XHBhcg0KICBWQVJccGFyDQogICAgd2luICAgICA6ICBXaW5k
b3dzLldpbmRvdztccGFyDQogICAgd1RpdGxlICA6ICBWaWV3cy5UaXRsZTtccGFyDQogICAgd25k
ICAgICA6ICBXaW5BcGkuSFdORDtccGFyDQogICAgcmV0ICAgICA6ICBXaW5BcGkuQk9PTDtccGFy
DQogICAgd3AgICAgICA6ICBXaW5BcGkuV0lORE9XUExBQ0VNRU5UO1xwYXINCiAgQkVHSU5ccGFy
DQogICAgd2luICA6PSAgV2luZG93cy5kaXIuRmlyc3QgKCk7XHBhcg0KICAgIFdISUxFICB3aW4g
ICMgIE5JTCAgRE9ccGFyDQogICAgICB3aW4uR2V0VGl0bGUgKHdUaXRsZSk7XHBhcg0KICAgICAg
SUYgIHdUaXRsZSAgPSAgdGl0bGUgIFRIRU5ccGFyDQogICAgICAgIHduZCAgOj0gIHdpbihIb3N0
V2luZG93cy5XaW5kb3cpLnduZDtccGFyDQogICAgICAgIElGICAodyAgPSAgMCkgICYgIChoICA9
ICAwKSAgVEhFTlxwYXINCiAgICAgICAgICByZXQgIDo9ICBXaW5BcGkuR2V0V2luZG93UGxhY2Vt
ZW50ICh3bmQsIHdwKTtccGFyDQogICAgICAgICAgdyAgICA6PSAgd3AucmNOb3JtYWxQb3NpdGlv
bi5yaWdodCAgIC1ccGFyDQp3cC5yY05vcm1hbFBvc2l0aW9uLmxlZnQ7XHBhcg0KICAgICAgICAg
IGggICAgOj0gIHdwLnJjTm9ybWFsUG9zaXRpb24uYm90dG9tICAtXHBhcg0Kd3AucmNOb3JtYWxQ
b3NpdGlvbi50b3BccGFyDQogICAgICAgIEVORDtccGFyDQogICAgICAgIHJldCAgOj0gIFdpbkFw
aS5Nb3ZlV2luZG93ICh3bmQsIHgsIHksIHcsIGgsIDEpO1xwYXINCiAgICAgICAgUkVUVVJOXHBh
cg0KICAgICAgRU5EO1xwYXINCiAgICAgIHdpbiAgOj0gIFdpbmRvd3MuZGlyLk5leHQgKHdpbilc
cGFyDQogICAgRU5EXHBhcg0KICBFTkQgIFNldFdpbmRvd1BsYWNlbWVudDtccGFyDQpccGFyDQpc
cGFyDQpPbGQgY29kZTpccGFyDQpccGFyDQpQUk9DRURVUkUgIFNldFdpbmRvd1BsYWNlbWVudCog
KHRpdGxlIDogVmlld3MuVGl0bGU7IHgsIHksIHcsIGggOlxwYXINCklOVEVHRVIpO1xwYXINCiAg
VkFSXHBhcg0KICAgIHdpbiAgICAgOiAgV2luZG93cy5XaW5kb3c7XHBhcg0KICAgIHdUaXRsZSAg
OiAgVmlld3MuVGl0bGU7XHBhcg0KICAgIHduZCAgICAgOiAgVVNFUjMyLkhhbmRsZTtccGFyDQog
ICAgcmV0ICAgICA6ICBVU0VSMzIuQm9vbDtccGFyDQogICAgd3AgICAgICA6ICBVU0VSMzIuV2lu
ZG93UGxhY2VtZW50O1xwYXINCiAgQkVHSU5ccGFyDQogICAgd2luICA6PSAgV2luZG93cy5kaXIu
Rmlyc3QgKCk7XHBhcg0KICAgIFdISUxFICB3aW4gICMgIE5JTCAgRE9ccGFyDQogICAgICB3aW4u
R2V0VGl0bGUgKHdUaXRsZSk7XHBhcg0KICAgICAgSUYgIHdUaXRsZSAgPSAgdGl0bGUgIFRIRU5c
cGFyDQogICAgICAgIHduZCAgOj0gIHdpbihIb3N0V2luZG93cy5XaW5kb3cpLnduZDtccGFyDQog
ICAgICAgIElGICAodyAgPSAgMCkgICYgIChoICA9ICAwKSAgVEhFTlxwYXINCiAgICAgICAgICBy
ZXQgIDo9ICBVU0VSMzIuR2V0V2luZG93UGxhY2VtZW50ICh3bmQsIHdwKTtccGFyDQogICAgICAg
ICAgdyAgICA6PSAgd3Aubm9ybVBvcy5yaWdodCAgIC0gIHdwLm5vcm1Qb3MubGVmdDtccGFyDQog
ICAgICAgICAgaCAgICA6PSAgd3Aubm9ybVBvcy5ib3R0b20gIC0gIHdwLm5vcm1Qb3MudG9wXHBh
cg0KICAgICAgICBFTkQ7XHBhcg0KICAgICAgICByZXQgIDo9ICBVU0VSMzIuTW92ZVdpbmRvdyAo
d25kLCB4LCB5LCB3LCBoLCAxKTtccGFyDQogICAgICAgIFJFVFVSTlxwYXINCiAgICAgIEVORDtc
cGFyDQogICAgICB3aW4gIDo9ICBXaW5kb3dzLmRpci5OZXh0ICh3aW4pXHBhcg0KICAgIEVORFxw
YXINCiAgRU5EICBTZXRXaW5kb3dQbGFjZW1lbnQ7IFxwYXINClxwYXINClNFTEVYIFNlbnNvcnMg
YW5kIEFpcmJvcm5lIFN5c3RlbXMgTGltaXRlZFxwYXINClJlZ2lzdGVyZWQgT2ZmaWNlOiBTaWdt
YSBIb3VzZSwgQ2hyaXN0b3BoZXIgTWFydGluIFJvYWQsIEJhc2lsZG9uLCBFc3NleCBTUzE0IDNF
TFxwYXINCkEgY29tcGFueSByZWdpc3RlcmVkIGluIEVuZ2xhbmQgJiBXYWxlcy4gIENvbXBhbnkg
bm8uIDAyNDI2MTMyXHBhcg0KKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKipccGFyDQpUaGlzIGVtYWlsIGFuZCBhbnkgYXR0
YWNobWVudHMgYXJlIGNvbmZpZGVudGlhbCB0byB0aGUgaW50ZW5kZWRccGFyDQpyZWNpcGllbnQg
YW5kIG1heSBhbHNvIGJlIHByaXZpbGVnZWQuIElmIHlvdSBhcmUgbm90IHRoZSBpbnRlbmRlZFxw
YXINCnJlY2lwaWVudCBwbGVhc2UgZGVsZXRlIGl0IGZyb20geW91ciBzeXN0ZW0gYW5kIG5vdGlm
eSB0aGUgc2VuZGVyLlxwYXINCllvdSBzaG91bGQgbm90IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBh
bnkgcHVycG9zZSBub3IgZGlzY2xvc2Ugb3JccGFyDQpkaXN0cmlidXRlIGl0cyBjb250ZW50cyB0
byBhbnkgb3RoZXIgcGVyc29uLlxwYXINCioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqXHBhcg0KXHBhcg0KLS0tIEJsYWNr
Qm94XHBhcg0KLS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94
QG9iZXJvbi5jaFxwYXINClxwYXINCn0

----boundary-LibPST-iamunique-1040985314_-_---
Received on Mon May 07 2007 - 10:12:57 UTC