equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
557 ': ' _errorPrint. eachArg printString _errorPrintCR. |
559 ': ' _errorPrint. eachArg printString _errorPrintCR. |
558 ]. |
560 ]. |
559 |
561 |
560 ' vars: ' _errorPrintCR. |
562 ' vars: ' _errorPrintCR. |
561 dot vars keysAndValuesDo:[:idx :eachVar | |
563 dot vars keysAndValuesDo:[:idx :eachVar | |
|
564 |varName| |
|
565 |
|
566 varNames notNil ifTrue:[ |
|
567 varName := varNames at:idx ifAbsent:nil |
|
568 ]. |
|
569 |
562 ' ' _errorPrint. |
570 ' ' _errorPrint. |
563 varNames notNil ifTrue:[ |
571 varName notNil ifTrue:[ |
564 (varNames at:idx) _errorPrint. |
572 varName _errorPrint. |
565 ] ifFalse:[ |
573 ] ifFalse:[ |
566 'var' _errorPrint. idx _errorPrint. |
574 'var' _errorPrint. idx _errorPrint. |
567 ]. |
575 ]. |
568 ': ' _errorPrint. eachVar printString _errorPrintCR. |
576 ': ' _errorPrint. eachVar printString _errorPrintCR. |
569 ]. |
577 ]. |
570 |
578 |
571 '' _errorPrintCR. |
579 '' _errorPrintCR. |
|
580 |
|
581 "Modified: / 12-03-2019 / 22:36:26 / Claus Gittinger" |
572 ! |
582 ! |
573 |
583 |
574 printDotsMethodSource |
584 printDotsMethodSource |
575 self printDotsMethodSource:false |
585 self printDotsMethodSource:false |
576 ! |
586 ! |