[#Menu        :    default]
Add:Button:LoadUnloadTDLxx

[#Form        :    default]
Add:Button:LoadUnloadTDLxx
[System    :Form keys]
Key    :LoadUnloadTDLxx
[System    :Menu Keys]
Key    :LoadUnloadTDLxx

[Button:LoadUnloadTDLxx]
Title:"Load Unload"
Key:ALT+7
Action:Alter:LoadUnloadTDLxx
Background:"BLUE"
Color:White
[Report:LoadUnloadTDLxx]
Form:LoadUnloadTDLxx
[Form:LoadUnloadTDLxx]
Part:LoadUnloadTDLxx
On:Form Accept:Yes:Form Accept
On:Form Accept:Yes:Call:LoadUnloadTDLxx:#LoadUnloadTDLxx:#LoadUnloadTDLName
[Part:LoadUnloadTDLxx]
Line:LoadUnloadTDLxx,LoadUnloadTDLName
[Line:LoadUnloadTDLxx]
Field:ShortPrompt,LoadUnloadTDLxx
Local:Field:ShortPrompt:Info:"Type"
[Field:LoadUnloadTDLxx]
Use:Name field
Table:LoadUnloadTDLxx
Show Table:Always
[Collection:LoadUnloadTDLxx]
Title:"Type"
List:"Load","Unload"
[Line:LoadUnloadTDLName]
Field:ShortPrompt,LoadUnloadTDLName
Local:Field:ShortPrompt:Info:"TDL Name"
[Field:LoadUnloadTDLName]
Use:Name field
Table:LoadUnloadTDLName
Show Table:Always
Width:70
Style:Small
[Collection:LoadUnloadTDLName]
Title:if #LoadUnloadTDLxx="Load" then "List Of Unloaded TDL" else  "List Of Loaded TDL"
Sub Title:"TDL Name","Local/Server","Is Loaded"
Type:Addon
Native Method:*.*
Format:$AddOnFileName
Format:$AddonSourceType
Format:$AddonIsLoaded
Filter:Loadedorunloaded
;Filters:AGAddOnDColFilterGa

[System:Formulae]
AGAddOnDColFilterGa:not $AddonIsInternal
Loadedorunloaded:if #LoadUnloadTDLxx="Load" then not $AddonIsLoaded else  $AddonIsLoaded


[Function:LoadUnloadTDLxx]
Parameter:LoadUnloadTDLxx:String
Parameter:LoadUnloadTDLName:String
101:If:##LoadUnloadTDLxx="Load"
102:Action:Load TDL:##LoadUnloadTDLName
103:Else
104:Action:Unload TDL:##LoadUnloadTDLName
105:End If