summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/my_gtk.pm8
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, $_ } @_);