Add a cancel button to an applescript

**Jaffa** · 18th February 2006, 06:56 PM

Hey guys, maybe you could help me with this. How do I add a cancel button to this particular applescript? I have also attached the actual script as well. Thanks. Jeff.

Code:

-- GUI Scripting Demonstration
--
-- Modify Keyboard System Preferences to swap the Option &#40;Alt&#41; and Command &#40;Windows&#41; 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&#40;keyboardType&#41;
	tell application &#34;System Events&#34;
 *get properties
 *tell process &#34;System Preferences&#34;
 *	-- click &#34;Modifier Keys...&#34; at bottom of Keyboard tab
 *	click button &#34;Modifier Keys…&#34; of tab group 1 of window &#34;Keyboard & Mouse&#34;
 *	
 *	if keyboardType is equal to &#34;Macintosh&#34; then
 * *-- click &#34;Restore Defaults&#34; on the sheet
 * *click button &#34;Restore Defaults&#34; of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *
 *	else if keyboardType is equal to &#34;PC&#34; then
 * *-- click the pop up button menu &#34;Option&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Command&#34; of the pop up menu
 * *click menu item 4 of menu 1 of pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *
 * *-- delay briefly
 * *delay 1
 * *
 * *-- click the pop up button menu &#34;Command&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Option&#34; of the pop up menu
 * *click menu item 3 of menu 1 of pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 *	end if
 *	
 *	-- click &#34;OK&#34; to dismiss the sheet
 *	click button &#34;OK&#34; of sheet 1 of window &#34;Keyboard & Mouse&#34;
 *end tell
	end tell
end setKeyboard

-- main script; preset desiredKeyboard to &#34;Macintosh&#34;
set desiredKeyboard to &#34;Macintosh&#34;

-- get users input; we&#39;re waiting until selection
display dialog &#34;Which keyboard type?&#34; buttons {&#34;Macintosh&#34;, &#34;PC&#34;} with icon 2 default button &#34;Macintosh&#34;

-- set desiredKeyboard to &#34;PC&#34; if they picked &#34;PC&#34;
if button returned of result = &#34;PC&#34; then
	set desiredKeyboard to &#34;PC&#34;
end if

-- activate System Preferences
tell application &#34;System Preferences&#34;
	activate
	set current pane to pane &#34;com.apple.preference.keyboard&#34;
end tell

-- call subroutine with desired keyboard type
setKeyboard&#40;desiredKeyboard&#41;

-- quit from system preferences
tell application &#34;System Preferences&#34;
	quit
end tell

**W2ttsy** · 18th February 2006, 07:46 PM

you need

Code:

display dialog &#34;Which keyboard type?&#34; buttons {&#34;Macintosh&#34;, &#34;PC&#34;, &#34;cancel&#34;} with icon 2 default button &#34;Macintosh&#34;

if button returned of result = &#34;cancel&#34; then
tell application &#34;System Preferences&#34; 
quit
end tell

my applescripting is a bit rusty. but that seems to be the way i remember it.

there is also an applescript dictionary in script editor that should give you all the low down. its under the file menu. (apple shift O)

W2ttsy

**Jaffa** · 18th February 2006, 07:54 PM

It didnt work. See the Attachment...

**Jaffa** · 18th February 2006, 08:36 PM

Thank You niteshade for fixing this over IRC for me.

I have to change this:

Code:

display dialog &#34;Which keyboard type?&#34; buttons {&#34;Macintosh&#34;, &#34;PC&#34;} with icon 2 default button &#34;Macintosh&#34;

To This:

Code:

display dialog &#34;Which keyboard type?&#34; buttons {&#34;Cancel&#34;, &#34;PC&#34;, &#34;Macintosh&#34;} with icon caution default button 3 cancel button 1 with title &#34;Choose a Keyboard&#34;

Thank you once again niteshade!

**Jaffa** · 18th February 2006, 09:19 PM

This is the new improved script which does not mess with your caps lock and control keyboard settings. Once again the source is right here and the file is attached! Have Fun.

Code:

-- GUI Scripting Demonstration
--
-- Modify Keyboard System Preferences to swap the Option &#40;Alt&#41; and Command &#40;Windows&#41; 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&#40;keyboardType&#41;
	tell application &#34;System Events&#34;
 *get properties
 *tell process &#34;System Preferences&#34;
 *	-- click &#34;Modifier Keys...&#34; at bottom of Keyboard tab
 *	click button &#34;Modifier Keys…&#34; of tab group 1 of window &#34;Keyboard & Mouse&#34;
 *	
 *	if keyboardType is equal to &#34;Macintosh&#34; then
 * *-- click the pop up button menu &#34;Command&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Option&#34; of the pop up menu
 * *click menu item 3 of menu 1 of pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *
 * *-- delay briefly
 * *delay 1
 * *
 * *-- click the pop up button menu &#34;Option&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Command&#34; of the pop up menu
 * *click menu item 4 of menu 1 of pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 *	end if
 *	
 *	if keyboardType is equal to &#34;PC&#34; then
 * *-- click the pop up button menu &#34;Option&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Command&#34; of the pop up menu
 * *click menu item 4 of menu 1 of pop up button 3 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *
 * *-- delay briefly
 * *delay 1
 * *
 * *-- click the pop up button menu &#34;Command&#34;, this menu does not exist until it is clicked in the GUI
 * *click pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 * *-- click &#34;Option&#34; of the pop up menu
 * *click menu item 3 of menu 1 of pop up button 4 of sheet 1 of window &#34;Keyboard & Mouse&#34;
 *	end if
 *	
 *	-- click &#34;OK&#34; to dismiss the sheet
 *	click button &#34;OK&#34; of sheet 1 of window &#34;Keyboard & Mouse&#34;
 *end tell
	end tell
end setKeyboard

-- main script; preset desiredKeyboard to &#34;Macintosh&#34;
set desiredKeyboard to &#34;Macintosh&#34;

-- get users input; we&#39;re waiting until selection
display dialog &#34;Which keyboard type?&#34; buttons {&#34;Macintosh&#34;, &#34;PC&#34;, &#34;Cancel&#34;} with icon caution default button 3 cancel button 3 with title &#34;iKeyboard&#34;

-- set desiredKeyboard to &#34;PC&#34; if they picked &#34;PC&#34;
if button returned of result = &#34;PC&#34; then
	set desiredKeyboard to &#34;PC&#34;
end if

-- activate System Preferences
tell application &#34;System Preferences&#34;
	activate
	set current pane to pane &#34;com.apple.preference.keyboard&#34;
end tell

-- call subroutine with desired keyboard type
setKeyboard&#40;desiredKeyboard&#41;

-- quit from system preferences
tell application &#34;System Preferences&#34;
	quit
end tell

Welcome to MacTalk Australia

the largest Australian community for Apple discussions and topics

» Join the discussions, Register Now!

Thread: Add a cancel button to an applescript

LinkBack

Thread Tools

Display

Tags for this Thread

Posting Permissions

MacTalk © 2013 Niche Media Pty Ltd