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=0.3 required=5.0 tests=BAYES_00,STOX_REPLY_TYPE,
	STOX_REPLY_TYPE_WITHOUT_QUOTES,XPRIO autolearn=no autolearn_force=no
	version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!feeder4.feed.usenet.farm!feed.usenet.farm!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!nzpost2.xs4all.net!news.kpn.nl!not-for-mail
From: "ldries46" <bertus.dries@planet.nl>
Newsgroups: comp.lang.ada
Subject: Gtk Ada Radio Group
Date: Wed, 21 Aug 2019 10:21:39 +0200
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 16.4.3528.331
X-MimeOLE: Produced By Microsoft MimeOLE V16.4.3528.331
Message-ID: <5d5cff16$0$2068$e4fe514c@news.kpn.nl>
NNTP-Posting-Host: 7853fd3c.news.kpn.nl
X-Trace: 
 G=yds+wZuw,C=U2FsdGVkX1/wdFslzsqxw/pblo5GXlmdCMQ5+hDVJ/2N97ld15kwpESFKiXMnjt1YSpbQsrJAPupONIeHSSX06HwzCXKgJq8XDcKKl3RDVc=
X-Complaints-To: abuse@kpn.nl
Xref: reader01.eternal-september.org comp.lang.ada:57083
Date: 2019-08-21T10:21:39+02:00
List-Id: <comp.lang.ada>

I am trying to get working version of a Radio Button Group.
For various reasons I don't want to do this by using Glade. 
The Code compiles correctly and presents itself correctly in the dialog
But it does not behave as a group. All Buttons are activated.
What is wrong?

Here the instalization code is presented
I just cannot find any examples how to do this
      ---------------------------------------------------------------
      -- Radio Button Box
      ---------------------------------------------------------------
      Gtk_New (MainDialog.Radio_Grp, Orientation_Vertical, 0);
      Gtk_New (MainDialog.Input_Radio1, Orientation_Horizontal, 0);
      Gtk_New (MainDialog.Input_Radio2, Orientation_Horizontal, 0);
      Gtk_New (MainDialog.Input_Radio3, Orientation_Horizontal, 0);
      Gtk_New (MainDialog.Radio1_But, MainDialog.Radio_Group, "Radio 1");
      Gtk_New (MainDialog.Radio2_But, MainDialog.Radio_Group, "Radio 2");
      Gtk_New (MainDialog.Radio3_But, MainDialog.Radio_Group, "Radio 3");
      Pack_Start
        (MainDialog.Input_Radio1,
         MainDialog.Radio1_But,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Radio_Grp,
         MainDialog.Input_Radio1,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Input_Radio2,
         MainDialog.Radio2_But,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Radio_Grp,
         MainDialog.Input_Radio2,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Input_Radio3,
         MainDialog.Radio3_But,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Radio_Grp,
         MainDialog.Input_Radio3,
         Expand  => True,
         Fill    => True,
         Padding => 0);
      Pack_Start
        (MainDialog.Dialog_Box,
         MainDialog.Radio_Grp,
         Expand  => True,
         Fill    => True,
         Padding => 0);
L. Dries