workflows

GUIs.ClientSuite/Workflow/WorkflowItem.vb

@@ -4,35 +4,26 @@ Imports DigitalData.GUIs.ClientSuite
 Public Class WorkflowItem
     Implements INotifyPropertyChanged
 
-
     Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
 
-    Public Enum ItemState
-        Normal
-        Warning
-        Danger
-    End Enum
+    Private _state As String
 
-    Public Property StateImage As Image
     Public Property Title As String
     Public Property CreatedAt As DateTime
-    Public Property WorkflowName As String
+    Public Property Process As String
 
-    Private _state As ItemState
-    <Browsable(False)>
-    Public Property State As ItemState
+    Public Property StateImage As Image
+    Public Property State As String
         Get
             Return _state
         End Get
-        Set(value As ItemState)
+        Set(value As String)
             _state = value
             Select Case value
-                Case ItemState.Normal
-                    StateImage = My.Resources.ampel_gruen
-                Case ItemState.Warning
+                Case "Start"
+                    StateImage = My.Resources.
+                Case "Not started"
                     StateImage = My.Resources.ampel_gelb
-                Case ItemState.Danger
-                    StateImage = My.Resources.ampel_rot
                 Case Else
                     StateImage = Nothing
             End Select