Help: Binary operator "="

["Adrian B.Y. Hoe" <byHoe@QUANTUM.PC.MY>]

I have errors compiling the following code using ObjectAda 7.0.232

   function InitInstance(Hinstance : Windef.HINSTANCE;
                         ...) return Win32.BOOL is

      HWND   : Windef.HWND;
      wu_Ps  : aliased Winuser.PAINTSTRUCT;

   begin

      --  Create a main window for this application instance.
      HWND := WinUser.CreateWindow (LpClassName  => SZAPPNAME,  -- Line 452
                                    LpWindowName => SZTITLE,
                                    DwStyle      =>
                                       WinUser.WS_OVERLAPPEDWINDOW or
                                       WinUser.WS_CLIPCHILDREN,
                                    X           => WinUser.CW_USEDEFAULT,
                                    Y           => WinUser.CW_USEDEFAULT,
                                    NWidth      => WinUser.CW_USEDEFAULT,
                                    NHeight     => WinUser.CW_USEDEFAULT,
                                    HWndParent  => null,
                                    HMenu       => null,
                                    HInstance   => HInstance,
                                    LpParam     => null);

      if HWND = Windef.HWND'(null) then   -- Line 467
         return Win32.FALSE;
      end if;

      ...

   end InitInstance;



The compiler says: Line 467: Binary operator "=" not directly visible, use
 clause
might be needed.

Line 452: Parameter mismatch.


Could someone enlighten me?

Thank you in advance.
--

B.Y.


lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
 Adrian, B.Y. Hoe                     byHoe@quantum.pc.my           \/
 Business Development, VP                                         \/  \/
                                                                \/  \/  \/
                                      Phone : +60 3 495 4048      \/  \/
 Lexical Integration (M) Sdn Bhd      Fax   : +60 3 495 4037        \/
 13-B Jalan Pandan Indah 4/2, Pandan Indah, 55100 Kuala Lumpur-Malaysia
lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
                                          member of Team-Ada in Malaysia