equal
deleted
inserted
replaced
17 |
17 |
18 Object subclass:#MiniLogger |
18 Object subclass:#MiniLogger |
19 instanceVariableNames:'' |
19 instanceVariableNames:'' |
20 classVariableNames:'ALL DEBUG ENTER ERROR FATAL INFO Instance LEAVE LogFormat |
20 classVariableNames:'ALL DEBUG ENTER ERROR FATAL INFO Instance LEAVE LogFormat |
21 LogOnStderr LogOnTranscript NONE Severities TRACE TRACE0 TRACE1 |
21 LogOnStderr LogOnTranscript NONE Severities TRACE TRACE0 TRACE1 |
22 TRACE2 TRACE3 WARN WARNING Threshold ThresholdPerClass |
22 TRACE2 TRACE3 Threshold ThresholdPerClass ThresholdPerPackage |
23 ThresholdPerPackage TimestampFormat' |
23 TimestampFormat WARN WARNING' |
24 poolDictionaries:'' |
24 poolDictionaries:'' |
25 category:'System-Debugging-Support' |
25 category:'System-Debugging-Support' |
26 ! |
26 ! |
27 |
27 |
28 Magnitude subclass:#Severity |
28 Magnitude subclass:#Severity |
402 ThresholdPerClass isNil ifTrue:[ |
402 ThresholdPerClass isNil ifTrue:[ |
403 ThresholdPerClass := Dictionary new. |
403 ThresholdPerClass := Dictionary new. |
404 ]. |
404 ]. |
405 ThresholdPerClass at:aClass theNonMetaclass name put:aLimitOrNil. |
405 ThresholdPerClass at:aClass theNonMetaclass name put:aLimitOrNil. |
406 |
406 |
|
407 " |
|
408 Logger severityThresholdOf: Object |
|
409 Logger severityThresholdOf: Expecco::Browser |
|
410 |
|
411 Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser). |
|
412 Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'. |
|
413 Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'. |
|
414 |
|
415 Logger loggingThreshold:nil forClass:(Expecco::Browser). |
|
416 Logger loggingThreshold:nil forPackage:'stx:libbasic'. |
|
417 " |
|
418 |
407 "Created: / 01-03-2017 / 10:52:25 / cg" |
419 "Created: / 01-03-2017 / 10:52:25 / cg" |
408 ! |
420 ! |
409 |
421 |
410 loggingThreshold:aLimitOrNil forPackage:aPackageName |
422 loggingThreshold:aLimitOrNil forPackage:aPackageName |
411 "allows individual per-package setting of the threshold (useful during debugging). |
423 "allows individual per-package setting of the threshold (useful during debugging). |
428 ]. |
440 ]. |
429 ThresholdPerPackage isNil ifTrue:[ |
441 ThresholdPerPackage isNil ifTrue:[ |
430 ThresholdPerPackage := Dictionary new. |
442 ThresholdPerPackage := Dictionary new. |
431 ]. |
443 ]. |
432 ThresholdPerPackage at:aPackageName put:aLimitOrNil. |
444 ThresholdPerPackage at:aPackageName put:aLimitOrNil. |
|
445 |
|
446 " |
|
447 Logger severityThresholdOf: Object |
|
448 Logger severityThresholdOf: Expecco::Browser |
|
449 |
|
450 Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser). |
|
451 Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'. |
|
452 Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'. |
|
453 |
|
454 Logger loggingThreshold:nil forClass:(Expecco::Browser). |
|
455 Logger loggingThreshold:nil forPackage:'stx:libbasic'. |
|
456 " |
433 |
457 |
434 "Created: / 01-03-2017 / 10:53:42 / cg" |
458 "Created: / 01-03-2017 / 10:53:42 / cg" |
435 ! ! |
459 ! ! |
436 |
460 |
437 !MiniLogger class methodsFor:'logging'! |
461 !MiniLogger class methodsFor:'logging'! |