1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index c2062e3dc..065ed2a59 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -122,6 +122,14 @@ sub gtksignal_connect($@) {
     $w->signal_connect(@_);
     $w
 }
+
+sub gtkradio {
+    my $def = pop;
+    my $radio;
+    map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ());
+	  $radio->set_active($_ eq $def); $radio } @_;
+}
+
 sub gtkpack($@) {
     my $box = shift;
     gtkpack_($box, map {; 1, $_ } @_);