diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-09-06 14:27:50 +0800 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-09-06 14:27:50 +0800 |
commit | f14a0b250b102696517985eab71021fce057c4b6 (patch) | |
tree | ec0997141fe76343ec77ce216d8fd26155a07df4 | |
parent | 7f802671c6e80d4b4f8e23cfa2c90b7b2745a5c5 (diff) |
Implement adding the area to the config
-rw-r--r-- | LogManager.st | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/LogManager.st b/LogManager.st index 409a06a..9f86e4f 100644 --- a/LogManager.st +++ b/LogManager.st @@ -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 [ |