--- a/AbstractFileApplicationNoteBookComponent.st Wed Jan 28 14:11:24 2004 +0100
+++ b/AbstractFileApplicationNoteBookComponent.st Wed Jan 28 14:13:02 2004 +0100
@@ -169,18 +169,24 @@
" get the tab string from the application list on the class side "
- | stream string|
+ | stream|
self item notNil ifTrue:[
stream := WriteStream on:''.
- stream nextPutAll:self fileName baseName.
- stream space.
- self sameFileIndex notNil ifTrue:[
- stream nextPutAll:self sameFileIndex asString.
+ self type = #directoryDescription ifTrue:[
+ stream nextPutAll:self fileName directory baseName.
+ stream space.
+ stream nextPut:$[.
+ stream nextPutAll:self fileName baseName.
+ stream nextPut:$].
+ ] ifFalse:[
+ stream nextPutAll:self fileName baseName.
+ stream space.
+ self sameFileIndex notNil ifTrue:[
+ stream nextPutAll:self sameFileIndex asString.
+ ].
].
- string := stream contents.
- stream close.
- ^ string.
+ ^ stream contents.
].
^ nil
!
@@ -234,5 +240,5 @@
!AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.9 2003-08-29 19:28:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.10 2004-01-28 13:13:02 penk Exp $'
! !