576 translateToDisplayLabel:aString |
576 translateToDisplayLabel:aString |
577 "translate the label" |
577 "translate the label" |
578 |
578 |
579 |application builder string| |
579 |application builder string| |
580 |
580 |
581 translateLabel ifFalse:[ ^ aString ]. |
|
582 |
|
583 aString isEmptyOrNil ifTrue:[ ^ aString ]. |
581 aString isEmptyOrNil ifTrue:[ ^ aString ]. |
584 |
582 |
585 application := self application. |
583 application := self application. |
586 application isNil ifTrue:[^ aString ]. |
584 application isNil ifTrue:[^ aString ]. |
587 |
585 |
588 builder := application builder. |
586 builder := application builder. |
589 |
587 builder notNil ifTrue:[ |
590 builder isNil ifTrue:[ |
588 string := builder bindingAt:aString asSymbolIfInterned. |
591 string := application resources string:aString. |
589 string notNil ifTrue:[^ string]. |
592 ]. |
590 ]. |
593 "/ commented, to avoid perform of an arbitrary selector (e.g. halt) |
591 translateLabel ifFalse:[ ^ aString ]. |
594 " ifFalse:[ |
592 ^ builder resources string:aString. |
595 |
|
596 string := builder aspectAt:(aString asSymbol). |
|
597 string notNil ifTrue:[^ string ]. |
|
598 string := builder resources string:aString. |
|
599 ]." |
|
600 ^ string ? aString |
|
601 ! ! |
593 ! ! |
602 |
594 |
603 !NoteBookView methodsFor:'accessing-colors'! |
595 !NoteBookView methodsFor:'accessing-colors'! |
604 |
596 |
605 activeBackgroundColor |
597 activeBackgroundColor |