equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
218 ! |
216 ! |
219 |
217 |
220 getTabString |
218 getTabString |
221 "get the tab string from the application" |
219 "get the tab string from the application" |
222 |
220 |
223 ^ (Unicode16String |
221 |formatString valueString stream| |
224 streamContents:[:stream | |
222 |
225 |formatString valueString| |
223 stream := CharacterWriteStream on:''. |
226 |
224 |
227 valueString := self getTabValueString. |
225 valueString := self getTabValueString. |
228 valueString isNil ifTrue:[ |
226 valueString isNil ifTrue:[ |
229 valueString := resources string:'<unnamed>' |
227 valueString := resources string:'<unnamed>' |
230 ]. |
228 ]. |
231 |
229 formatString := self class tabStringFor:type. |
232 formatString := self class tabStringFor:type. |
230 formatString isNil ifTrue:[ |
233 formatString isNil ifTrue:[ |
231 "/ default: take the class name |
234 "/ default: take the class name |
232 formatString := self className. |
235 formatString := self className. |
233 ]. |
236 ]. |
234 stream nextPutAll:(resources string:formatString with:valueString). |
237 stream nextPutAll:(resources string:formatString with:valueString). |
235 |
238 ]) asSingleByteStringIfPossible |
236 ^ stream contents. |
239 |
237 |
240 "Modified: / 01-03-2007 / 21:45:02 / cg" |
238 "Modified: / 01-03-2007 / 21:45:02 / cg" |
241 ! |
239 ! |
242 |
240 |
243 getTabStringEnd |
241 getTabStringEnd |
266 ! |
264 ! |
267 |
265 |
268 getTabValueString |
266 getTabValueString |
269 "the item shown in a tab (not language translated)" |
267 "the item shown in a tab (not language translated)" |
270 |
268 |
|
269 |stream fn baseName| |
|
270 |
271 self item isNil ifTrue:[^ nil]. |
271 self item isNil ifTrue:[^ nil]. |
272 |
272 |
273 ^ (Unicode16String |
273 stream := CharacterWriteStream on:''. |
274 streamContents:[:stream | |
274 |
275 |fn baseName| |
275 fn := self fileName. |
276 |
276 baseName := fn baseName. |
277 fn := self fileName. |
277 self type = #directoryDescription ifTrue:[ |
278 baseName := fn baseName. |
278 stream nextPutAll:(fn directory baseName). |
279 self type = #directoryDescription ifTrue:[ |
279 stream space. |
280 stream nextPutAll:(fn directory baseName). |
280 stream nextPut:$[. |
281 stream space. |
281 stream nextPutAll:baseName. |
282 stream nextPut:$[. |
282 stream nextPut:$]. |
283 stream nextPutAll:baseName. |
283 ] ifFalse:[ |
284 stream nextPut:$]. |
284 stream nextPutAll:baseName. |
285 ] ifFalse:[ |
285 stream space. |
286 stream nextPutAll:baseName. |
286 self sameFileIndex notNil ifTrue:[ |
287 stream space. |
287 stream nextPutAll:self sameFileIndex asString. |
288 self sameFileIndex notNil ifTrue:[ |
288 ]. |
289 stream nextPutAll:self sameFileIndex asString. |
289 ]. |
290 ]. |
290 |
291 ]. |
291 ^ stream contents |
292 ]) asSingleByteStringIfPossible. |
|
293 |
292 |
294 "Created: / 01-03-2007 / 21:40:03 / cg" |
293 "Created: / 01-03-2007 / 21:40:03 / cg" |
295 ! |
294 ! |
296 |
295 |
297 isEmbeddedApplication |
296 isEmbeddedApplication |