Skapa en knapp i Docken

Det mesta går att göra med ett applescript eller kanske ett Automatorscript. Jag vet inte hur det är med färgen på knappen, men resten borde vara ganska enkelt.

edit: Spaces är svårare att styra. Det går att slå på, men jag hittar inte hur man stänger av det.
edit 2: det var jättelätt att styra.
Starta eller stänga av program är enkelt.

Lite bra länkar:
http://mac-guy-ver.blogspot.com/2008/03/toggle-airport-power-onoff-with.html
http://www.apple.com/applescript/features/system-prefs.html

Är också sugen på detta. Nån applescript-guru som känner sig manad?

Om någon "jobbfunktion" är på ställs alla till "hemmaläge" och tvärt om:

tell application "System Events"
	tell expose preferences
		tell spaces preferences
			set S to spaces enabled
		end tell
	end tell
	set p to name of processes
	if "Parallels" is in p or "Mail" is in p or S is false then
		tell application "Parallels Desktop" to quit
		tell application "Mail" to quit
		tell expose preferences
			tell spaces preferences
				set spaces enabled to true
			end tell
		end tell
	else if "Parallels" is not in p or "Mail" is not in p or S is true then
		tell application "Parallels Desktop" to launch
		tell application "Mail" to launch
		tell expose preferences
			tell spaces preferences
				set spaces enabled to false
			end tell
		end tell
	end if
end tell

Det går att göra mycket snyggare om man tänker efter lite, men mitt exempel visar att det går.

Bra jobbat, och tack för snabb respons!

Jag hittade en annan grej som jag gjort tidigare som kan slängas in i det där om man lägger upp olika nätverksplatser med eller utan Airport aktivt.

tell application "System Events"
	tell network preferences
		set myLocations to the name of every location
		set myCurrentLocation to name of current location
		set myLocationChoice to (choose from list myLocations with prompt "Nuvarande plats nätverksplats är ”" & myCurrentLocation & "”. Vilken plats vill du ha?" with title "Nätverksplats" OK button name "Välj" cancel button name "Ändra inte" without multiple selections allowed) as string
		if myLocationChoice is "false" then
			return
		else
			set current location to location myLocationChoice
		end if
		set myCurrentLocationCheck to name of current location
		if myCurrentLocationCheck is not myLocationChoice then
			display alert "Av okänd anledning är den aktuella nätverksplatsen en annan än den du valde."
		end if
	end tell
end tell