Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/lib/Etk
Modified Files:
Constants.pm Simple.pm
Log Message:
-fix Widget: lots of old stuff deleted, added some functions
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/lib/Etk/Constants.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -3 -r1.12 -r1.13
--- Constants.pm 14 Jan 2007 20:03:16 -0000 1.12
+++ Constants.pm 14 Jan 2007 21:10:43 -0000 1.13
@@ -60,6 +60,7 @@
entry => [qw/ImagePrimary ImageSecondary/],
popupwindow => [qw/BelowRight BelowLeft AboveRight AboveLeft/],
window => [qw/Normal Above Below/],
+ swallow => [qw/None IncompatibleParent NotRealized NoPart/],
);
my @all = ();
@@ -294,4 +295,9 @@
Below=>2
};
-
+# swallow errors
+use constant {
+ IncompatibleParent=>1,
+ NotRealized=>2,
+ NoPart=>3
+};
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/lib/Etk/Simple.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Simple.pm 30 Dec 2006 09:18:23 -0000 1.3
+++ Simple.pm 14 Jan 2007 21:10:43 -0000 1.4
@@ -45,7 +45,8 @@
if (defined $arg2) {
return NewFromEdje($arg1, $arg2);
} else {
- return NewFromFile($arg1);
+ # XXX oops... from file requires a key now
+ return NewFromFile($arg1, "");
}
}
}
-------------------------------------------------------------------------
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
