Enlightenment CVS committal
Author : kwo
Project : e16
Module : e
Dir : e16/e/scripts
Modified Files:
Tag: branch-exp
e_gen_menu
Log Message:
Multihead fixes, .enlightenment->.e16, misc.
===================================================================
RCS file: /cvsroot/enlightenment/e16/e/scripts/e_gen_menu,v
retrieving revision 1.33.2.1
retrieving revision 1.33.2.2
diff -u -3 -r1.33.2.1 -r1.33.2.2
--- e_gen_menu 2 Sep 2004 20:22:06 -0000 1.33.2.1
+++ e_gen_menu 5 Sep 2004 22:24:35 -0000 1.33.2.2
@@ -51,10 +51,13 @@
$loc3 =~ s/_.*//;
$loc1 = "" if ($loc1 eq $loc2);
-$EdirUser = "$ENV{'HOME'}/.enlightenment" unless $EdirUser;
+$EdirUser = "$ENV{'HOME'}/.e16" unless $EdirUser;
$EdirRoot = "/usr/share/enlightenment" unless $EdirRoot;
$EdirBin = "/usr/bin" unless $EdirBin;
+$EdirIcons = "$EdirUser/icons";
+$EdirMenus = "$EdirUser/menus";
+
$dbg = "$ENV{'E_MENUGEN_DBG'}";
# Put EBIN first in path
@@ -93,11 +96,11 @@
@MainMenu = (
"t:User Menus",
- "m:User Application list:user_apps.menu",
- "m:GNOME:menus_GNOME/index.menu",
- "m:KDE:menus_KDE/index.menu",
- "m:Other:menus_Other/index.menu",
- "m:Enlightenment Epplets:epplets.menu",
+ "m:User Application list:menus/user_apps.menu",
+ "m:GNOME:menus/menus_GNOME/index.menu",
+ "m:KDE:menus/menus_KDE/index.menu",
+ "m:Other:menus/menus_Other/index.menu",
+ "m:Enlightenment Epplets:menus/epplets.menu",
"x:Restart Enlightenment:eesh -e 'restart'",
"x:Log Out:eesh -e 'exit'"
);
@@ -152,7 +155,7 @@
local $f = shift;
local $m = shift;
- $f = "$EdirUser/$f";
+ $f = "$EdirMenus/$f";
return if (-f "$f");
open(FD, ">$f");
foreach $e (@$m) {
@@ -303,7 +306,7 @@
$g =~ s/^.*\///;
$g =~ s/\..*$//;
- $g = "$EdirUser/icons/$g.png";
+ $g = "$EdirIcons/$g.png";
system("convert -geometry 18x18 $f $g");
return $g;
@@ -345,7 +348,7 @@
sub MakeEppsMenu {
local $f = shift;
@el = grep /\.epplet$/, ReadDir($EdirBin);
- open(FD, ">$EdirUser/$f");
+ open(FD, ">$EdirMenus/$f");
print FD "\"Enlightenment Epplets\"\n";
foreach $e (@el) {
$e =~ s/\.epplet$//;
@@ -362,7 +365,7 @@
local %menus;
local $c, $k, $dir;
- $dir = "$EdirUser/menus_$type";
+ $dir = "$EdirMenus/menus_$type";
print "Generating Menu: $type in $dir\n" if $dbg ge 1;
MkDir($dir);
@@ -440,9 +443,9 @@
ProcessDir($d);
}
-# Make config root dir and scaled icon dir
-MkDir("$EdirUser");
-MkDir("$EdirUser/icons");
+# Make menu dir and scaled icon dir
+MkDir("$EdirMenus");
+MkDir("$EdirIcons");
# Make the menus
MakeMenu("file.menu", [EMAIL PROTECTED]);
-------------------------------------------------------
This SF.Net email is sponsored by BEA Weblogic Workshop
FREE Java Enterprise J2EE developer tools!
Get your free copy of BEA WebLogic Workshop 8.1 today.
http://ads.osdn.com/?ad_id=5047&alloc_id=10808&op=click
_______________________________________________
enlightenment-cvs mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
