在GtkAda中使用回调函数添加单选按钮的方法如下：

1. 首先定义一个单选按钮组控件：

   declare Group : Gtk_Radio_Button_Group; begin Group := Null_Ptr;

2. 在回调函数中定义一个单选按钮，并将其添加到单选按钮组中：

   declare RadioButton : Gtk_Radio_Button; begin RadioButton := new Gtk_Radio_Button (Group => Group, Label => "Button 1"); Gtk.Box_Pack_Start (Gtk.Box (Container), RadioButton, True, True, 0); Group := RadioButton.Group; end;

   这里创建了一个名为“Button 1”的单选按钮，并将其添加到容器中。

3. 对于其它单选按钮，也可以使用类似的方法创建，并将它们添加到同一个单选按钮组中：

   declare RadioButton : Gtk_Radio_Button; begin RadioButton := new Gtk_Radio_Button (Group => Group, Label => "Button 2"); Gtk.Box_Pack_Start (Gtk.Box (Container), RadioButton, True, True, 0); Group := RadioButton.Group; end;

   通过这种方式，可以在回调函数中添加多个单选按钮，并将它们组合成一个单选按钮组。注意要将每个单选按钮的 Group 属性设置为同一个值，以便它们能够互相切换。