From 4727963ca83f82dec25ee38579d91ef4910c06d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn?= <3542167+beyon@users.noreply.github.com>
Date: Mon, 30 Oct 2023 16:56:14 +0100
Subject: [PATCH] Fix duplicate example window titles (#362)

---
 src/Examples/Component Examples/Examples.EnvApp/Program.fs | 2 +-
 src/Examples/Examples.DataGridPlayground/Program.fs        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Examples/Component Examples/Examples.EnvApp/Program.fs b/src/Examples/Component Examples/Examples.EnvApp/Program.fs
index 752bdcb0..c3e8f624 100644
--- a/src/Examples/Component Examples/Examples.EnvApp/Program.fs	
+++ b/src/Examples/Component Examples/Examples.EnvApp/Program.fs	
@@ -202,7 +202,7 @@ type Views =
 type MainWindow() as this =
     inherit HostWindow()
     do
-        base.Title <- "Drawing App"
+        base.Title <- "Environment App"
         base.Width <- 500.0
         base.Height <- 500.0
         this.Content <- Views.main ()
diff --git a/src/Examples/Examples.DataGridPlayground/Program.fs b/src/Examples/Examples.DataGridPlayground/Program.fs
index 0755538b..d79bf408 100644
--- a/src/Examples/Examples.DataGridPlayground/Program.fs
+++ b/src/Examples/Examples.DataGridPlayground/Program.fs
@@ -79,7 +79,7 @@ type Views =
 type MainWindow() as this =
     inherit HostWindow()
     do
-        base.Title <- "Drawing App"
+        base.Title <- "DataGrid Playground"
         base.Width <- 500.0
         base.Height <- 500.0
         this.Content <- Views.main ()