-- #Diminution# est la valeur à soustraire aux dimensions de la fenêtre
set diminution to 50
 
-- Largeur & Hauteur du second moniteur
set screen2_width to 1360
set screen2_height to 768
 
-- Si comme moi vous avez un second moniteur plus petit, entrez ici le décalage Y par rapport au moniteur principal
set screen2_Yoffset to 68
 
-- Calcul de la position finale sur le second moniteur
set screen2_pos to {-screen2_width + (diminution / 2), (diminution / 2) + screen2_Yoffset}
 
-- Entrez ici la position de retour de la fenêtre sur l'écran principal
set screen1_pos to {200, 100}
 
tell application "System Events"
	set FrontApplication to (get name of every process whose frontmost is true) as string
	tell process FrontApplication
 
		set {winWidth, winHeight} to size of front window
		set {winX, winY} to position of front window
 
		if (winX < 0) then 			-- déplace la fenêtre située sur l'écran 2 > sur l'écran principal
			set position of window 1 to screen1_pos
		else
			if (winWidth > screen2_width - diminution) then
				-- Diminue la largeur
				set size of window 1 to {screen2_width - diminution, winHeight}
				set winWidth to (screen2_width - diminution)
			end if
			if (winHeight > screen2_height - diminution) then
				-- Diminue la hauteur
				set size of window 1 to {winWidth, screen2_height - diminution}
			end if
 
			set position of window 1 to screen2_pos
		end if
	end tell
end tell

-- Position sur l'écran Principal
set screen1_pos to {200, 0}
set screen1_size to {1200, 1050}
 
-- Position sur l'écran secondaire (FullScreen)
set screen2_pos to {-1360, 68}
set screen2_size to {1360, 768}
 
tell application "System Events"
	set FrontApplication to (get name of every process whose frontmost is true) as string
	tell process FrontApplication
 
		-- verifie la position de la fenêtre
		set {winX, winY} to position of front window
 
		if (winX < 0) then
			--move/return to principal screen 1
			set position of window 1 to screen1_pos
			set size of window 1 to screen1_size
		else
			--fullscreen screen 2
			set position of window 1 to screen2_pos
			set size of window 1 to screen2_size
		end if
	end tell
end tell

-- Largeur & Hauteur du second moniteur
set screen2_width to 1360
set screen2_height to 768
 
-- Si comme moi vous avez un second moniteur plus petit, entrez ici le décalage Y par rapport au moniteur principal
set screen2_Yoffset to 68
 
-- Dossiers initiaux
set workingFolder1 to "WD320:travaux"
set workingFolder2 to "WD320:travaux"
 
tell application "Finder"
	set windowNumber to 1
 
	set Window1 to make new Finder window
	set target of Window1 to workingFolder2
 
	set Window2 to make new Finder window
	set target of Window2 to workingFolder1
 
	--Configuration de l'affichage des deux fenêtres
	repeat 2 times
		activate
		tell window windowNumber
			set current view to list view
			set toolbar visible to true
			set sidebar width to 0
		end tell
		set windowNumber to windowNumber + 1
	end repeat
 
end tell
 
--Déplacement des 2 fenêtres du Finder sur le deuxieme écran
tell application "System Events"
	set FrontApplication to (get name of every process whose frontmost is true) as string
	tell process FrontApplication
		set position of window 1 to {-screen2_width, screen2_Yoffset}
		set size of window 1 to {screen2_width / 2, screen2_height}
 
		set position of window 2 to {-screen2_width / 2, screen2_Yoffset}
		set size of window 2 to {screen2_width / 2, screen2_height}
	end tell
end tell

tell application "System Events"
	set theWindow to window 1 of (first process whose frontmost is true)
	set thePosition to position of theWindow
	display alert name of theWindow & " : " & ((first item of thePosition) as string) & ", " & ((second item of thePosition) as string)
end tell