<TITLE>Re: ANN: ChkTeX for TeXShop 1.4</TITLE>


<FONT FACE="Verdana, Helvetica, Arial"><SPAN STYLE='font-size:18pt'>Here you go.<BR>
<BR>
--Applescript direct<BR>
<BR>
-- Ramon Figueroa-Centeno (June 3, 2010)<BR>
-- <a href="http://www2.hawaii.edu/~ramonf" target="_top" rel="nofollow" link="external">http://www2.hawaii.edu/~ramonf</a><BR>
<BR>
try<BR>
    tell application "System Events"<BR>
        if UI elements enabled then<BR>
            tell process "ChkTeX for TeXShop"<BR>
                set window_pos to the position of window "ChkTeX for TeXShop"<BR>
                set window_size to the size of window "ChkTeX for TeXShop"<BR>
            end tell<BR>
        end if<BR>
    end tell<BR>
on error<BR>
    try<BR>
        try<BR>
            set oldDelims to AppleScript's text item delimiters -- save their current state<BR>
            set AppleScript's text item delimiters to {" "} -- declare new delimiters<BR>
            <BR>
            set command to "defaults read TeXShop \"NSWindow Frame PdfKitWindow\" | sed 's/ +/ /g'"<BR>
            tell me to set ventana to do shell script command<BR>
            tell ventana<BR>
                set window_pos to {text item 1, 0}<BR>
                if text item 3 > 600 then<BR>
                    set window_size to {600, (text item 4 as integer)}<BR>
                else<BR>
                    set window_size to {text item 3, (text item 4 as integer)}<BR>
                end if<BR>
            end tell<BR>
            set AppleScript's text item delimiters to oldDelims -- restore them<BR>
        on error<BR>
            set AppleScript's text item delimiters to oldDelims -- restore them in case something went wrong<BR>
        end try<BR>
    on error<BR>
        set window_pos to {640, 0}<BR>
        set window_size to {600, 640}<BR>
    end try<BR>
end try<BR>
<BR>
tell application "ChkTeX for TeXShop" to quit<BR>
<BR>
-- Force Quit a given application using applescript?<BR>
-- <a href="http://macscripter.net/viewtopic.php?id=15240" target="_top" rel="nofollow" link="external">http://macscripter.net/viewtopic.php?id=15240</a><BR>
set myProcesses to {"TeXShop Webpage Helper", "ChkTeX for TeXShop"} -- The ones to quit.<BR>
<BR>
tell application "System Events"<BR>
    repeat with myProcess in myProcesses<BR>
        set theID to (unix id of processes whose name is myProcess)<BR>
        try<BR>
            -- Should stop the application with no dialogs and no items saved.<BR>
            do shell script "kill -9 " & theID<BR>
        end try<BR>
    end repeat<BR>
end tell<BR>
<BR>
tell application "TeXShop"<BR>
    activate<BR>
    try<BR>
        path of the front document<BR>
        set TeX_path to the result<BR>
    on error<BR>
        -- There is no front document  or it has not ever been saved<BR>
        beep<BR>
        display dialog "there is no front document" & return & "or it has not ever been saved!" buttons {"Ok"} default button "Ok" with icon stop giving up after 20<BR>
        return<BR>
    end try<BR>
    <BR>
    if the front document is modified then<BR>
        set saveme to 1<BR>
    else<BR>
        set saveme to 0<BR>
    end if<BR>
    <BR>
    set command to "open -a \"ChkTeX for TeXShop\" " & quoted form of TeX_path<BR>
    if saveme = 1 then<BR>
        set command to command & " --args  " & saveme & "  " & quoted form of (name of the front document as string)<BR>
    end if<BR>
    do shell script command<BR>
end tell<BR>
<BR>
activate application "ChkTeX for TeXShop"<BR>
tell application "System Events"<BR>
    if UI elements enabled then<BR>
        tell process "ChkTeX for TeXShop"<BR>
            set position of window "ChkTeX for TeXShop" to window_pos<BR>
            set size of window "ChkTeX for TeXShop" to window_size<BR>
        end tell<BR>
    end if<BR>
end tell<BR>
</SPAN></FONT>




<br><hr align="left" width="300">
View this message in context: <a href="http://macosx-tex.576846.n2.nabble.com/ANN-ChkTeX-for-TeXShop-1-4-tp5176033p5179765.html">Re: ANN: ChkTeX for TeXShop 1.4</a><br>
Sent from the <a href="http://macosx-tex.576846.n2.nabble.com/">MacOSX-TeX mailing list archive</a> at Nabble.com.<br>