-
Notifications
You must be signed in to change notification settings - Fork 3
/
Issue.vb
65 lines (57 loc) · 2 KB
/
Issue.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Imports System
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.Persistent.Base.General
Namespace HowToUseTreeListEditor.Module
<DefaultClassOptions> _
Public Class Issue
Inherits BaseObject
Implements ICategorizedItem
Private categoryWithIssues As CategoryWithIssues
Private subject_Renamed As String
Private description_Renamed As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Sub New(ByVal session As Session, ByVal subject As String)
MyBase.New(session)
Me.subject_Renamed = subject
End Sub
<Association("CategoryWithIssues-Issues")> _
Public Property Category() As CategoryWithIssues
Get
Return categoryWithIssues
End Get
Set(ByVal value As CategoryWithIssues)
SetPropertyValue("Category", categoryWithIssues, value)
End Set
End Property
Public Property Subject() As String
Get
Return subject_Renamed
End Get
Set(ByVal value As String)
SetPropertyValue("Subject", subject_Renamed, value)
End Set
End Property
Public Property Description() As String
Get
Return description_Renamed
End Get
Set(ByVal value As String)
SetPropertyValue("Description", description_Renamed, value)
End Set
End Property
Private Property ICategorizedItem_Category() As ITreeNode Implements ICategorizedItem.Category
Get
Return Category
End Get
Set(ByVal value As ITreeNode)
Category = DirectCast(value, CategoryWithIssues)
End Set
End Property
End Class
End Namespace