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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, WEIRD_QUOTING autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.99.96.204 with SMTP id u195mr4964288pgb.28.1497419005072; Tue, 13 Jun 2017 22:43:25 -0700 (PDT) X-Received: by 10.157.13.169 with SMTP id 38mr245107ots.6.1497419005029; Tue, 13 Jun 2017 22:43:25 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!185no122991itv.0!news-out.google.com!k7ni390itk.0!nntp.google.com!185no122982itv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Tue, 13 Jun 2017 22:43:24 -0700 (PDT) In-Reply-To: <1496935894.11747.0.camel@obry.net> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=144.132.203.17; posting-account=wavAeAoAAAAZF_sXSZepBukuPCBO0Zqt NNTP-Posting-Host: 144.132.203.17 References: <7d1796c7-3492-4f19-ac6c-27c70e486d59@googlegroups.com> <1496935894.11747.0.camel@obry.net> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <6ce292d0-1f78-474c-ad94-9129d5f7ce83@googlegroups.com> Subject: Microsoft UWP/WinRT - Update From: alby.gamper@gmail.com Injection-Date: Wed, 14 Jun 2017 05:43:25 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Xref: news.eternal-september.org comp.lang.ada:46944 Date: 2017-06-13T22:43:24-07:00 List-Id: On Friday, June 9, 2017 at 1:31:37 AM UTC+10, Pascal Obry wrote: > Le vendredi 02 juin 2017 =C3=A0 05:27 -0700, Lucretia a =C3=A9crit=C2=A0: > > Never heard of Win32Ada, where's this then? >=20 > Here: > https://github.com/AdaCore/win32ada >=20 > Since some hours! >=20 > --=20 > =C2=A0 Pascal Obry /=C2=A0=C2=A0Magny Les Hameaux (78) >=20 > =C2=A0 The best way to travel is by means of imagination >=20 > =C2=A0=C2=A0http://www.obry.net >=20 > =C2=A0 gpg --keyserver keys.gnupg.net --recv-key F949BD3B Dear Ada Community I have managed to get the WinRt bindings into a usable state and have managed to create a "Windows Store" application. But the Windows App certification Fails, since the underlying Ada runtime, ie libgnat uses api's that are restricted, Thus preventing the application from being distributed via the "Windows Store". However it can be installed and run on a local PC) Shown below is the application code which loads up some XAML Over the coming weeks I will try and put together a demo/video clip demonstrating the technology in its entirety. ---------------------------------------------------------------------------= ----- with Windows.UI.Xaml.Markup; use Windows.UI.Xaml.Markup; with Common; use Common; ---------------------------------------------------------------------------= ----- package body AppOverrides is --------------------------------------------------------------------------= -- overriding function OnLaunched ( This : access MyAppOverrides_Interface; args : Windows.ApplicationModel.Activation.ILaunchActivatedEventArgs ) return Windows.HRESULT is Hr : HResult :=3D S_OK; m_IWindow : IWindow; m_Window : Window; m_XamlReader : XamlReader;=09 m_XamlContent : Wide_String :=3D " " & " " & " " & " " & ""; =09 m_Object : Windows.Object; m_IUIElement : aliased IUIElement :=3D null; begin m_IWindow :=3D m_Window.get_Current; m_Object :=3D m_XamlReader.Load(To_String(m_XamlContent)); Hr :=3D m_Object.QueryInterface(IID_IUIElement'access, m_IUIElement'addre= ss); Hr :=3D m_IWindow.put_Content(m_IUIElement); Hr :=3D m_IWindow.Activate; return Hr;=20 end; end; Alex