Re: Gtk in ada using radiobuttons

["Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>]

On 2022-10-17 00:14, Ludovic Brenta wrote:
> "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not> writes:
>>
>> I know of no reason why the client of a GUI library would ever create
>> a single, independent radio button.  A single radio button is useless.
>> One always wants to create a set of linked buttons.
> 
> Yes but you create the radio buttons one at a time, so one of the
> buttons must be the first you create.

This may be necessary at a low level in the GUI, but there's no reason why the 
client-interface pkg of a library can't provide a higher-level interface. 
Consider the equivalent from Ada GUI 
(https://github.com/jrcarter/Ada_GUI/blob/master/ada_gui.ads):

    type Text_List is array (Positive range <>) of
       Ada.Strings.Unbounded.Unbounded_String
    with
       Dynamic_Predicate => Text_List'First = 1;

    type Orientation_ID is (Horizontal, Vertical);

    function New_Radio_Buttons (Row          : Positive := 1;
                                Column       : Positive := 1;
                                Label        : Text_List;
                                Break_Before : Boolean        := False;
                                Orientation  : Orientation_ID := Vertical)
    return Widget_ID with Pre => Set_Up and Label'Length > 1;
    -- Creates Label'Length radio buttons; Label contains the labels for the
    -- buttons
    -- Orientation = Horizontal results in a row of buttons
    --             = Vertical   has each button after the 1st below the preceding
                                buttons
    -- The button for Label'First will be active
    -- The operations Set_Active and Active for radio buttons take an Index;
    -- Index will refer to the button for Label (Index)

An implementation based on, say, GTK, will have to create the buttons 
individually as the GUI requires, but the client doesn't have to deal with that.

-- 
Jeff Carter
"The men get one hot meal a day: a bowl of steam."
Take the Money and Run
145