From c49f7a406912999009b1e99b05108df4de89a428 Mon Sep 17 00:00:00 2001
From: Frank Skare <frank.skare.de@gmail.com>
Date: Tue, 22 Dec 2020 20:06:44 +0100
Subject: [PATCH] remove dead code

---
 Forms/MainForm.vb              | 15 ++-------------
 General/ApplicationSettings.vb |  2 --
 General/Muxer.vb               |  4 +++-
 General/Package.vb             |  2 +-
 4 files changed, 6 insertions(+), 17 deletions(-)

diff --git a/Forms/MainForm.vb b/Forms/MainForm.vb
index 99748078..d2dc8046 100644
--- a/Forms/MainForm.vb
+++ b/Forms/MainForm.vb
@@ -3460,7 +3460,7 @@ Public Class MainForm
 
             b = ui.AddBool()
             b.Text = "Enable tooltips in menus (restart required)"
-            b.Help = "If you disable this you can still right-click menu items to show the tooltip."
+            b.Help = "Tooltips can always be shown by right-clicking menu items."
             b.Field = NameOf(s.EnableTooltips)
 
             '############# Preprocessing
@@ -3542,18 +3542,6 @@ Public Class MainForm
             b.Text = "Verify tool status"
             b.Field = NameOf(s.VerifyToolStatus)
 
-            n = ui.AddNum
-            n.Text = "Character limit for folders"
-            n.Help = "Character limit of source file folder paths. Windows does not have usable long path support."
-            n.Config = {50, 900, 10}
-            n.Field = NameOf(s.CharacterLimitFolder)
-
-            n = ui.AddNum
-            n.Text = "Character limit for filenames"
-            n.Help = "Windows does not have usable long path support."
-            n.Config = {20, 200, 10}
-            n.Field = NameOf(s.CharacterLimitFilename)
-
             ui.SelectLast("last settings page")
 
             If form.ShowDialog() = DialogResult.OK Then
@@ -4256,6 +4244,7 @@ Public Class MainForm
             b.Help = "Imports VUI metadata such as HDR from the source file to the video encoder."
             b.Field = NameOf(p.ImportVUIMetadata)
 
+            'TODO: added by Revan, needs research
             b = ui.AddBool()
             b.Text = "HDR Ingest"
             b.Help = "Adds the Remaining Metadata Required to be Compliant to HDR10 or HLG Standards"
diff --git a/General/ApplicationSettings.vb b/General/ApplicationSettings.vb
index 43ca3ea0..72572f3d 100644
--- a/General/ApplicationSettings.vb
+++ b/General/ApplicationSettings.vb
@@ -11,8 +11,6 @@ Public Class ApplicationSettings
     Public AviSynthFilterPreferences As StringPairList
     Public AviSynthMode As FrameServerMode
     Public AviSynthProfiles As List(Of FilterCategory)
-    Public CharacterLimitFolder As Integer = 100
-    Public CharacterLimitFilename As Integer = 70
     Public CheckForUpdates As Boolean
     Public CheckForUpdatesBeta As Boolean
     Public CheckForUpdatesDismissed As String
diff --git a/General/Muxer.vb b/General/Muxer.vb
index 9f4006fb..3818a679 100644
--- a/General/Muxer.vb
+++ b/General/Muxer.vb
@@ -614,7 +614,9 @@ Public Class MkvMuxer
     End Sub
 
     Sub WriteTagfile()
-        If Tags.Count = 0 Then Exit Sub
+        If Tags.Count = 0 Then
+            Exit Sub
+        End If
 
         Dim xml = <Tags>
                       <%= From tag In Tags Select
diff --git a/General/Package.vb b/General/Package.vb
index 083b5b00..baa41bb1 100644
--- a/General/Package.vb
+++ b/General/Package.vb
@@ -2081,7 +2081,7 @@ Public Class Package
 
                 Return HelpFile.ReadAllText
             End If
-        Catch ex As Exception
+        Catch
         End Try
 
         Return ""