Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Object.pm Stock.pm
Removed Files:
Alignment.pm Bin.pm Box.pm Button.pm Canvas.pm CheckButton.pm
Clipboard.pm Colorpicker.pm Combobox.pm Container.pm Dialog.pm
Dnd.pm Drag.pm Entry.pm Filechooser.pm FillPolicy.pm Frame.pm
Iconbox.pm Image.pm Label.pm Main.pm Menu.pm MessageDialog.pm
Notebook.pm Paned.pm PopupWindow.pm ProgressBar.pm
RadioButton.pm Range.pm ScrolledView.pm Selection.pm
Separator.pm StatusBar.pm Table.pm Theme.pm ToggleButton.pm
Tooltips.pm ToplevelWidget.pm Tree.pm Widget.pm Window.pm
Log Message:
Hear Hear!!! This is a re-write of Etk-Perl
+ Everything is now in the XS file
+ etk_test needs porting (only the Button test works now)
+ some tests in t/Etk/*.t
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Object.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -3 -r1.9 -r1.10
--- Object.pm 20 Jul 2006 23:16:22 -0000 1.9
+++ Object.pm 30 Jul 2006 19:22:32 -0000 1.10
@@ -1,107 +1,33 @@
package Etk::Object;
use strict;
require Etk;
-sub new
-{
- my $class = shift;
- my $self = {};
- bless($self, $class);
- return $self;
-}
-
-sub SignalConnect
-{
- my $self = shift;
- my $signal_name = shift;
- my $callback = shift;
- my $data = shift;
- Etk::etk_signal_connect($signal_name, $self, $callback, $data);
- return $self;
-}
-
-sub SignalConnectAfter
-{
- my $self = shift;
- my $signal_name = shift;
- my $callback = shift;
- my $data = shift;
- Etk::etk_signal_connect_after($signal_name, $self, $callback, $data);
- return $self;
-}
-
-sub SignalConnectSwapped
-{
- my $self = shift;
- my $signal_name = shift;
- my $callback = shift;
- my $data = shift;
- Etk::etk_signal_connect_swapped($signal_name, $self, $callback, $data);
- return $self;
-}
-
-sub SignalConnectFull
-{
- my $self = shift;
- my $signal_name = shift;
- my $callback = shift;
- my $data = shift;
- my $swapped = shift;
- my $after = shift;
- Etk::etk_signal_connect_full($signal_name, $self, $callback, $data,
$swapped, $after);
- return $self;
-}
-
-sub SignalDisconnect
-{
- my $self = shift;
- my $signal_name = shift;
- my $callback = shift;
- Etk::etk_signal_disconnect($signal_name, $self, $callback);
- return $self;
-}
-
-sub NotificationCallbackAdd
-{
- my $self = shift;
- my $property_name = shift;
- my $callback = shift;
- my $data = shift;
- Etk::etk_object_notification_callback_add($self->{WIDGET}, $property_name,
$callback, $data);
- return $self;
-}
-sub NotificationCallbackRemove
-{
- my $self = shift;
- my $property_name = shift;
- Etk::etk_object_notification_callback_remove($self->{WIDGET},
$property_name);
- return $self;
-}
+use AutoLoader;
-sub Notify
-{
- my $self = shift;
- my $property_name = shift;
- Etk::etk_object_notify($self->{WIDGET}, $property_name);
- return $self;
-}
+sub AUTOLOAD {
+ our $AUTOLOAD;
+# print "Attempted call to: $AUTOLOAD\n";
+ my ($func, $package);
+ ($func = $AUTOLOAD) =~ s/(.*::)//;
+ ($package = $AUTOLOAD) =~ s/::$func//;
+
+# print "DECODED AS Package=$package FUNCTION=$func\n";
+
+ if ($func =~ /[a-z]/ && $func =~ /[A-Z]/) {
+ $func =~ s/([A-Z][a-z]+)/lc($1) . "_"/eg;
+ $func =~ s/_$//;
+
+# print "\tTranslate to $func\n";
+ my $obj = shift;
+# print "Object: $obj -> $func (@_)\n";
+
+ return $obj->$func(@_);
+
+ }
-sub DataSet
-{
- my $self = shift;
- my $key = shift;
- my $data = shift;
- Etk::etk_object_data_set($self->{WIDGET}, $key, $data);
- return $self;
}
-sub DataGet
-{
- my $self = shift;
- my $key = shift;
- return undef unless $key;
- return Etk::etk_object_data_get($self->{WIDGET}, $key);
-}
1;
+__END__
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Stock.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Stock.pm 20 Jul 2006 23:16:22 -0000 1.3
+++ Stock.pm 30 Jul 2006 19:22:32 -0000 1.4
@@ -289,17 +289,4 @@
humStockIds => 214,
};
-sub KeyGet
-{
- my $stock_id = shift;
- my $size = shift;
- return Etk::etk_stock_key_get($stock_id, $size);
-}
-
-sub LabelGet
-{
- my $stock_id = shift;
- return Etk::etk_stock_label_get($stock_id);
-}
-
1;
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
