--- a/FileBrowserV2SettingsAppl.st	Thu Jul 10 14:37:34 2003 +0200
+++ b/FileBrowserV2SettingsAppl.st	Thu Jul 10 14:38:47 2003 +0200
@@ -324,11 +324,6 @@
     ].
 !
 
-evaluateModified
-
-    self modifiedChannel value:(self hasUnsavedChanges).
-!
-
 help
 
     self warn:'no help available here'.
@@ -355,192 +350,173 @@
 !FileBrowserV2SettingsAppl methodsFor:'aspects'!
 
 filenameEntryFieldVisibleHolder
-
     filenameEntryFieldVisibleHolder isNil ifTrue:[
         filenameEntryFieldVisibleHolder := true asValue.
-        filenameEntryFieldVisibleHolder onChangeSend:#evaluateModified to:self.
+        filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel
+            to:self
     ].
-    ^ filenameEntryFieldVisibleHolder.
+    ^ filenameEntryFieldVisibleHolder
 !
 
 openAlwaysInTextEditor
-
     openAlwaysInTextEditor isNil ifTrue:[
         openAlwaysInTextEditor := true asValue.
-        openAlwaysInTextEditor onChangeSend:#evaluateModified to:self.
+        openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ openAlwaysInTextEditor.
+    ^ openAlwaysInTextEditor
 !
 
 openMultipleApplicationsForType
-
     openMultipleApplicationsForType isNil ifTrue:[
         openMultipleApplicationsForType := true asValue.
-        openMultipleApplicationsForType onChangeSend:#evaluateModified to:self.
+        openMultipleApplicationsForType onChangeSend:#updateModifiedChannel
+            to:self
     ].
-    ^ openMultipleApplicationsForType.
+    ^ openMultipleApplicationsForType
 !
 
 showDirectoryTree
-
     showDirectoryTree isNil ifTrue:[
         showDirectoryTree := true asValue.
-        showDirectoryTree onChangeSend:#evaluateModified to:self.
+        showDirectoryTree onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ showDirectoryTree.
+    ^ showDirectoryTree
 !
 
 showHiddenFiles
-
     showHiddenFiles isNil ifTrue:[
         showHiddenFiles := true asValue.
-        showHiddenFiles onChangeSend:#evaluateModified to:self.
+        showHiddenFiles onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ showHiddenFiles.
+    ^ showHiddenFiles
 !
 
 sortCaseless
-
     sortCaseless isNil ifTrue:[
         sortCaseless := true asValue.
-        sortCaseless onChangeSend:#evaluateModified to:self.
+        sortCaseless onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ sortCaseless.
+    ^ sortCaseless
 !
 
 sortDirectoriesBeforeFiles
-
     sortDirectoriesBeforeFiles isNil ifTrue:[
         sortDirectoriesBeforeFiles := true asValue.
-        sortDirectoriesBeforeFiles onChangeSend:#evaluateModified to:self.
+        sortDirectoriesBeforeFiles onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ sortDirectoriesBeforeFiles.
+    ^ sortDirectoriesBeforeFiles
 !
 
 toolBarVisibleHolder
-
     toolBarVisibleHolder isNil ifTrue:[
         toolBarVisibleHolder := true asValue.
-        toolBarVisibleHolder onChangeSend:#evaluateModified to:self.
+        toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ toolBarVisibleHolder.
+    ^ toolBarVisibleHolder
 !
 
 viewDescription
-
     viewDescription isNil ifTrue:[
         viewDescription := true asValue.
-        viewDescription onChangeSend:#evaluateModified to:self.
+        viewDescription onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewDescription.
+    ^ viewDescription
 !
 
 viewDetails
-
     viewDetails isNil ifTrue:[
         viewDetails := true asValue.
-        viewDetails onChangeSend:#evaluateModified to:self.
+        viewDetails onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewDetails.
+    ^ viewDetails
 !
 
 viewDirectoryDescription
-
     viewDirectoryDescription isNil ifTrue:[
         viewDirectoryDescription := true asValue.
-        viewDirectoryDescription onChangeSend:#evaluateModified to:self.
+        viewDirectoryDescription onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewDirectoryDescription.
+    ^ viewDirectoryDescription
 !
 
 viewDirsInContentsBrowser
-
     viewDirsInContentsBrowser isNil ifTrue:[
         viewDirsInContentsBrowser := true asValue.
-        viewDirsInContentsBrowser onChangeSend:#evaluateModified to:self.
+        viewDirsInContentsBrowser onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewDirsInContentsBrowser.
+    ^ viewDirsInContentsBrowser
 !
 
 viewFilesInDirectoryTree
-
     viewFilesInDirectoryTree isNil ifTrue:[
         viewFilesInDirectoryTree := true asValue.
-        viewFilesInDirectoryTree onChangeSend:#evaluateModified to:self.
+        viewFilesInDirectoryTree onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewFilesInDirectoryTree.
+    ^ viewFilesInDirectoryTree
 !
 
 viewGroup
-
     viewGroup isNil ifTrue:[
         viewGroup := true asValue.
-        viewGroup onChangeSend:#evaluateModified to:self.
+        viewGroup onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewGroup.
+    ^ viewGroup
 !
 
 viewOwner
-
     viewOwner isNil ifTrue:[
         viewOwner := true asValue.
-        viewOwner onChangeSend:#evaluateModified to:self.
+        viewOwner onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewOwner.
+    ^ viewOwner
 !
 
 viewPermissions
-
     viewPermissions isNil ifTrue:[
         viewPermissions := true asValue.
-        viewPermissions onChangeSend:#evaluateModified to:self.
+        viewPermissions onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewPermissions.
+    ^ viewPermissions
 !
 
 viewPreview
-
     viewPreview isNil ifTrue:[
         viewPreview := true asValue.
-        viewPreview onChangeSend:#evaluateModified to:self.
+        viewPreview onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewPreview.
+    ^ viewPreview
 !
 
 viewSize
-
     viewSize isNil ifTrue:[
         viewSize := true asValue.
-        viewSize onChangeSend:#evaluateModified to:self.
+        viewSize onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewSize.
+    ^ viewSize
 !
 
 viewSizeInBytes
-
     viewSizeInBytes isNil ifTrue:[
         viewSizeInBytes := false asValue.
-        viewSizeInBytes onChangeSend:#evaluateModified to:self.
+        viewSizeInBytes onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewSizeInBytes.
+    ^ viewSizeInBytes
 !
 
 viewTime
-
     viewTime isNil ifTrue:[
         viewTime := true asValue.
-        viewTime onChangeSend:#evaluateModified to:self.
+        viewTime onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewTime.
+    ^ viewTime
 !
 
 viewType
-
     viewType isNil ifTrue:[
         viewType := true asValue.
-        viewType onChangeSend:#evaluateModified to:self.
+        viewType onChangeSend:#updateModifiedChannel to:self
     ].
-    ^ viewType.
+    ^ viewType
 ! !
 
 !FileBrowserV2SettingsAppl methodsFor:'queries'!
@@ -568,5 +544,5 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.10 2003-07-09 11:50:00 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.11 2003-07-10 12:38:47 penk Exp $'
 ! !