Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Constants.pm Simple.pm
Log Message:
Image API change
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Constants.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -3 -r1.8 -r1.9
--- Constants.pm 20 Oct 2006 19:01:34 -0000 1.8
+++ Constants.pm 30 Dec 2006 09:18:23 -0000 1.9
@@ -56,6 +56,7 @@
button => [qw/ButtonIcon ButtonText ButtonBothVert ButtonBothHoriz/],
shadow => [qw/ShadowNone ShadowInside ShadowOutside ShadowNoEdge
ShadowLeft ShadowAll
ShadowRight ShadowTop ShadowBottom ShadowLeftRight ShadowTopBottom/],
+ image => [qw/ImageFile ImageEdje ImageStock ImageEvasObject
ImageData/],
);
my @all = ();
@@ -260,6 +261,14 @@
ShadowAll => ShadowLeftRight | ShadowTopBottom
};
+# image source
+use constant {
+ ImageFile=>0,
+ ImageEdje=>1,
+ ImageStock=>2,
+ ImageEvasObject=>3,
+ ImageData=>4
+};
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Simple.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Simple.pm 23 Nov 2006 20:08:49 -0000 1.2
+++ Simple.pm 30 Dec 2006 09:18:23 -0000 1.3
@@ -53,6 +53,16 @@
return $inew->(__PACKAGE__);
};
+my $iset = \&SetFromFile;
+*SetFromFile = sub {
+ my $class = shift;
+ my $arg1 = shift;
+ my $arg2 = shift || "";
+
+ return $iset->($class, $arg1, $arg2);
+};
+
+
package Etk::Menu::Item;
my $minew = \&new;
-------------------------------------------------------------------------
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
