#tag Class Protected Class TaskEvent #tag Method, Flags = &h0 Sub Constructor(type as Types) Self.Type = type End Sub #tag EndMethod #tag Property, Flags = &h0 Arguments As Dictionary #tag EndProperty #tag Property, Flags = &h0 Type As Types #tag EndProperty #tag Enum, Name = Types, Type = Integer, Flags = &h0 Begin Finished UpdateUI Killed #tag EndEnum #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" Type="String" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" Type="String" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Type" Group="Behavior" Type="Types" EditorType="Enum" #tag EnumValues "0 - Begin" "1 - Finished" "2 - UpdateUI" "3 - Killed" #tag EndEnumValues #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass