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
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.182.104.69 with SMTP id gc5mr23320804obb.18.1415578060535;
 Sun, 09 Nov 2014 16:07:40 -0800 (PST)
X-Received: by 10.140.94.81 with SMTP id f75mr448580qge.5.1415578060429; Sun,
 09 Nov 2014 16:07:40 -0800 (PST)
Path: 
 border2.nntp.dca1.giganews.com!nntp.giganews.com!news.glorb.com!h15no1267686igd.0!news-out.google.com!u1ni1qah.0!nntp.google.com!i13no446121qae.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 9 Nov 2014 16:07:40 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=108.44.225.195;
 posting-account=vk6_JwoAAABkMyHO1YfdP69Hm3CpbdGR
NNTP-Posting-Host: 108.44.225.195
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <77ce9e26-2bdd-4703-b078-7d38433447f2@googlegroups.com>
Subject: Gnoga: control over borders with nested views
From: Jeremiah <jeremiah.breeden@gmail.com>
Injection-Date: Mon, 10 Nov 2014 00:07:40 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: number.nntp.giganews.com comp.lang.ada:190409
Date: 2014-11-09T16:07:40-08:00
List-Id: <comp.lang.ada>

I've been trying to create some complex views and having trouble figuring out how to manipulate some properties such as border radius.  Below is some scaled down code to at least show a minimum problem set.

with Ada.Text_IO;  use Ada.Text_IO;

with Gnoga.Application.Singleton;
with Gnoga.Gui.Window;
with Gnoga.Gui.View;
with Gnoga.Gui.Element.Common;

procedure Main is
   Window : Gnoga.Gui.Window.Window_Type;
   Main_View : Gnoga.Gui.View.View_Type;
   Parent_View : Gnoga.Gui.View.View_Type;
   Child1_View : aliased Gnoga.Gui.View.View_Type;
   Child2_View : aliased Gnoga.Gui.View.View_Type;
   Child1_Button : Gnoga.Gui.Element.Common.Button_Type;
   Child2_Button : Gnoga.Gui.Element.Common.Button_Type;
   
begin
   Put_Line("Hello World");   
   Gnoga.Application.Title("Gnoga Test App");
   Gnoga.Application.Open_URL_Windows;
   Gnoga.Application.Singleton.Initialize(Main_Window => Window);
   Put_line("Application Started");
   
   
   Main_View.Create(Window);
   Parent_View.Create(Main_View);
   Child1_View.Create(Parent_View);
   Child2_View.Create(Parent_View);
   Child1_Button.Create(Child1_View,"Button 1");
   Child2_Button.Create(Child2_View,"Button 2");
   
   
   
   Parent_View.Height(250);
   Parent_View.Width(500);
   Child1_View.Background_Color("Red");
   Child2_View.Background_Color("Green");
   Parent_View.Border;
   Child1_View.Border;
   Child2_View.Border;
   Parent_View.Border_Radius(Radius => "50");
   
   
   Put_Line("Waiting on App to close");
   Gnoga.Application.Singleton.Message_Loop;
   
   Put_Line("Application Finished");
   
   
   
end Main;


The problem is that 

Parent_View.Border_Radius(Radius => "50");

Does nothing.  I want to round out the edges of some of my views while still having their inner views fill to match and show their borders as well.  

I've tried playing with the numbers, but it doesn't seem to effect.  Looking at the documentation in the Gnoga code base, all I have as options for radius are Radius = length|%|initial|inhert, but none of those seem to do anything useful for me.

I've also experimented using Docker_View as well but with the same results.

I am sure I am doing something silly.  Does anyone have any insight or advice for how to control the border radius of a parent view vs its child views?