--- a/FileApplicationNoteBook.st	Wed Jan 28 11:45:46 2004 +0100
+++ b/FileApplicationNoteBook.st	Wed Jan 28 14:11:24 2004 +0100
@@ -302,8 +302,7 @@
 
     ^ self listOfApplications select:[ : appl  |
         ((appl class = aClass)
-        " have to ask for type to avoid reuse of directory description editors "
-        and:[appl type = aType])
+        "and:[appl type = aType]")
     ].
 !
 
@@ -664,6 +663,7 @@
         aBlock notNil ifTrue:[
             aBlock value:changeAppl.
         ].
+        changeAppl type:aType.
         self changeItem:anItem for:changeAppl.
         selAppl := changeAppl.
     ].
@@ -4097,6 +4097,12 @@
         semaChangeItem := Semaphore forMutualExclusion.
     ].
     ^ semaChangeItem
+!
+
+type:aType
+
+    super type:aType.
+    self changeInformation.
 ! !
 
 !FileApplicationNoteBook::TextEditor methodsFor:'actions'!
@@ -5220,5 +5226,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.141 2004-01-28 10:45:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.142 2004-01-28 13:11:24 penk Exp $'
 ! !