diff options
| -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, $_ } @_); |