From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID,XPRIO
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5c079866a5fbdcb7,start
X-Google-Attributes: gid103376,public
From: "Eddy Raineri" <eraineri@axiom-tx.com>
Subject: win32 bindings to Aonix 7.1.2a
Date: 1999/07/27
Message-ID: <3Ykn3.19804$WX1.109556@news1.rdc2.tx.home.com>#1/1
X-Deja-AN: 505828828
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
X-Complaints-To: abuse@home.net
X-Trace: news1.rdc2.tx.home.com 933092223 24.7.108.79 (Tue,
 27 Jul 1999 09:17:03 PDT)
Organization: @Home Network
X-MSMail-Priority: Normal
NNTP-Posting-Date: Tue, 27 Jul 1999 09:17:03 PDT
Newsgroups: comp.lang.ada
Date: 1999-07-27T00:00:00+00:00
List-Id: <comp.lang.ada>

Hello,
I have a program that I have developed using Aonix 7.1.2a, it's comprised of
a textbox along with numerous other controls.  The problem is that I want to
be able to put more then the 32K limit that is bound by a textbox.  I have
written this in C++ and found that using EM_LimitText allows the size of the
data to be larger then the 32k limit.  The problem is when I do this using
the Aonix compiler in Ada it doesn't work.  My guess is that the bindings
that is delivered with Aonix is out of date.  I have tried using the new
bindings in MFC 6.0 but the binder complains about the file not being
readable (I'm assuming some library format change?).  Is there anybody out
there with suggestions?  Here is the snippit of code that I use in the Ada.

     procedure Setlimit (Obj : in Gb.Textbox; Limit : in Win32.Int) is
        Result : Gb.Lresult;
        use type Gb.Lresult;
     begin
-- Neither call works.
--        Result := Win32.Winuser.Sendmessage
--                    (Obj.I_Handle, 16#c5#, gb.WParam(Limit), 0);
--                    -- setlimittext max is 65535.
         win32.windowsx.Edit_LimitText(Obj.I_Handle, win32.Int(Limit));
     end Setlimit;

I have also downloaded the 3.0 bindings from intermetrics, they are no
longer supporting them and they don't work either.

Thanks in advance for your help

Eddy