Enlightenment CVS committal
Author : kwo
Project : e16
Module : e
Dir : e16/e/scripts
Modified Files:
e_gen_menu
Log Message:
Look for epplets in PATH.
===================================================================
RCS file: /cvsroot/enlightenment/e16/e/scripts/e_gen_menu,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -3 -r1.40 -r1.41
--- e_gen_menu 19 Mar 2005 16:39:55 -0000 1.40
+++ e_gen_menu 5 Jun 2005 22:03:58 -0000 1.41
@@ -364,14 +364,21 @@
# Make the Epplets menu
sub MakeEppsMenu {
local $f = shift;
- @el = grep /\.epplet$/, ReadDir($EdirBin);
+ local $d;
+ local %done;
open(FD, ">$EdirMenus/$f");
print FD "\"Enlightenment Epplets\"\n";
- foreach $e (@el) {
- $e =~ s/\.epplet$//;
- $i = "$EdirRoot/epplet_icons/$e.icon";
- $i = ScaleIcon("$i") if -f "$i";
- print FD "\"$e\" \"$i\" exec \"$EdirBin/$e.epplet\"\n";
+ foreach $d (split(':', $ENV{'PATH'})) {
+ next if ($done{$d});
+ $done{$d} = 1;
+ print "Looking for epplets in $d\n" if $dbg ge 1;
+ @el = grep /\.epplet$/, ReadDir($d);
+ foreach $e (@el) {
+ $e =~ s/\.epplet$//;
+ $i = "$EdirRoot/epplet_icons/$e.icon";
+ $i = ScaleIcon("$i") if -f "$i";
+ print FD "\"$e\" \"$i\" exec \"$d/$e.epplet\"\n";
+ }
}
close(FD);
}
-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games. How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
