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