20 lines
382 B
OpenEdge ABL
20 lines
382 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "TermItem"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public name_ As String
|
|
Public definition_ As String
|
|
Public source_ As String
|
|
|
|
Property Get Basic() As Boolean
|
|
Basic = definition_ = ""
|
|
End Property
|
|
|