--- a/FileApplicationNoteBook.st	Thu Jan 12 13:44:24 2006 +0100
+++ b/FileApplicationNoteBook.st	Thu Jan 12 14:20:23 2006 +0100
@@ -4693,7 +4693,6 @@
 !
 
 enableHexToggle
-
     enableHexToggle isNil ifTrue:[
         enableHexToggle := true asValue.
     ].
@@ -4701,34 +4700,22 @@
 !
 
 enableReload
-
     enableReload isNil ifTrue:[
         enableReload := false asValue.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/       enableReload addDependent:self.
-"/       enableReload onChangeSend:#enableReloadChanged to:self.
     ].
     ^ enableReload.
 !
 
 enableSave
-
     enableSave isNil ifTrue:[
         enableSave := false asValue.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/       enableSave addDependent:self.
-"/       enableSave onChangeSend:#enableSaveChanged to:self.
     ].
     ^ enableSave.
 !
 
 fileContentsModel
-
     fileContentsModel isNil ifTrue:[
         fileContentsModel := ValueHolder new.
-"/ if your app needs to be notified of changes, uncomment one of the lines below:
-"/       fileContentsModel addDependent:self.
-"/       fileContentsModel onChangeSend:#fileContentsModelChanged to:self.
     ].
     ^ fileContentsModel.
 !
@@ -4741,7 +4728,6 @@
 !
 
 itemChanged
-
     itemChanged isNil ifTrue:[
         itemChanged := false asValue.
         itemChanged addDependent:self.
@@ -4750,7 +4736,6 @@
 !
 
 itemRemoved
-
     itemRemoved isNil ifTrue:[
         itemRemoved := false asValue.
         itemRemoved addDependent:self.
@@ -4773,7 +4758,6 @@
 !
 
 modifiedChannel
-
     modifiedChannel isNil ifTrue:[
         modifiedChannel := false asValue.
         modifiedChannel addDependent:self.
@@ -4782,7 +4766,6 @@
 !
 
 printAsHexDump
-
     printAsHexDump isNil ifTrue:[
         printAsHexDump := false asValue.
         printAsHexDump addDependent:self.
@@ -4791,7 +4774,6 @@
 !
 
 viewModifiedChannel
-
     viewModifiedChannel isNil ifTrue:[
         viewModifiedChannel := false asValue.
         viewModifiedChannel addDependent:self.
@@ -5047,11 +5029,13 @@
                 ].
 
                 commentStrings := MIMETypes 
-                                    commentStringsForFilename:(self fileName)
+                                    commentStringsForMimeType:mimeType 
+                                    suffix:(self fileName asFilename suffix) 
                                     ifUnknown:[
                                         "/ st:
                                         #('"/' ('"' '"'))
                                     ]. 
+
                 commentStrings notNil ifTrue:[
                     editView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
                 ].
@@ -5554,5 +5538,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.193 2006-01-10 23:23:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.194 2006-01-12 13:20:23 cg Exp $'
 ! !