Tools__TagList.st
changeset 18166 20d62f930706
parent 18120 6a472647840c
child 18492 56d86f63cd35
equal deleted inserted replaced
18165:86f126920445 18166:20d62f930706
  4336         s skipSeparators.
  4336         s skipSeparators.
  4337 
  4337 
  4338         "/ new interface: block-arg to #changesFromStream:do: gets 3 args
  4338         "/ new interface: block-arg to #changesFromStream:do: gets 3 args
  4339         [
  4339         [
  4340             ChangeSet::InvalidChangeChunkError handle:[:ex |
  4340             ChangeSet::InvalidChangeChunkError handle:[:ex |
  4341                 Dialog warn:('TagList [info]: Error while processing changes in "%1":\\%2' withCRs
  4341                 Logger warning:('TagList [info]: Error while processing changes in "%1":\\%2' withCRs
  4342                                 bindWith:aFilePath asFilename pathName
  4342                                 bindWith:aFilePath asFilename pathName
  4343                                 with: ex description).
  4343                                 with: ex description).
  4344             ] do:[
  4344             ] do:[
  4345                 ChangeSet changesFromStream:s do:[:aChange :lNr :pos|
  4345                 ChangeSet changesFromStream:s do:[:aChange :lNr :pos|
  4346                     aChange isClassDefinitionChange ifTrue:[
  4346                     aChange isClassDefinitionChange ifTrue:[
  4397     ].
  4397     ].
  4398 
  4398 
  4399     ^ targets
  4399     ^ targets
  4400 
  4400 
  4401     "Created: / 05-01-2012 / 10:56:26 / cg"
  4401     "Created: / 05-01-2012 / 10:56:26 / cg"
       
  4402     "Modified: / 30-05-2018 / 11:29:36 / Claus Gittinger"
  4402 !
  4403 !
  4403 
  4404 
  4404 stxResourceTagsInFile:aFilePath
  4405 stxResourceTagsInFile:aFilePath
  4405     "resource tags:
  4406     "resource tags:
  4406      scan for translated entries to show them alphabetically"
  4407      scan for translated entries to show them alphabetically"