[Terminal]プロファイルを選択する

tell application "Terminal"

properties

launch

activate

-->このWINDOWisに対して設定を適応します

set objWindowID to (do script "\n\n")

-->設定プロファイル

set listSettingID to every settings set as list

set listNameOFSettings to name of every settings set as list

try

set objResponse to (choose from list listNameOFSettings with title "選んでください" with prompt "ターミナルのプロファイルを選択" default items (item 1 of listNameOFSettings) OK button name "OK" cancel button name "キャンセル" with multiple selections allowed without empty selection allowed)

on error

log "エラーしました"

return

end try

if objResponse is false then

return

end if

set strResponse to (objResponse) as text

repeat with objSettingID in listSettingID

if (name of objSettingID) is strResponse then

set objWindowID's current settings to objSettingID

end if

end repeat

delay 1

end tell