equal
deleted
inserted
replaced
1422 ! ! |
1422 ! ! |
1423 |
1423 |
1424 !InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'visiting'! |
1424 !InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'visiting'! |
1425 |
1425 |
1426 visitObject:anObject with:aParameter |
1426 visitObject:anObject with:aParameter |
|
1427 |l| |
|
1428 |
1427 (anObject isKindOf:UISpecification) ifTrue:[ |
1429 (anObject isKindOf:UISpecification) ifTrue:[ |
1428 (anObject respondsTo:#translateLabel) ifTrue:[ |
1430 (anObject respondsTo:#translateLabel) ifTrue:[ |
1429 anObject translateLabel == true ifTrue:[ |
1431 anObject translateLabel == true ifTrue:[ |
1430 translatedLabels isNil ifTrue:[ |
1432 translatedLabels isNil ifTrue:[ |
1431 translatedLabels := Set new. |
1433 translatedLabels := Set new. |
1432 ]. |
1434 ]. |
1433 translatedLabels add:anObject label. |
1435 l := anObject perform:#label ifNotUnderstood:nil. |
|
1436 l notNil ifTrue:[ |
|
1437 translatedLabels add:l. |
|
1438 ]. |
1434 ]. |
1439 ]. |
1435 ]. |
1440 ]. |
1436 ]. |
1441 ]. |
1437 self visitChildrenOf:anObject. |
1442 self visitChildrenOf:anObject. |
1438 ! ! |
1443 ! ! |