Skip to content

Commit

Permalink
Cleaned up some warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
thommcgrath committed Dec 5, 2023
1 parent d3e6139 commit f6adbf0
Show file tree
Hide file tree
Showing 4 changed files with 3 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -333,7 +333,6 @@ Implements Beacon.NamedItem
Packs = New Beacon.StringList(Self.mContentPackId)
End If

Var Create As Boolean = (Options And Self.OptionCreate) = Self.OptionCreate
Var Blueprint As Ark.Blueprint
Select Case Self.mKind
Case Self.KindEngram
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -779,7 +779,6 @@ End
Var Data As Ark.DataSource = Ark.DataSource.Pool.Get(False)

Var Overrides() As Ark.LootDropOverride = Self.mConfig.Overrides
Var AllContainers() As Ark.LootContainer = Data.GetLootContainers("", Self.mContentPacks, "")
Var AllowedLootContainers() As Ark.LootContainer = Data.GetLootContainers(Self.FilterField.Text.MakeUTF8, Self.mContentPacks, "", Preferences.ShowExperimentalLootSources)
For X As Integer = AllowedLootContainers.LastIndex DownTo 0
If Not AllowedLootContainers(X).ValidForMask(Self.mMask) Then
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -779,7 +779,6 @@ End
Var Data As ArkSA.DataSource = ArkSA.DataSource.Pool.Get(False)

Var Overrides() As ArkSA.LootDropOverride = Self.mConfig.Overrides
Var AllContainers() As ArkSA.LootContainer = Data.GetLootContainers("", Self.mContentPacks, "")
Var AllowedLootContainers() As ArkSA.LootContainer = Data.GetLootContainers(Self.FilterField.Text.MakeUTF8, Self.mContentPacks, "", Preferences.ShowExperimentalLootSources)
For X As Integer = AllowedLootContainers.LastIndex DownTo 0
If Not AllowedLootContainers(X).ValidForMask(Self.mMask) Then
Expand Down
3 changes: 3 additions & 0 deletions Project/Views/Support Ticket/DebugWindow.xojo_window
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,7 @@ Begin BeaconWindow DebugWindow Implements NotificationKit.Receiver
Width = 600
Begin Beacon.Thread CollectionThread
DebugIdentifier = ""
Enabled = True
Index = -2147483648
LockedInPosition= False
Priority = 5
Expand Down Expand Up @@ -668,6 +669,7 @@ End
ElseIf Self.mLicenseFieldCount < FieldCount Then
For Idx As Integer = Self.mLicenseFieldCount + 1 To FieldCount
Var Field As DesktopLabel = New LicenseField
Call Field.Text // To silence the warning
Next
End If
Self.mLicenseFieldCount = FieldCount
Expand Down Expand Up @@ -701,6 +703,7 @@ End
ElseIf Self.mProjectFieldCount < FieldCount Then
For Idx As Integer = Self.mProjectFieldCount + 1 To FieldCount
Var Field As DesktopLabel = New ProjectField
Call Field.Text // To silence the warning
Next
End If
Self.mProjectFieldCount = FieldCount
Expand Down

0 comments on commit f6adbf0

Please sign in to comment.