Adding release notes menu item.

thommcgrath · Jun 27, 2017 · 8503434 · 8503434
1 parent b8e90f7
commit 8503434
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 0 deletions.
diff --git a/Project/App.xojo_code b/Project/App.xojo_code
@@ -68,6 +68,10 @@ Inherits Application
 		    Self.mMutex = Lock
 		  End If
 
+		  #if TargetMacOS
+		    UntitledSeparator6.Visible = False
+		  #endif
+
 		  LocalData.Start
 
 		  Dim IdentityFile As FolderItem = Self.ApplicationSupport.Child("Default" + BeaconFileTypes.BeaconIdentity.PrimaryExtension)
@@ -264,6 +268,14 @@ Inherits Application
 		End Function
 	#tag EndMenuHandler
 
+	#tag MenuHandler
+		Function HelpReleaseNotes() As Boolean Handles HelpReleaseNotes.Action
+			ShowURL(Beacon.WebURL("/history.php#build" + Self.NonReleaseVersion.ToText(Xojo.Core.Locale.Raw, "0")))
+			Return True
+
+		End Function
+	#tag EndMenuHandler
+
 	#tag MenuHandler
 		Function HelpReportAProblem() As Boolean Handles HelpReportAProblem.Action
 			Beacon.ReportAProblem()

diff --git a/Project/MainMenuBar.xojo_menu b/Project/MainMenuBar.xojo_menu
@@ -340,13 +340,34 @@ Begin Menu MainMenuBar
          AutoEnable = True
          Visible = True
       End
+      Begin ApplicationMenuItem UntitledSeparator5
+         SpecialMenu = 0
+         Text = "-"
+         Index = -2147483648
+         AutoEnable = True
+         Visible = True
+      End
       Begin ApplicationMenuItem HelpCheckforUpdates
          SpecialMenu = 0
          Text = "Check for Updates…"
          Index = -2147483648
          AutoEnable = True
          Visible = True
       End
+      Begin ApplicationMenuItem HelpReleaseNotes
+         SpecialMenu = 0
+         Text = "Release Notes…"
+         Index = -2147483648
+         AutoEnable = True
+         Visible = True
+      End
+      Begin MenuItem UntitledSeparator6
+         SpecialMenu = 0
+         Text = "-"
+         Index = -2147483648
+         AutoEnable = True
+         Visible = True
+      End
       Begin MenuItem HelpAdminSpawnCodes
          SpecialMenu = 0
          Text = "Admin Spawn Codes"