--- a/FileApplicationNoteBook.st	Mon Oct 27 19:04:25 2003 +0100
+++ b/FileApplicationNoteBook.st	Mon Oct 27 19:49:31 2003 +0100
@@ -433,11 +433,7 @@
 !
 
 doCloseApplication
-
-    | appl |
-
-    appl := self listOfApplications at:tabMenuIndex.
-    appl doClose.
+    self selectedApplication doClose.
 !
 
 doRenameTab
@@ -449,11 +445,9 @@
 !
 
 doSelectInList
-
-    | appl fileName|
-
-    appl := self listOfApplications at:tabMenuIndex.
-    fileName := appl fileName.
+    | fileName|
+
+    fileName := self selectedApplication fileName.
     fileName notNil ifTrue:[
         self gotoFile:fileName.
     ].
@@ -945,6 +939,7 @@
     menu :=  Menu new fromLiteralArrayEncoding:self class tabMenu.
     menu ifNil:[ ^ nil ].
     tabMenuIndex := aTab.
+    "/ self selectedApplication fileName
     menu receiver:self.
     ^ menu
 ! !
@@ -987,11 +982,13 @@
 
 selectedApplication
 
-    | canvas |
-
-    canvas := self canvasHolder value.
-    canvas isNil ifTrue:[ ^ nil].
-    ^ canvas application.
+    ^ self listOfApplications at:tabMenuIndex.
+
+"/    | canvas |
+"/
+"/    canvas := self canvasHolder value.
+"/    canvas isNil ifTrue:[ ^ nil].
+"/    ^ canvas application.
 ! !
 
 !FileApplicationNoteBook methodsFor:'startup & release'!
@@ -4979,5 +4976,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.123 2003-10-27 09:29:32 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.124 2003-10-27 18:49:31 cg Exp $'
 ! !