Tools__InternationalLanguageTranslationEditor.st
changeset 3285 5b8697869e72
parent 3284 4de194c0ee74
child 3286 1ea9a6fbe2b4
equal deleted inserted replaced
3284:4de194c0ee74 3285:5b8697869e72
  2365     spec acceptVisitor:visitor.
  2365     spec acceptVisitor:visitor.
  2366 
  2366 
  2367     ^ visitor translatedLabels
  2367     ^ visitor translatedLabels
  2368 !
  2368 !
  2369 
  2369 
  2370 isLiteralStringOrStringConcatenation:aParseNode
       
  2371     aParseNode isLiteralString ifTrue:[^ true].
       
  2372     (aParseNode isMessage and:[aParseNode selector == #,]) ifTrue:[
       
  2373         self halt.
       
  2374     ].
       
  2375     ^ false
       
  2376 !
       
  2377 
       
  2378 literalStringOrStringConcatenation:aParseNode
  2370 literalStringOrStringConcatenation:aParseNode
  2379     "nil if not a literal or a string concatenation"
  2371     "nil if not a literal or a string concatenation"
  2380     
  2372     
  2381     aParseNode isLiteralString ifTrue:[^ aParseNode value].
  2373     aParseNode isLiteralString ifTrue:[^ aParseNode value].
  2382     (aParseNode isMessage and:[aParseNode selector == #,]) ifTrue:[
  2374     (aParseNode isMessage and:[aParseNode selector == #,]) ifTrue:[