ApplicationModel.st
changeset 4098 7e4fa9050cad
parent 4094 d648fee7bdb4
child 4107 8145573ddce7
equal deleted inserted replaced
4097:662d9ae4818f 4098:7e4fa9050cad
  4134 
  4134 
  4135 information:aString
  4135 information:aString
  4136     "like Object's information, but translates the string via the
  4136     "like Object's information, but translates the string via the
  4137      resourcePack, thus giving a translated string automatically"
  4137      resourcePack, thus giving a translated string automatically"
  4138 
  4138 
  4139     super information:(self translateString:aString)
  4139     self information:aString translate:true
  4140 
  4140 
  4141     "Created: / 20-05-1998 / 03:48:43 / cg"
  4141     "Created: / 20-05-1998 / 03:48:43 / cg"
  4142     "Modified: / 25-11-2016 / 09:55:53 / cg"
  4142     "Modified: / 25-11-2016 / 09:55:53 / cg"
       
  4143     "Modified: / 01-06-2018 / 12:51:23 / Claus Gittinger"
       
  4144 !
       
  4145 
       
  4146 information:aString translate:aBoolean
       
  4147     "like Object's information, but translates the string via the
       
  4148      resourcePack, thus giving a translated string automatically"
       
  4149 
       
  4150     super information:(aBoolean
       
  4151                     ifTrue:[ (self translateString:aString) withCRs ]
       
  4152                     ifFalse:[ aString ])
       
  4153 
       
  4154     "Created: / 01-06-2018 / 12:51:06 / Claus Gittinger"
  4143 !
  4155 !
  4144 
  4156 
  4145 informationTranslated:aString
  4157 informationTranslated:aString
  4146     "like Object's information, but translates the string via the
  4158     "like Object's information, but translates the string via the
  4147      resourcePack, thus giving a translated string automatically"
  4159      resourcePack, thus giving a translated string automatically"