Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Menu/Item
Modified Files:
Radio.pm
Log Message:
- added RadioButton
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Menu/Item/Radio.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Radio.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Radio.pm 28 Jun 2006 00:18:37 -0000 1.2
@@ -5,7 +5,50 @@
@ISA = ("Etk::Menu::Item");
sub new
{
- # TODO: pending list conversion code
+ my $class = shift;
+ my $self = $class->SUPER::new();
+ my $widget;
+
+ if(@_ >= 1)
+ {
+ my $data = shift;
+ if (ref $data)
+ {
+ $self->{WIDGET} =
Etk::etk_menu_item_radio_new_from_widget($data->{WIDGET});
+ $widget = $data;
+ }
+ else
+ {
+ if (@_)
+ {
+ my $data2 = shift;
+ $self->{WIDGET} =
Etk::etk_menu_item_radio_new_with_label_from_widget(
+ $data, $data2->{WIDGET});
+ $widget = $data2;
+ }
+ else
+ {
+ $self->{WIDGET} =
Etk::etk_menu_item_radio_new_with_label($data);
+ }
+ }
+ }
+ bless($self, $class);
+ if ($widget)
+ {
+ push @{$widget->{GROUP}}, $self;
+ $self->{GROUP} = $widget->{GROUP};
+ }
+ else
+ {
+ push @{$self->{GROUP}}, $self;
+ }
+ return $self;
+}
+
+sub GroupGet
+{
+ my $self = shift;
+ return @{$self->{GROUP}};
}
1;
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
