From c5d560c030d5229c297fdc4de1d2ae67f7e88b0c Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 9 Mar 2001 01:52:30 +0000
Subject: added gtkradio

---
 perl-install/my_gtk.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install')

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, $_ } @_);
-- 
cgit v1.2.1