From 96a1cbf820ea03621b429cdeda0da2d0a160fce6 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 29 Aug 2020 22:23:59 -0400
Subject: [PATCH] option to close log window on normal exit.

---
 MA2ME/Base.lproj/Preferences.xib | 13 ++++++++++++-
 MA2ME/Defaults.plist             |  2 ++
 MA2ME/LogWindowController.m      |  6 ++++++
 3 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/MA2ME/Base.lproj/Preferences.xib b/MA2ME/Base.lproj/Preferences.xib
index dfe9078..52d23d2 100644
--- a/MA2ME/Base.lproj/Preferences.xib
+++ b/MA2ME/Base.lproj/Preferences.xib
@@ -35,7 +35,7 @@
                         </connections>
                     </textField>
                     <textField horizontalHuggingPriority="251" verticalHuggingPriority="750" fixedFrame="YES" translatesAutoresizingMaskIntoConstraints="NO" id="Qmb-Ag-Xyr">
-                        <rect key="frame" x="18" y="234" width="74" height="16"/>
+                        <rect key="frame" x="18" y="232" width="74" height="16"/>
                         <autoresizingMask key="autoresizingMask" flexibleMaxX="YES" flexibleMinY="YES"/>
                         <textFieldCell key="cell" lineBreakMode="clipping" title="MAME Path" id="Xcq-4g-Wlw">
                             <font key="font" metaFont="system"/>
@@ -43,6 +43,17 @@
                             <color key="backgroundColor" name="textBackgroundColor" catalog="System" colorSpace="catalog"/>
                         </textFieldCell>
                     </textField>
+                    <button verticalHuggingPriority="750" fixedFrame="YES" translatesAutoresizingMaskIntoConstraints="NO" id="KAN-P2-ydI">
+                        <rect key="frame" x="96" y="205" width="217" height="18"/>
+                        <autoresizingMask key="autoresizingMask" flexibleMaxX="YES" flexibleMinY="YES"/>
+                        <buttonCell key="cell" type="check" title="Close log window on normal exit" bezelStyle="regularSquare" imagePosition="left" state="on" inset="2" id="QMz-O0-06U">
+                            <behavior key="behavior" changeContents="YES" doesNotDimImage="YES" lightByContents="YES"/>
+                            <font key="font" metaFont="system"/>
+                        </buttonCell>
+                        <connections>
+                            <binding destination="yvB-HG-64y" name="value" keyPath="values.AutoCloseLogWindow" id="q0L-GA-wM2"/>
+                        </connections>
+                    </button>
                 </subviews>
             </view>
             <point key="canvasLocation" x="140" y="147"/>
diff --git a/MA2ME/Defaults.plist b/MA2ME/Defaults.plist
index 7282f80..8e3cf51 100644
--- a/MA2ME/Defaults.plist
+++ b/MA2ME/Defaults.plist
@@ -2,6 +2,8 @@
 <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 <plist version="1.0">
 <dict>
+	<key>AutoCloseLogWindow</key>
+	<true/>
 	<key>MamePath</key>
 	<string>/usr/local/bin/mame</string>
 </dict>
diff --git a/MA2ME/LogWindowController.m b/MA2ME/LogWindowController.m
index 8033603..91dd232 100644
--- a/MA2ME/LogWindowController.m
+++ b/MA2ME/LogWindowController.m
@@ -144,6 +144,12 @@ static NSMutableSet *LogWindows;
     _task = nil;
     
     [[self window] setDocumentEdited: NO];
+    
+    if (ok && [[NSUserDefaults standardUserDefaults] boolForKey: @"AutoCloseLogWindow"]) {
+        
+        [[self window] close];
+        //[LogWindows removeObject: self]; // close sends WindowWillClose notification.
+    }
 }
 
 #pragma mark - NSWindowDelegate