1
0
Fork 0

Implement adding the area to the config

This commit is contained in:
Holger Hans Peter Freyther 2010-09-06 14:27:50 +08:00
parent 7f802671c6
commit f14a0b250b
1 changed files with 4 additions and 1 deletions

View File

@ -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 [