486 TRACE value < Threshold value ifTrue:[ ^ self ]. |
486 TRACE value < Threshold value ifTrue:[ ^ self ]. |
487 self log: (format bindWith: arg1 with: arg2) severity: TRACE |
487 self log: (format bindWith: arg1 with: arg2) severity: TRACE |
488 ! |
488 ! |
489 |
489 |
490 warning: message |
490 warning: message |
491 WARNING value < Threshold value ifTrue:[ ^ self ]. |
491 WARN value < Threshold value ifTrue:[ ^ self ]. |
492 self log: message severity: WARNING |
492 self log: message severity: WARN |
|
493 |
|
494 "Modified: / 25-09-2014 / 10:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
493 ! |
495 ! |
494 |
496 |
495 warning: format with: arg1 |
497 warning: format with: arg1 |
496 WARNING value < Threshold value ifTrue:[ ^ self ]. |
498 WARN value < Threshold value ifTrue:[ ^ self ]. |
497 self log: (format bindWith: arg1) severity: WARNING |
499 self log: (format bindWith: arg1) severity: WARN |
|
500 |
|
501 "Modified: / 25-09-2014 / 10:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
498 ! |
502 ! |
499 |
503 |
500 warning: format with: arg1 with: arg2 |
504 warning: format with: arg1 with: arg2 |
501 WARNING value < Threshold value ifTrue:[ ^ self ]. |
505 WARN value < Threshold value ifTrue:[ ^ self ]. |
502 self log: (format bindWith: arg1 with: arg2) severity: WARNING |
506 self log: (format bindWith: arg1 with: arg2) severity: WARN |
|
507 |
|
508 "Modified: / 25-09-2014 / 10:04:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
503 ! ! |
509 ! ! |
504 |
510 |
505 !MiniLogger class methodsFor:'private'! |
511 !MiniLogger class methodsFor:'private'! |
506 |
512 |
507 facilityOf:originator |
513 facilityOf:originator |
582 ! ! |
588 ! ! |
583 |
589 |
584 !MiniLogger class methodsFor:'documentation'! |
590 !MiniLogger class methodsFor:'documentation'! |
585 |
591 |
586 version |
592 version |
587 ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $' |
593 ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $' |
588 ! |
594 ! |
589 |
595 |
590 version_CVS |
596 version_CVS |
591 ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $' |
597 ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $' |
592 ! |
598 ! |
593 |
599 |
594 version_HG |
600 version_HG |
595 |
601 |
596 ^ '$Changeset: <not expanded> $' |
602 ^ '$Changeset: <not expanded> $' |
597 ! |
603 ! |
598 |
604 |
599 version_SVN |
605 version_SVN |
600 ^ '$Id: MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $' |
606 ^ '$Id: MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $' |
601 ! ! |
607 ! ! |
602 |
608 |
603 |
609 |
604 MiniLogger initialize! |
610 MiniLogger initialize! |