blob: c9385836b2f82323a2695ee4e7a371105ee762a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
tell application "Finder"
tell disk "Rakudo"
open
set top_left_X to 100
set top_left_Y to 100
set bottom_right_X to 600
set bottom_right_Y to 500
set theViewOptions to the icon view options of container window
set background picture of theViewOptions to POSIX file "/Volumes/Rakudo/.background/installerbg.png"
tell container window
set current view to icon view
set toolbar visible to false
set statusbar visible to false
set bounds to { top_left_X, top_left_Y, bottom_right_X, bottom_right_Y }
end tell
make new alias file at container window to POSIX file "/Applications" with properties { name:"Applications" }
set opts to the icon view options of container window
tell opts
set icon size to 128
set text size to 16
set arrangement to not arranged
end tell
set position of item "Rakudo" to {120, 74}
set position of item "Applications" to {380, 74}
set position of item "README.txt" to {120, 264}
set position of item "docs" to {380, 264}
delay 5
close
delay 5
open
delay 5
end tell
end tell
|