Zooflow: Save Tokens in Custom searches

GUIs.ZooFlow/Search/frmSearchFlow.vb

@@ -52,9 +52,16 @@ Public Class frmSearchFlow
 
     Private Sub SearchRunner_NewSavedSearch(sender As Object, e As EventArgs)
         Dim oForm As New frmEditSearch With {.IsNew = True}
+
         If oForm.ShowDialog() = DialogResult.OK Then
-            SearchLoader.CreateCustomSearch(oForm.Title, oForm.Description, New List(Of Token), oForm.ImageString)
+
+            ' Get active tokens and create the search
+            Dim oTokens = SearchRunner.ActiveTokens
+            SearchLoader.CreateCustomSearch(oForm.Title, oForm.Description, oTokens, oForm.ImageString)
+
+            ' Reload the searches
             GridSearches.DataSource = SearchLoader.LoadSearches()
+
         End If
     End Sub
 
@@ -359,4 +366,40 @@ Public Class frmSearchFlow
     Private Sub BarEditItem2_EditValueChanged(sender As Object, e As EventArgs) Handles BarEditItem2.EditValueChanged
         ViewSearches.OptionsTiles.RowCount = BarEditItem2.EditValue
     End Sub
+
+    Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem1.CheckedChanged
+        If BarCheckItem1.Checked Then
+            ViewSearches.OptionsTiles.LayoutMode = TileViewLayoutMode.Kanban
+        Else
+            ViewSearches.OptionsTiles.LayoutMode = TileViewLayoutMode.Default
+        End If
+    End Sub
+
+    Private Sub btnOpenSearchDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenSearchDirectory.ItemClick
+        Dim oSearchDirectory = SearchLoader.GetSearchDirectoryPath()
+        Process.Start(oSearchDirectory)
+    End Sub
+
+
+
+    Private Sub ViewSearches_ItemCheckedChanged(sender As Object, e As TileViewItemClickEventArgs) Handles ViewSearches.ItemCheckedChanged
+        Dim oItem As TileViewItem = e.Item
+        Dim oSearch As SavedSearch.SavedSearch = ViewSearches.GetRow(oItem.RowHandle)
+
+        If TypeOf oSearch Is CustomSearch Then
+            'TODO: show ribbon controls to edit search
+        End If
+    End Sub
+
+    Private Sub ViewSearches_CustomColumnSort(sender As Object, e As Views.Base.CustomColumnSortEventArgs) Handles ViewSearches.CustomColumnSort
+        Console.WriteLine()
+
+        If TypeOf e.RowObject1 Is CustomSearch Then
+            e.Result = 1
+            e.Handled = True
+        Else
+            e.Result = -1
+            e.Handled = True
+        End If
+    End Sub
 End Class