Implement adding the area to the config
This commit is contained in:
parent
7f802671c6
commit
f14a0b250b
|
@ -120,7 +120,10 @@ Object subclass: LogConfig [
|
|||
addArea: anArea name: aName [
|
||||
<category: 'management'>
|
||||
"Add the area to the list of areas"
|
||||
"TODO: compile the area..."
|
||||
|
||||
self class addInstVarName: aName asSymbol.
|
||||
self instVarNamed: aName asSymbol put: anArea.
|
||||
self class compile: aName, '[ ^ ', aName, ']' classified: 'area-access'.
|
||||
]
|
||||
|
||||
areas [
|
||||
|
|
Reference in New Issue