--- a/NoteBookView.st Wed Dec 03 09:22:10 2014 +0100
+++ b/NoteBookView.st Wed Dec 03 10:40:41 2014 +0100
@@ -578,26 +578,18 @@
|application builder string|
- translateLabel ifFalse:[ ^ aString ].
-
aString isEmptyOrNil ifTrue:[ ^ aString ].
application := self application.
application isNil ifTrue:[^ aString ].
builder := application builder.
-
- builder isNil ifTrue:[
- string := application resources string:aString.
+ builder notNil ifTrue:[
+ string := builder bindingAt:aString asSymbolIfInterned.
+ string notNil ifTrue:[^ string].
].
- "/ commented, to avoid perform of an arbitrary selector (e.g. halt)
- " ifFalse:[
-
- string := builder aspectAt:(aString asSymbol).
- string notNil ifTrue:[^ string ].
- string := builder resources string:aString.
- ]."
- ^ string ? aString
+ translateLabel ifFalse:[ ^ aString ].
+ ^ builder resources string:aString.
! !
!NoteBookView methodsFor:'accessing-colors'!
@@ -3786,10 +3778,10 @@
!NoteBookView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.187 2014-12-03 08:22:10 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.188 2014-12-03 09:40:41 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.187 2014-12-03 08:22:10 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.188 2014-12-03 09:40:41 stefan Exp $'
! !