■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 最新50

Script 道場 rev.2

276 :にゃあ :02/10/08 22:02
>>240
カスタマイズを容易にするには
どの部分をカスタマイズするのかを明確にする必要があるでしょう
>>240の場合なら、ディスク名とウィンドウサイズ決定の部分ではないでしょうか?
そこだけを独立させてやればいいわけです

property diskName : "RAM Disk"

on Bnd()
set {x, y} to (screen size of item 1 of (screen list))
set {x2, y2} to {x - 30, y - 3}
set {x1, y1} to {x2 div 4, y2 div 2}
set {x1, y1} to {x2 - x1, y2 - y1}
return (x1, y1, x2, y2)
end Bnd

tell application "Finder"
activate
open disk diskName
set view of disk diskName to name
set bounds of container window of disk diskName to my Bnd()
set popup of container window of disk diskName to true
end tell

サブルーチンは更に2行減らすことが可能ですが
変数名を辿りやすくするために敢えてこのままにしておきます

100KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30