diff options
| author | damien <damien@mandriva.com> | 2001-03-09 01:52:30 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-09 01:52:30 +0000 |
| commit | c5d560c030d5229c297fdc4de1d2ae67f7e88b0c (patch) | |
| tree | 2c56a587475ea8189b3552759e9a3c3ba8c14f5a | |
| parent | 7ebf26b6b5eb4d5931715b994fa53899e314b8c5 (diff) | |
| download | drakx-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.pm | 8 |
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, $_ } @_); |