From f55e53c65094bf83f9da07d6e5d24313452e4ef1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Karsten=20Silkenba=CC=88umer?= Date: Mon, 6 Aug 2012 16:49:09 +0200 Subject: [PATCH] Removed scpt sample due to binary file format (extension) --- samples/AppleScript/center.scpt | 50 --------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 samples/AppleScript/center.scpt diff --git a/samples/AppleScript/center.scpt b/samples/AppleScript/center.scpt deleted file mode 100644 index 3049271b..00000000 --- a/samples/AppleScript/center.scpt +++ /dev/null @@ -1,50 +0,0 @@ -set windowWidth to 800 -set windowHeight to 600 -delay 0.1 - -set AppleScript's text item delimiters to "x" - -set res to text returned of (display dialog "Enter the width x height:" default answer ((windowWidth & windowHeight) as text)) - -if res is "" then - display dialog "You need to enter a correct response" - return -end if -set {windowWidth, windowHeight} to text items of res - -set AppleScript's text item delimiters to "" - -tell application "Safari" - set screen_width to (do JavaScript "screen.availWidth" in document 1) - set screen_height to (do JavaScript "screen.availHeight" in document 1) -end tell - -tell application "System Events" - set myFrontMost to name of first item of (processes whose frontmost is true) -end tell - -tell application "Finder" - set {desktopTop, desktopLeft, desktopRight, desktopBottom} to bounds of desktop -end tell - -try - tell application "System Events" - tell process myFrontMost - set {{w, h}} to size of drawer of window 1 - end tell - end tell -on error - set {w, h} to {0, 0} -end try - -tell application "System Events" - tell process myFrontMost - try - set {{w, h}} to size of drawer of window 1 - on error - set {w, h} to {0, 0} - end try - set position of window 1 to {((screen_width - windowWidth) / 2), ((screen_height - windowHeight) / 2.0) - desktopTop} - set size of window 1 to {windowWidth -w, windowHeight} - end tell -end tell \ No newline at end of file