From c939a274bef5af2fdc8fdcfa73965866285848b7 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Sat, 4 Aug 2018 22:21:23 -0400
Subject: [PATCH] Makes first attempt to connect up an in-machine open panel.

---
 OSBindings/Mac/Clock Signal/Base.lproj/MainMenu.xib   |  5 +++++
 .../Mac/Clock Signal/Documents/MachineDocument.swift  | 11 +++++++++++
 2 files changed, 16 insertions(+)

diff --git a/OSBindings/Mac/Clock Signal/Base.lproj/MainMenu.xib b/OSBindings/Mac/Clock Signal/Base.lproj/MainMenu.xib
index e617f15ca..43bcadf11 100644
--- a/OSBindings/Mac/Clock Signal/Base.lproj/MainMenu.xib	
+++ b/OSBindings/Mac/Clock Signal/Base.lproj/MainMenu.xib	
@@ -116,6 +116,11 @@
                                     <action selector="saveScreenshot:" target="-1" id="7ky-xD-tip"/>
                                 </connections>
                             </menuItem>
+                            <menuItem title="Insert..." keyEquivalent="O" id="qQa-kh-4nz">
+                                <connections>
+                                    <action selector="insertMedia:" target="-1" id="9Hs-9J-dlY"/>
+                                </connections>
+                            </menuItem>
                             <menuItem isSeparatorItem="YES" id="rXU-KX-GkZ"/>
                             <menuItem title="Page Setup…" enabled="NO" keyEquivalent="P" id="qIS-W8-SiK">
                                 <modifierMask key="keyEquivalentModifierMask" shift="YES" command="YES"/>
diff --git a/OSBindings/Mac/Clock Signal/Documents/MachineDocument.swift b/OSBindings/Mac/Clock Signal/Documents/MachineDocument.swift
index 1c26fbd5b..3979472d6 100644
--- a/OSBindings/Mac/Clock Signal/Documents/MachineDocument.swift	
+++ b/OSBindings/Mac/Clock Signal/Documents/MachineDocument.swift	
@@ -213,6 +213,7 @@ class MachineDocument:
 		}
 	}
 
+	// MARK: Runtime media insertion.
 	final func openGLView(_ view: CSOpenGLView, didReceiveFileAt URL: URL) {
 		let mediaSet = CSMediaSet(fileAt: URL)
 		if let mediaSet = mediaSet {
@@ -220,6 +221,16 @@ class MachineDocument:
 		}
 	}
 
+	@IBAction final func insertMedia(_ sender: AnyObject!) {
+		let panel = NSOpenPanel()
+		self.openGLView.window!.beginSheet(panel) { (response) in
+			if response == .OK {
+				Swift.print("An animal")
+			}
+			Swift.print("\(response)")
+		}
+	}
+
 	// MARK: NSDocument overrides
 	override func data(ofType typeName: String) throws -> Data {
 		throw NSError(domain: NSOSStatusErrorDomain, code: unimpErr, userInfo: nil)