[macemacsjp-cvs 180] CVS update: CarbonEmacsPackage/Resources

Back to archive index

Seiji Zenitani zenit****@users*****
2005年 12月 18日 (日) 23:28:03 JST


Index: CarbonEmacsPackage/Resources/Rakuchin.applescript
diff -u CarbonEmacsPackage/Resources/Rakuchin.applescript:1.1 CarbonEmacsPackage/Resources/Rakuchin.applescript:1.2
--- CarbonEmacsPackage/Resources/Rakuchin.applescript:1.1	Sun Oct 23 12:36:17 2005
+++ CarbonEmacsPackage/Resources/Rakuchin.applescript	Sun Dec 18 23:28:03 2005
@@ -1,13 +1,18 @@
+-- setup ths disk image file
+-- thanks to Kurita-san
+
+set dmgPath to "Emacs:" as Unicode text
+set dmgRef to (dmgPath as alias)
+
 tell application "Finder"
-    repeat with i from 1 to (count of windows)
-        if (name of window i equals "Emacs") then
-		set (current view of window i) to icon view
-        --              set (collapsed of window 1) to true
-            set (bounds of window i) to {200, 200, 700, 550}
-            set (toolbar visible of window i) to false
-            set (icon size of icon view options of window i) to 64
-        -- set a to (POSIX path to (target of window 1)) as string
-        -- set a to (properties of window 1)
-        end if
-    end repeat
+    set theWindow to container window of dmgRef 
+    set (current view of theWindow) to icon view
+ -- set (collapsed of theWindow) to true
+    set (bounds of theWindow) to {250, 200, 700, 500}
+    set (toolbar visible of theWindow) to false
+    set (icon size of icon view options of theWindow) to 64
+ -- set a to (properties of theWindow)
+    set position of item "Emacs.app" of dmgRef to {150,150}
+    set position of item "Documents" of dmgRef to {300,150}
+    set (background picture of icon view options of theWindow) to (item "Background.png" of dmgRef)
 end tell


macemacsjp-cvs メーリングリストの案内
Back to archive index