Fixing bug with Preset editor's "Create Blueprint Entry" working with…

… all entries instead of only selected entries.

Project/Views/Library/PresetEditor.xojo_window

@@ -1701,6 +1701,10 @@ End
 		    For Each Map As Beacon.Map In Maps
 		      Dim Entries() As Beacon.PresetEntry
 		      For I As Integer = 0 To Me.ListCount - 1
+		        If Not Me.Selected(I) Then
+		          Continue
+		        End If
+
 		        Dim Entry As Beacon.PresetEntry = Me.RowTag(I)
 		        If Entry.ValidForMap(Map) Then
 		          Entries.Append(Entry)
@@ -1737,7 +1741,7 @@ End
 
 		    For Each Entry As Xojo.Core.DictionaryEntry In NewEntries
 		      Dim Item As Beacon.PresetEntry = Entry.Value
-		      Item.RespectQualityModifier = False
+		      Item.RespectQualityModifier = True
 		      Item.RespectQuantityMultiplier = False
 		      Self.PutEntryInRow(Item, -1, True)
 		      Self.mPreset.Append(Item)