FileApplicationNoteBook.st
changeset 4180 e3e587a5fe65
parent 4177 e0cccc22be74
child 4188 7b31feeeca63
--- 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 $'
 ! !