Notepad: Adding Swift-based Notepad.exe to Examples.

Examples/CMakeLists.txt

@@ -1,4 +1,5 @@
 add_subdirectory(Calculator)
 add_subdirectory(HelloWorld)
+add_subdirectory(Notepad)
 add_subdirectory(UICatalog)
 

Examples/Notepad/CMakeLists.txt

@@ -0,0 +1,10 @@
+add_executable(Notepad
+  Notepad.swift)
+add_custom_command(TARGET Notepad POST_BUILD
+  COMMAND
+    ${CMAKE_COMMAND} -E copy_if_different ${CMAKE_CURRENT_SOURCE_DIR}/Info.plist $<TARGET_FILE_DIR:Notepad>)
+# FIXME(SR-12683) `@main` requires `-parse-as-library`
+target_compile_options(Notepad PRIVATE
+  -parse-as-library)
+target_link_libraries(Notepad PRIVATE
+  SwiftWin32)

Examples/Notepad/Info.plist

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-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>ApplicationSceneManifest</key>
+  <dict>
+    <key>ApplicationSupportsMultipleScenes</key>
+    <false/>
+    <key>SceneConfigurations</key>
+    <dict>
+    <key>UIWindowSceneSessionRoleApplication</key>
+    <array>
+      <dict>
+        <key>SceneConfigurationName</key>
+        <string>Default Configuration</string>
+        <key>SceneDelegateClassName</key>
+        <string>Notepad.Notepad</string>
+      </dict>
+    </array>
+    </dict>
+  </dict>
+</dict>
+</plist>

Examples/Notepad/Notepad.swift

@@ -0,0 +1,36 @@
+/**
+ * Copyright © 2020 Puyan Lotfi <puyan AT puyan DOT org>
+ * All rights reserved.
+ *
+ * SPDX-License-Identifier: BSD-3-Clause
+ **/
+
+import SwiftWin32
+
+@main
+final class Notepad: ApplicationDelegate {
+  var window: Window?
+  lazy var textview: TextView =
+    TextView(frame: Rect(x: 10.0, y: 10.0, width: 750.0, height: 750.0))
+}
+
+extension Notepad: SceneDelegate {
+  func scene(
+    _ scene: Scene, willConnectTo session: SceneSession,
+    options: Scene.ConnectionOptions
+  ) {
+    guard let windowScene = scene as? WindowScene else { return }
+
+    self.window = Window(windowScene: windowScene)
+    self.window?.makeKeyAndVisible()
+    self.window?.addSubview(self.textview)
+
+    self.textview.text = """
+      He piled upon the whale’s white hump the sum of all the general rage and
+      hate felt by his whole race from Adam down; and then, as if his chest had 
+      been a mortar, he burst his hot heart’s shell upon it.
+      """
+
+    self.window?.makeKeyAndVisible()
+  }
+}

Examples/Notepad/main.swift

@@ -0,0 +1 @@
+