PowerPoint2007 Writer : Keynote incompatibility (GH-46)

Author: Progi1984

CHANGELOG.md

@@ -10,7 +10,7 @@
 ### Bugfix
 - PowerPoint2007 Writer : Powerpoint Repair Error in Office 2010 - @Progi1984 GH-39
 - PowerPoint2007 Writer : BUG: Repair Error / Wrong anchor if you don't set vertical alignment different to VERTICAL_BASE - @fregge GH-42
-- PowerPoint2007 Writer : Keynote incompatibility - @catrane CP#237322
+- PowerPoint2007 Writer : Keynote incompatibility - @catrane CP#237322 / @Progi1984 GH-46
 
 ### Miscellaneous
 - QA : Move AbstractType for Chart - @Progi1984

src/PhpPowerpoint/Writer/PowerPoint2007.php

@@ -216,6 +216,7 @@ public function save($pFilename)
             // Add PPT properties and styles to ZIP file - Required for Apple Keynote compatibility.
             $objZip->addFromString('ppt/presProps.xml', $wPptProps->writePresProps());
             $objZip->addFromString('ppt/tableStyles.xml', $wPptProps->writeTableStyles());
+            $objZip->addFromString('ppt/viewProps.xml', $wPptProps->writeViewProps());
 
             // Add relationships to ZIP file
             $objZip->addFromString('_rels/.rels', $wPartRels->writeRelationships());

src/PhpPowerpoint/Writer/PowerPoint2007/PptProps.php

@@ -21,7 +21,7 @@
 
 class PptProps extends AbstractPart
 {
-/**
+    /**
      * Write ppt/presProps.xml to XML format
      *
      * @param     PhpPowerpoint    $pPHPPowerPoint
@@ -98,6 +98,33 @@ public function writeTableStyles()
         $objWriter->writeAttribute('def', '{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}');
         $objWriter->endElement();
 
+        return $objWriter->getData();
+    }
+    /**
+     * Write ppt/viewProps.xml to XML format
+     *
+     * @param     PhpPowerpoint    $pPHPPowerPoint
+     * @return     string         XML Output
+     * @throws     \Exception
+     */
+    public function writeViewProps()
+    {
+        // Create XML writer
+        $objWriter = $this->getXMLWriter();
+
+        // XML header
+        $objWriter->startDocument('1.0', 'UTF-8', 'yes');
+
+        // p:viewPr
+        $objWriter->startElement('p:viewPr');
+        $objWriter->writeAttribute('xmlns:a', 'http://schemas.openxmlformats.org/drawingml/2006/main');
+        $objWriter->writeAttribute('xmlns:r', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships');
+        $objWriter->writeAttribute('xmlns:p', 'http://schemas.openxmlformats.org/presentationml/2006/main');
+        $objWriter->writeAttribute('showComments', '0');
+
+        // > p:viewPr
+        $objWriter->endElement();
+
         return $objWriter->getData();
     }
 }