Add Applescript commands to enter presentation mode

chrome/browser/ui/cocoa/applescript/scripting.sdef

 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dictionary SYSTEM "file://localhost/System/Library/DTDs/sdef.dtd">
 <dictionary title="Dictionary">
         <!--
     STANDARD SUITE
   -->
         <suite name="Standard Suite" code="core" description="Common classes and commands for all applications.">
                 <cocoa name="NSCoreSuite"/>
                 <class name="application" code="capp" description="The application&apos;s top-level scripting object.">
                         <cocoa class="BrowserCrApplication"/>
@@ skipping 245 matching lines @@
                 </class>
                 <class name="bookmark item" code="CrBI" description="An item consists of an URL and the title of a bookmark">
                         <cocoa class="BookmarkItemAppleScript"/>
                         <property name="id" code="ID  " description="Unique ID of the bookmark item." type="integer" access="r">
                                 <cocoa key="uniqueID"/>
                         </property>
                         <property name="title" code="pnam" description="The title of the bookmark item." type="text"/>
                         <property name="URL" code="URL " description="The URL of the bookmark." type="text"/>
                         <property name="index" code="indx" description="Returns the index with respect to its parent bookmark folder" type="number" access="r"/>
                 </class>
+                <class-extension extends="window">
+                        <property name="presenting" code="pres" description="Whether the window is in presentation mode." type="boolean" access="r">
+                                <cocoa key="presenting"/>
+                        </property>
+                        <responds-to command="enter presentation mode">
+                                <cocoa method="handlesEnterPresentationMode:"/>
+                        </responds-to>
+                        <responds-to command="exit presentation mode">
+                                <cocoa method="handlesExitPresentationMode:"/>
+                        </responds-to>
+                </class-extension>
                 <command name="reload" code="CrSuRlod" description="Reload a tab.">
                         <direct-parameter description="The tab to execute the command in." type="specifier"/>
                 </command>
                 <command name="go back" code="CrSuBack" description="Go Back (If Possible).">
                         <direct-parameter description="The tab to execute the command in." type="specifier"/>
                 </command>
                 <command name="go forward" code="CrSuFwd " description="Go Forward (If Possible).">
                         <direct-parameter description="The tab to execute the command in." type="specifier"/>
                 </command>
                 <command name="select all" code="CrSuSlAl" description="Select all.">
@@ skipping 20 matching lines @@
                 <command name="view source" code="CrSuVSrc" description="View the HTML source of the tab.">
                         <direct-parameter description="The tab to execute the command in." type="specifier"/>
                 </command>
                 <command name="execute" code="CrSuExJa" description="Execute a piece of javascript.">
                         <direct-parameter description="The tab to execute the command in." type="specifier"/>
                         <parameter name="javascript" code="JvSc" description="The javascript code to execute." type="text">
                                 <cocoa key="javascript"/>
                         </parameter>
                         <result type="any"/>
                 </command>
+                <command name="enter presentation mode" code="CrSuEnPM" description="Enter presentation mode in window.">
+                        <direct-parameter description="The window to enter presentation mode." type="specifier"/>
+                </command>
+                <command name="exit presentation mode" code="CrSuExPM" description="Exit presentation mode in window.">
+                        <direct-parameter description="The window to exit presentation mode." type="specifier"/>
+                </command>
         </suite>
 </dictionary>