![]() |
Design Pattern: Application Variables |
![]() |
{application} class >> _Pragma_{application}Globals
"%%PRAGMA DECLARE
(name: AppVariable1
isPool: false
isConstant: false
valueExpression: 'nil')
(name: AppVariable2
isPool: false
isConstant: false
valueExpression: 'nil')
"
{application} class >> loaded
AppVariable1 := AppVariable1Class new.
AppVariable2 := AppVariable1Class new.
{application} class >> removing
AppVariable1 shuttingDown.
AppVariable1 := nil.