NoteBookView.st
changeset 4683 a7e27828e009
parent 4682 cf030b296e21
child 4687 ea7610678090
--- 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 $'
 ! !