--- a/Tools__InternationalLanguageTranslationEditor.st Mon Mar 06 19:58:27 2006 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st Mon Mar 06 20:09:43 2006 +0100
@@ -1424,13 +1424,18 @@
!InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'visiting'!
visitObject:anObject with:aParameter
+ |l|
+
(anObject isKindOf:UISpecification) ifTrue:[
(anObject respondsTo:#translateLabel) ifTrue:[
anObject translateLabel == true ifTrue:[
translatedLabels isNil ifTrue:[
translatedLabels := Set new.
].
- translatedLabels add:anObject label.
+ l := anObject perform:#label ifNotUnderstood:nil.
+ l notNil ifTrue:[
+ translatedLabels add:l.
+ ].
].
].
].