property theSwitch : 0

tell application "System Events"
	set desktopnames to get display name of every desktop
end tell

if theSwitch = 0 then
	tell application "System Events"
		repeat with currentdesktop in desktopnames
			tell (every desktop whose display name is currentdesktop)
				set initInterval to get change interval
				set change interval to initInterval + 1
			end tell
		end repeat
	end tell
	set theSwitch to 1
	
else
	tell application "System Events"
		repeat with currentdesktop in desktopnames
			tell (every desktop whose display name is currentdesktop)
				set initInterval to get change interval
				set change interval to initInterval - 1
			end tell
		end repeat
	end tell
	set theSwitch to 0
end if