Re: Gtkada-Prob

[Preben Randhol <randhol+abuse@pvv.org>]

On Wed, 21 Nov 2001 11:57:13 +0100, Lars Heppler wrote:
> Hi!
>> Can you show a bit more how you tried this?
> yep,
>    -- this is in the window_pkg made with glade
>    Gtk_New (Window1.Checkbutton2, -"Disable Extra-Paranoia");
>    Set_Active (Window1.Checkbutton2, True);
>    Pack_Start (Window1.Vbox1, Window1.Checkbutton2, False, False, 5);
> 
>    Gtk_New (Window1.Radiobutton1, Vbox1_Group, -"WAV");
>    Vbox1_Group := Group (Window1.Radiobutton1);
>    Set_Active (Window1.Radiobutton1, True);
>    Pack_Start (Window1.Vbox1, Window1.Radiobutton1, False, False, 5);
> 
>    -- this is how i want to check it and want to do...
> 
> if Get_Active (Window1.Checkbutton1) = True then
> rip_args(1) := new String'("-Z");
> elsif
> Get_Active (Window1.Checkbutton2) = True then
> rip_args(2) := new String'("-Y");
> elsif
> Get_Active (Window1.Radiobutton1) = True then
> rip_args(4) := new String'("-w");
> 
> I hope this is enough...

Assuming that you put the above test in the callback of a OK/Apply
button and this callback is in a child package of windows_pkg I cannot
see that it shouldn't work. However if you put it in a different package
I suggest you make a procedure in window_pkg like this:

procedure Get_Arguments is
begin
    if Get_Active (Window1.Checkbutton1) = True then
    rip_args(1) := new String'("-Z");
    elsif
    Get_Active (Window1.Checkbutton2) = True then
    rip_args(2) := new String'("-Y");
    elsif
    Get_Active (Window1.Radiobutton1) = True then
    rip_args(4) := new String'("-w");
end Get_Arguments;

and just call this when you need the arguments.

Preben
-- 
 ()   Join the worldwide campaign to protect fundamental human rights.
'||}
{||'                                           http://www.amnesty.org/