## mark a section (Learn more)

-- UI Scripting Demonstration -- -- Modify Keyboard System Preferences to swap the Option (Alt) and Command (Windows) keys -- so their placement on the keyboard matches that of the standard Macintosh keyboard. This -- will also allow us to change the preferences back so the keys go back to normal -- when the PC keyboard is disconnected. on setKeyboard(keyboardType) tell application "System Events" get properties tell process "System Preferences" -- click "Modifier Keys..." at bottom of Keyboard tab click button "Modifier Keys…" of tab group 1 of window "Keyboard & Mouse" if keyboardType is equal to "Macintosh" then -- click "Restore Defaults" on the sheet click button "Restore Defaults" of sheet 1 of window "Keyboard & Mouse" else if keyboardType is equal to "PC" then -- click the pop up button menu "Option", this menu does not exist until it is clicked in the GUI click pop up button 3 of sheet 1 of window "Keyboard & Mouse" -- click "Command" of the pop up menu click menu item 4 of menu 1 of pop up button 3 of sheet 1 of window "Keyboard & Mouse" -- delay briefly delay 1 -- click the pop up button menu "Command", this menu does not exist until it is clicked in the GUI click pop up button 4 of sheet 1 of window "Keyboard & Mouse" -- click "Option" of the pop up menu click menu item 3 of menu 1 of pop up button 4 of sheet 1 of window "Keyboard & Mouse" end if -- click "OK" to dismiss the sheet click button "OK" of sheet 1 of window "Keyboard & Mouse" end tell end tell end setKeyboard -- main script; preset desiredKeyboard to "Macintosh" set desiredKeyboard to "Macintosh" -- get users input; we're waiting until selection display dialog "Which keyboard type?" buttons {"Macintosh", "PC"} default button "Macintosh" -- set desiredKeyboard to "PC" if they picked "PC" if button returned of result = "PC" then set desiredKeyboard to "PC" end if -- activate System Preferences tell application "System Preferences" activate set current pane to pane "com.apple.preference.keyboard" end tell -- call subroutine with desired keyboard type setKeyboard(desiredKeyboard) -- quit from system preferences tell application "System Preferences" quit end tell

This paste will be private.