From 3fa4ff6946a40b14dd2d242a760eb1dc5f2d8baf Mon Sep 17 00:00:00 2001 From: ZeqMacaw Date: Fri, 20 Jan 2023 21:38:00 -0500 Subject: [PATCH] ADDED: Support for "JBMod" steam workshop. Cleanup of PR #41. --- .../Core/SteamAppInfos/JBmodSteamAppInfo.vb | 39 ++- .../Core/SteamAppInfos/SteamAppInfoBase.vb | 2 +- Crowbar/Crowbar.vbproj | 10 + .../JBModTagsUserControl.Designer.vb | 247 +++++++++--------- .../JBModTagsUserControl.vb | 6 +- 5 files changed, 155 insertions(+), 149 deletions(-) diff --git a/Crowbar/Core/SteamAppInfos/JBmodSteamAppInfo.vb b/Crowbar/Core/SteamAppInfos/JBmodSteamAppInfo.vb index 847bc23c..dcbbbf23 100644 --- a/Crowbar/Core/SteamAppInfos/JBmodSteamAppInfo.vb +++ b/Crowbar/Core/SteamAppInfos/JBmodSteamAppInfo.vb @@ -1,26 +1,19 @@ -Imports System.ComponentModel -Imports System.IO -Imports Steamworks - -Public Class JBmodSteamAppInfo - Inherits SteamAppInfoBase +Imports System.ComponentModel +Imports System.IO +Imports Steamworks - Public Sub New() - MyBase.New() +Public Class JBModSteamAppInfo + Inherits SteamAppInfoBase - Me.ID = New AppId_t(2158860) - Me.Name = "JBmod" - Me.UsesSteamUGC = True - Me.CanUseContentFolderOrFile = False - 'Me.ContentFileExtensionsAndDescriptions.Add("vpk", "Source Engine VPK Files") - Me.TagsControlType = GetType(JBModTagsUserControl) - End Sub + Public Sub New() + MyBase.New() - Public Enum ZombiePanicSourceTypeTags - GameMode - CustomModels - CustomSounds - Miscellaneous - End Enum - -End Class + Me.ID = New AppId_t(2158860) + Me.Name = "JBMod" + Me.UsesSteamUGC = True + Me.CanUseContentFolderOrFile = False + 'Me.ContentFileExtensionsAndDescriptions.Add("vpk", "Source Engine VPK Files") + Me.TagsControlType = GetType(JBModTagsUserControl) + End Sub + +End Class diff --git a/Crowbar/Core/SteamAppInfos/SteamAppInfoBase.vb b/Crowbar/Core/SteamAppInfos/SteamAppInfoBase.vb index 67871a7e..03f40d9b 100644 --- a/Crowbar/Core/SteamAppInfos/SteamAppInfoBase.vb +++ b/Crowbar/Core/SteamAppInfos/SteamAppInfoBase.vb @@ -63,7 +63,7 @@ Public Class SteamAppInfoBase steamAppInfos.Add(anAppInfo) anAppInfo = New HuntDownTheFreemanSteamAppInfo() steamAppInfos.Add(anAppInfo) - anAppInfo = New JBmodSteamAppInfo() + anAppInfo = New JBModSteamAppInfo() steamAppInfos.Add(anAppInfo) anAppInfo = New Left4Dead2SteamAppInfo() steamAppInfos.Add(anAppInfo) diff --git a/Crowbar/Crowbar.vbproj b/Crowbar/Crowbar.vbproj index 2c7f8185..49ab8387 100644 --- a/Crowbar/Crowbar.vbproj +++ b/Crowbar/Crowbar.vbproj @@ -451,6 +451,7 @@ + @@ -766,6 +767,12 @@ UserControl + + JBModTagsUserControl.vb + + + UserControl + WilsonChroniclesTagsUserControl.vb @@ -927,6 +934,9 @@ HuntDownTheFreemanTagsUserControl.vb + + JBModTagsUserControl.vb + MilitaryConflictVietnamTagsUserControl.vb diff --git a/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.Designer.vb b/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.Designer.vb index c92c14e8..59c6cde7 100644 --- a/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.Designer.vb +++ b/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.Designer.vb @@ -1,5 +1,5 @@  -Partial Class JBmodTagsUserControl +Partial Class JBModTagsUserControl Inherits Base_TagsUserControl 'UserControl overrides dispose to clean up the component list. @@ -22,131 +22,134 @@ Partial Class JBmodTagsUserControl 'Do not modify it using the code editor. Private Sub InitializeComponent() - Me.GameTypeGroupBox = New System.Windows.Forms.GroupBox() - Me.MultiplayerTagCheckBox = New Crowbar.CheckBoxEx() - Me.SingleplayerTagCheckBox = New Crowbar.CheckBoxEx() - Me.ContentTypeCheckBox = New System.Windows.Forms.GroupBox() - Me.SkinTagCheckBox = New Crowbar.CheckBoxEx() - Me.ScriptTagCheckBox = New Crowbar.CheckBoxEx() - Me.ModelTagCheckBox = New Crowbar.CheckBoxEx() - Me.MapTagCheckBox = New Crowbar.CheckBoxEx() - Me.GameTypeGroupBox.SuspendLayout() - Me.ContentTypeCheckBox.SuspendLayout() - Me.SuspendLayout() - ' - 'GameTypeGroupBox - ' - Me.GameTypeGroupBox.Controls.Add(Me.MultiplayerTagCheckBox) - Me.GameTypeGroupBox.Controls.Add(Me.SingleplayerTagCheckBox) - Me.GameTypeGroupBox.Location = New System.Drawing.Point(3, 0) - Me.GameTypeGroupBox.Name = "GameTypeGroupBox" - Me.GameTypeGroupBox.Size = New System.Drawing.Size(114, 60) - Me.GameTypeGroupBox.TabIndex = 0 - Me.GameTypeGroupBox.TabStop = False - Me.GameTypeGroupBox.Text = "GAME TYPE" + Me.GameTypeGroupBox = New System.Windows.Forms.GroupBox() + Me.MultiplayerTagCheckBox = New Crowbar.CheckBoxEx() + Me.SingleplayerTagCheckBox = New Crowbar.CheckBoxEx() + Me.ContentTypeGroupBox = New System.Windows.Forms.GroupBox() + Me.SkinTagCheckBox = New Crowbar.CheckBoxEx() + Me.ScriptTagCheckBox = New Crowbar.CheckBoxEx() + Me.ModelTagCheckBox = New Crowbar.CheckBoxEx() + Me.MapTagCheckBox = New Crowbar.CheckBoxEx() + Me.GameTypeGroupBox.SuspendLayout() + Me.ContentTypeGroupBox.SuspendLayout() + Me.SuspendLayout() + ' + 'GameTypeGroupBox + ' + Me.GameTypeGroupBox.Controls.Add(Me.MultiplayerTagCheckBox) + Me.GameTypeGroupBox.Controls.Add(Me.SingleplayerTagCheckBox) + Me.GameTypeGroupBox.Location = New System.Drawing.Point(3, 0) + Me.GameTypeGroupBox.Name = "GameTypeGroupBox" + Me.GameTypeGroupBox.Size = New System.Drawing.Size(114, 77) + Me.GameTypeGroupBox.TabIndex = 0 + Me.GameTypeGroupBox.TabStop = False + Me.GameTypeGroupBox.Text = "GAME TYPE" + ' + 'MultiplayerTagCheckBox + ' + Me.MultiplayerTagCheckBox.AutoSize = True + Me.MultiplayerTagCheckBox.IsReadOnly = False + Me.MultiplayerTagCheckBox.Location = New System.Drawing.Point(6, 43) + Me.MultiplayerTagCheckBox.Name = "MultiplayerTagCheckBox" + Me.MultiplayerTagCheckBox.Size = New System.Drawing.Size(84, 17) + Me.MultiplayerTagCheckBox.TabIndex = 1 + Me.MultiplayerTagCheckBox.Tag = "Multiplayer" + Me.MultiplayerTagCheckBox.Text = "Multiplayer" + Me.MultiplayerTagCheckBox.UseVisualStyleBackColor = True + ' + 'SingleplayerTagCheckBox + ' + Me.SingleplayerTagCheckBox.AutoSize = True + Me.SingleplayerTagCheckBox.IsReadOnly = False + Me.SingleplayerTagCheckBox.Location = New System.Drawing.Point(6, 20) + Me.SingleplayerTagCheckBox.Name = "SingleplayerTagCheckBox" + Me.SingleplayerTagCheckBox.Size = New System.Drawing.Size(89, 17) + Me.SingleplayerTagCheckBox.TabIndex = 0 + Me.SingleplayerTagCheckBox.Tag = "Singleplayer" + Me.SingleplayerTagCheckBox.Text = "Singleplayer" + Me.SingleplayerTagCheckBox.UseVisualStyleBackColor = True + ' + 'ContentTypeGroupBox + ' + Me.ContentTypeGroupBox.Controls.Add(Me.SkinTagCheckBox) + Me.ContentTypeGroupBox.Controls.Add(Me.ScriptTagCheckBox) + Me.ContentTypeGroupBox.Controls.Add(Me.ModelTagCheckBox) + Me.ContentTypeGroupBox.Controls.Add(Me.MapTagCheckBox) + Me.ContentTypeGroupBox.Location = New System.Drawing.Point(3, 83) + Me.ContentTypeGroupBox.Name = "ContentTypeGroupBox" + Me.ContentTypeGroupBox.Size = New System.Drawing.Size(114, 123) + Me.ContentTypeGroupBox.TabIndex = 1 + Me.ContentTypeGroupBox.TabStop = False + Me.ContentTypeGroupBox.Text = "CONTENT TYPE" + ' + 'SkinTagCheckBox + ' + Me.SkinTagCheckBox.AutoSize = True + Me.SkinTagCheckBox.IsReadOnly = False + Me.SkinTagCheckBox.Location = New System.Drawing.Point(6, 66) + Me.SkinTagCheckBox.Name = "SkinTagCheckBox" + Me.SkinTagCheckBox.Size = New System.Drawing.Size(48, 17) + Me.SkinTagCheckBox.TabIndex = 3 + Me.SkinTagCheckBox.Tag = "Skin" + Me.SkinTagCheckBox.Text = "Skin" + Me.SkinTagCheckBox.UseVisualStyleBackColor = True + ' + 'ScriptTagCheckBox + ' + Me.ScriptTagCheckBox.AutoSize = True + Me.ScriptTagCheckBox.IsReadOnly = False + Me.ScriptTagCheckBox.Location = New System.Drawing.Point(6, 89) + Me.ScriptTagCheckBox.Name = "ScriptTagCheckBox" + Me.ScriptTagCheckBox.Size = New System.Drawing.Size(55, 17) + Me.ScriptTagCheckBox.TabIndex = 2 + Me.ScriptTagCheckBox.Tag = "Script" + Me.ScriptTagCheckBox.Text = "Script" + Me.ScriptTagCheckBox.UseVisualStyleBackColor = True + ' + 'ModelTagCheckBox + ' + Me.ModelTagCheckBox.AutoSize = True + Me.ModelTagCheckBox.IsReadOnly = False + Me.ModelTagCheckBox.Location = New System.Drawing.Point(6, 43) + Me.ModelTagCheckBox.Name = "ModelTagCheckBox" + Me.ModelTagCheckBox.Size = New System.Drawing.Size(59, 17) + Me.ModelTagCheckBox.TabIndex = 0 + Me.ModelTagCheckBox.Tag = "Model" + Me.ModelTagCheckBox.Text = "Model" + Me.ModelTagCheckBox.UseVisualStyleBackColor = True + ' + 'MapTagCheckBox + ' + Me.MapTagCheckBox.AutoSize = True + Me.MapTagCheckBox.IsReadOnly = False + Me.MapTagCheckBox.Location = New System.Drawing.Point(6, 20) + Me.MapTagCheckBox.Name = "MapTagCheckBox" + Me.MapTagCheckBox.Size = New System.Drawing.Size(49, 17) + Me.MapTagCheckBox.TabIndex = 0 + Me.MapTagCheckBox.Tag = "Map" + Me.MapTagCheckBox.Text = "Map" + Me.MapTagCheckBox.UseVisualStyleBackColor = True + ' + 'JBModTagsUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ContentTypeGroupBox) + Me.Controls.Add(Me.GameTypeGroupBox) + Me.Name = "JBModTagsUserControl" + Me.Size = New System.Drawing.Size(124, 215) + Me.GameTypeGroupBox.ResumeLayout(False) + Me.GameTypeGroupBox.PerformLayout() + Me.ContentTypeGroupBox.ResumeLayout(False) + Me.ContentTypeGroupBox.PerformLayout() + Me.ResumeLayout(False) - Me.SingleplayerTagCheckBox.AutoSize = True - Me.SingleplayerTagCheckBox.IsReadOnly = False - Me.SingleplayerTagCheckBox.Location = New System.Drawing.Point(6, 20) - Me.SingleplayerTagCheckBox.Name = "SingleplayerTagCheckBox" - Me.SingleplayerTagCheckBox.Size = New System.Drawing.Size(84, 17) - Me.SingleplayerTagCheckBox.TabIndex = 0 - Me.SingleplayerTagCheckBox.Tag = "Singleplayer" - Me.SingleplayerTagCheckBox.Text = "Singleplayer" - Me.SingleplayerTagCheckBox.UseVisualStyleBackColor = True - ' - 'MultiplayerTagCheckBox - ' - Me.MultiplayerTagCheckBox.AutoSize = True - Me.MultiplayerTagCheckBox.IsReadOnly = False - Me.MultiplayerTagCheckBox.Location = New System.Drawing.Point(6, 40) - Me.MultiplayerTagCheckBox.Name = "MultiplayerTagCheckBox" - Me.MultiplayerTagCheckBox.Size = New System.Drawing.Size(78, 17) - Me.MultiplayerTagCheckBox.TabIndex = 1 - Me.MultiplayerTagCheckBox.Tag = "Multiplayer" - Me.MultiplayerTagCheckBox.Text = "Multiplayer" - Me.MultiplayerTagCheckBox.UseVisualStyleBackColor = True + End Sub - ' - 'ContentTypeCheckBox - ' - Me.ContentTypeCheckBox.Controls.Add(Me.SkinTagCheckBox) - Me.ContentTypeCheckBox.Controls.Add(Me.ScriptTagCheckBox) - Me.ContentTypeCheckBox.Controls.Add(Me.ModelTagCheckBox) - Me.ContentTypeCheckBox.Controls.Add(Me.MapTagCheckBox) - Me.ContentTypeCheckBox.Location = New System.Drawing.Point(3, 70) - Me.ContentTypeCheckBox.Name = "ContentTypeCheckBox" - Me.ContentTypeCheckBox.Size = New System.Drawing.Size(114, 100) - Me.ContentTypeCheckBox.TabIndex = 1 - Me.ContentTypeCheckBox.TabStop = False - Me.ContentTypeCheckBox.Text = "CONTENT TYPE" - - Me.MapTagCheckBox.AutoSize = True - Me.MapTagCheckBox.IsReadOnly = False - Me.MapTagCheckBox.Location = New System.Drawing.Point(6, 20) - Me.MapTagCheckBox.Name = "MapTagCheckBox" - Me.MapTagCheckBox.Size = New System.Drawing.Size(69, 17) - Me.MapTagCheckBox.TabIndex = 0 - Me.MapTagCheckBox.Tag = "Map" - Me.MapTagCheckBox.Text = "Map" - Me.MapTagCheckBox.UseVisualStyleBackColor = True - - Me.ModelTagCheckBox.AutoSize = True - Me.ModelTagCheckBox.IsReadOnly = False - Me.ModelTagCheckBox.Location = New System.Drawing.Point(6, 40) - Me.ModelTagCheckBox.Name = "ModelTagCheckBox" - Me.ModelTagCheckBox.Size = New System.Drawing.Size(69, 17) - Me.ModelTagCheckBox.TabIndex = 0 - Me.ModelTagCheckBox.Tag = "Model" - Me.ModelTagCheckBox.Text = "Model" - Me.ModelTagCheckBox.UseVisualStyleBackColor = True - - ' - 'SkinTagCheckBox - ' - Me.SkinTagCheckBox.AutoSize = True - Me.SkinTagCheckBox.IsReadOnly = False - Me.SkinTagCheckBox.Location = New System.Drawing.Point(6, 60) - Me.SkinTagCheckBox.Name = "SkinTagCheckBox" - Me.SkinTagCheckBox.Size = New System.Drawing.Size(66, 17) - Me.SkinTagCheckBox.TabIndex = 3 - Me.SkinTagCheckBox.Tag = "Skin" - Me.SkinTagCheckBox.Text = "Skin" - Me.SkinTagCheckBox.UseVisualStyleBackColor = True - ' - 'ScriptTagCheckBox - ' - Me.ScriptTagCheckBox.AutoSize = True - Me.ScriptTagCheckBox.IsReadOnly = False - Me.ScriptTagCheckBox.Location = New System.Drawing.Point(6, 80) - Me.ScriptTagCheckBox.Name = "ScriptTagCheckBox" - Me.ScriptTagCheckBox.Size = New System.Drawing.Size(46, 17) - Me.ScriptTagCheckBox.TabIndex = 2 - Me.ScriptTagCheckBox.Tag = "Script" - Me.ScriptTagCheckBox.Text = "Script" - Me.ScriptTagCheckBox.UseVisualStyleBackColor = True - - ' - 'BlackMesaTagsUserControl - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.ContentTypeCheckBox) - Me.Controls.Add(Me.GameTypeGroupBox) - Me.Name = "JBmodTagsUserControl" - Me.Size = New System.Drawing.Size(318, 215) - Me.GameTypeGroupBox.ResumeLayout(False) - Me.GameTypeGroupBox.PerformLayout() - Me.ContentTypeCheckBox.ResumeLayout(False) - Me.ContentTypeCheckBox.PerformLayout() - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents GameTypeGroupBox As GroupBox + Friend WithEvents GameTypeGroupBox As GroupBox Friend WithEvents MultiplayerTagCheckBox As CheckBoxEx Friend WithEvents SingleplayerTagCheckBox As CheckBoxEx - Friend WithEvents ContentTypeCheckBox As GroupBox + Friend WithEvents ContentTypeGroupBox As GroupBox Friend WithEvents SkinTagCheckBox As CheckBoxEx Friend WithEvents ScriptTagCheckBox As CheckBoxEx Friend WithEvents ModelTagCheckBox As CheckBoxEx diff --git a/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.vb b/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.vb index 16bac78b..49930b1f 100644 --- a/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.vb +++ b/Crowbar/Widgets/Publish SteamApp Tags/JBModTagsUserControl.vb @@ -1,3 +1,3 @@ -Public Class JBmodTagsUserControl - -End Class +Public Class JBModTagsUserControl + +End Class