--- a/FileApplicationNoteBook.st Tue Nov 05 11:46:41 2002 +0100
+++ b/FileApplicationNoteBook.st Tue Nov 05 11:52:56 2002 +0100
@@ -521,6 +521,9 @@
index := self getIndexFor:aAppl.
index isNil ifTrue:[ ^ self].
self privateTabList at:index put:(Text fromString:aString).
+ self selectedEditorPage value == index ifTrue:[
+ self changeFileBrowserTitleTo:aString.
+ ].
!
tryToGetExistingApplFor:aClass withItem:aItem withType:aType
@@ -786,13 +789,9 @@
fileName := anAppl fileName.
index := self getIndexFor:anAppl.
- fileName notNil ifTrue:[
- self changeFileBrowserTitleTo:((self privateTabList at:index ifAbsent:nil) ? fileName baseName).
- self notifyChannel value:(fileName asString)
+ self changeFileBrowserTitleTo:(self privateTabList at:index ifAbsent:nil).
+ self notifyChannel value:(fileName asString).
"/ self gotoFile:fileName.
- ].
-
-
index notNil ifTrue:[
canvasHolder value:(anAppl window).
self selectedEditorPage value:index.
@@ -2458,7 +2457,7 @@
#name: 'NoteBookApplication::CommandResult'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
- #bounds: #(#Rectangle 31 66 534 419)
+ #bounds: #(#Rectangle 16 42 519 395)
#menu: #mainMenu
)
#component:
@@ -2482,7 +2481,7 @@
#(#ProgressIndicatorSpec
#name: 'ProgressIndicator1'
#layout: #(#LayoutFrame 125 0 11 0 231 0 21 0)
- #visibilityChannel: #enableStop
+ #visibilityChannel: #enableStopButton
#backgroundColor: #(#Color 0.0 66.9993 66.9993)
#showPercentage: false
#isActivityIndicator: true
@@ -4706,5 +4705,5 @@
!FileApplicationNoteBook class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.32 2002-11-05 10:42:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.33 2002-11-05 10:52:56 penk Exp $'
! !