Merge branch 'PCL-Community:dev' into nzdm

Author: xrlzu

PCL.Core

@@ -4,6 +4,7 @@ Imports System.Windows.Interop
 Imports System.Windows.Media.Effects
 Imports PCL.Core.App
 Imports PCL.Core.Logging
+Imports PCL.Core.UI
 Imports PCL.Core.Utils
 Imports PCL.Core.Utils.OS
 
@@ -74,6 +75,8 @@ Public Class FormMain
         '注册拖拽事件（不能直接加 Handles，否则没用；#6340）
         [AddHandler](DragDrop.DragEnterEvent, New DragEventHandler(AddressOf HandleDrag), handledEventsToo:=True)
         [AddHandler](DragDrop.DragOverEvent, New DragEventHandler(AddressOf HandleDrag), handledEventsToo:=True)
+        ‘注册 Hint 事件
+        AddHandler HintWrapper.OnShow, AddressOf Hint
         '加载 UI
         InitializeComponent()
         Opacity = 0

Plain Craft Launcher 2/FormMain.xaml.vb

@@ -19,12 +19,12 @@ Public Module ModBase
 #Region "声明"
 
     '下列版本信息由更新器自动修改
-    Public Const VersionBaseName As String = "2.13.4-beta.4" '不含分支前缀的显示用版本名
+    Public Const VersionBaseName As String = "2.13.4-beta.5" '不含分支前缀的显示用版本名
     Public Const VersionStandardCode As String = "2.13.4." & VersionBranchCode
     Public Const UpstreamVersion As String = "2.10.5" '上游版本
     Public ReadOnly CommitHash As String = If(EnvironmentInterop.GetSecret("GITHUB_SHA", False), "native") 'Commit Hash
     Public ReadOnly CommitHashShort As String = If(CommitHash = "native", "native", CommitHash.Substring(0, 7)) 'Commit Hash，取前 7 位
-    Public Const VersionCode As Integer = 416 '内部版本号
+    Public Const VersionCode As Integer = 417 '内部版本号
     '自动生成的版本信息
 #If DEBUG Then
     Public Const VersionBranchName As String = "Debug"

Plain Craft Launcher 2/Modules/Base/ModBase.vb

@@ -32,7 +32,8 @@ Class PageOtherLog
     Public Sub LoadList()
         PanList.Children.Clear()
         Dim current = CurrentLogs
-        For Each item In Directory.GetFiles(LogDirectory)
+        Dim logFiles = Directory.GetFiles(LogDirectory).OrderByDescending(Function(f) File.GetLastWriteTime(f)).ToArray()
+        For Each item In logFiles
             Dim fullPath = IO.Path.GetFullPath(item)
             Dim title = IO.Path.GetFileName(item)
             If title.StartsWith("Launch") Then