summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-09 01:52:30 +0000
committerdamien <damien@mandriva.com>2001-03-09 01:52:30 +0000
commitc5d560c030d5229c297fdc4de1d2ae67f7e88b0c (patch)
tree2c56a587475ea8189b3552759e9a3c3ba8c14f5a
parent7ebf26b6b5eb4d5931715b994fa53899e314b8c5 (diff)
downloaddrakx-c5d560c030d5229c297fdc4de1d2ae67f7e88b0c.tar
drakx-c5d560c030d5229c297fdc4de1d2ae67f7e88b0c.tar.gz
drakx-c5d560c030d5229c297fdc4de1d2ae67f7e88b0c.tar.bz2
drakx-c5d560c030d5229c297fdc4de1d2ae67f7e88b0c.tar.xz
drakx-c5d560c030d5229c297fdc4de1d2ae67f7e88b0c.zip
added gtkradio
-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, $_ } @_);