システム環境設定の「ディスプレイ」＞「ディスプレイ」を表示

システム環境設定の「ディスプレイ」paneの「ディスプレイ」を表示するAppleScriptです。

やりかたは山のようにあるものの、Cocoa系の機能を使うとこんな感じ。

AppleScript名：システム環境設定の「ディスプレイ」＞「ディスプレイ」を表示_asobjc.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/04/28
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

current application’s NSWorkspace’s sharedWorkspace()’s openFile:"/System/Library/PreferencePanes/Displays.prefPane"

★Click Here to Open This Script　

まんま、同じ内容をshell呼び出しで書くとこんな感じ。

AppleScript名：システム環境設定の「ディスプレイ」＞「ディスプレイ」を表示_shell.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/04/28
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

do shell script "open /System/Library/PreferencePanes/Displays.prefPane"

★Click Here to Open This Script　

System Events経由でファイルオープンするとこんな感じ。POSIX pathをfileとして指定できて驚きました。aliasにcastしないとopenできないかと思っていました。

AppleScript名：システム環境設定の「ディスプレイ」＞「ディスプレイ」を表示_System Events.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/04/28
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "System Events"
　　open file "/System/Library/PreferencePanes/Displays.prefPane"
end tell

★Click Here to Open This Script　

AppleScript的にいろいろルーチンを整備して汎用性を持たせつつ、十分な機能を用意するとこんな感じでしょうか。

AppleScript名：システム環境設定の「ディスプレイ」＞「ディスプレイ」を表示

— Created 2017-10-10 by Takaaki Naganoya
— Created 2020-04-28 by Takaaki Naganoya
— 2020 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

–Get every pane ID
set aList to getEveryPaneID() of me

–Get every anchor in a pane
set pList to getEveryAnchorName("com.apple.preference.displays") of me
–> {"displaysArrangementTab", "displaysNightShiftTab", "displaysColorTab", "displaysGeometryTab", "displaysDisplayTab"}

set aRes to dispSystemPreferences("com.apple.preference.displays", "displaysDisplayTab") of me
–> true

on dispSystemPreferences(paneID, anchorID)
　　tell application "System Preferences"
　　　　activate
　　　　set pList to id of every pane
　　　　if paneID is not in pList then return false
　　　　
　　　　set current pane to pane paneID
　　　　tell current pane
　　　　　　set nList to name of every anchor
　　　　　　if anchorID is not in nList then return false
　　　　　　reveal anchor anchorID
　　　　end tell
　　end tell
　　
　　return true
end dispSystemPreferences

on getEveryPaneID()
　　tell application "System Preferences"
　　　　return id of every pane
　　end tell
end getEveryPaneID

on getEveryAnchorName(paneID)
　　tell application "System Preferences"
　　　　set pList to id of every pane
　　　　if paneID is not in pList then return false
　　　　set current pane to pane paneID
　　　　tell current pane
　　　　　　return name of every anchor
　　　　end tell
　　end tell
end getEveryAnchorName