Microsoft UWP/WinRT - Update

[alby.gamper@gmail.com]

On Friday, June 9, 2017 at 1:31:37 AM UTC+10, Pascal Obry wrote:
> Le vendredi 02 juin 2017 à 05:27 -0700, Lucretia a écrit :
> > Never heard of Win32Ada, where's this then?
> 
> Here:
> https://github.com/AdaCore/win32ada
> 
> Since some hours!
> 
> -- 
>   Pascal Obry /  Magny Les Hameaux (78)
> 
>   The best way to travel is by means of imagination
> 
>   http://www.obry.net
> 
>   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 := S_OK;
		m_IWindow		: IWindow;
		m_Window		: Window;
		m_XamlReader	: XamlReader;	
		m_XamlContent	: Wide_String :=

			"<TextBlock xmlns=""http://schemas.microsoft.com/winfx/2006/xaml/presentation"" " &
			"   Name=""Text"" TextAlignment=""Center"" HorizontalAlignment=""Center"" " &
			"   VerticalAlignment=""Center"" FontSize=""32""> " &
			"   <Run Text=""Hello World application - written in Ada""/> " &
			"   <LineBreak/> " &
			"   <Run Text=""Target - Windows Store Application (Xaml)""/> " &
			"</TextBlock>";
		
		m_Object		: Windows.Object;
		m_IUIElement	: aliased IUIElement := null;

	begin

		m_IWindow := m_Window.get_Current;
		m_Object := m_XamlReader.Load(To_String(m_XamlContent));
		Hr := m_Object.QueryInterface(IID_IUIElement'access, m_IUIElement'address);
		Hr := m_IWindow.put_Content(m_IUIElement);
		Hr := m_IWindow.Activate;
		return Hr; 

	end;

end;

Alex