--- a/FileBrowserV2SettingsAppl.st	Fri Feb 13 11:54:10 2015 +0100
+++ b/FileBrowserV2SettingsAppl.st	Fri Feb 13 11:56:36 2015 +0100
@@ -442,7 +442,7 @@
 
 alwaysUseSmalltalkTools
     alwaysUseSmalltalkTools isNil ifTrue:[
-        alwaysUseSmalltalkTools := true asValue.
+        alwaysUseSmalltalkTools := ValueHolder with:true.
         alwaysUseSmalltalkTools onChangeSend:#updateModifiedChannel to:self
     ].
     ^ alwaysUseSmalltalkTools
@@ -450,7 +450,7 @@
 
 filenameEntryFieldVisibleHolder
     filenameEntryFieldVisibleHolder isNil ifTrue:[
-        filenameEntryFieldVisibleHolder := true asValue.
+        filenameEntryFieldVisibleHolder := ValueHolder with:true.
         filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel
             to:self
     ].
@@ -459,7 +459,7 @@
 
 openAlwaysInTextEditor
     openAlwaysInTextEditor isNil ifTrue:[
-        openAlwaysInTextEditor := true asValue.
+        openAlwaysInTextEditor := ValueHolder with:true.
         openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self
     ].
     ^ openAlwaysInTextEditor
@@ -467,7 +467,7 @@
 
 openMultipleApplicationsForType
     openMultipleApplicationsForType isNil ifTrue:[
-        openMultipleApplicationsForType := true asValue.
+        openMultipleApplicationsForType := ValueHolder with:true.
         openMultipleApplicationsForType onChangeSend:#updateModifiedChannel
             to:self
     ].
@@ -476,7 +476,7 @@
 
 showDirectoriesOnTop
     showDirectoriesOnTop isNil ifTrue:[
-        showDirectoriesOnTop := true asValue.
+        showDirectoriesOnTop := ValueHolder with:true.
         showDirectoriesOnTop onChangeSend:#updateModifiedChannel to:self
     ].
     ^ showDirectoriesOnTop
@@ -486,7 +486,7 @@
 
 showDirectoryTree
     showDirectoryTree isNil ifTrue:[
-        showDirectoryTree := true asValue.
+        showDirectoryTree := ValueHolder with:true.
         showDirectoryTree onChangeSend:#updateModifiedChannel to:self
     ].
     ^ showDirectoryTree
@@ -494,7 +494,7 @@
 
 showHiddenFiles
     showHiddenFiles isNil ifTrue:[
-        showHiddenFiles := true asValue.
+        showHiddenFiles := ValueHolder with:true.
         showHiddenFiles onChangeSend:#updateModifiedChannel to:self
     ].
     ^ showHiddenFiles
@@ -504,7 +504,7 @@
 
 sortCaseless
     sortCaseless isNil ifTrue:[
-        sortCaseless := true asValue.
+        sortCaseless := ValueHolder with:true.
         sortCaseless onChangeSend:#updateModifiedChannel to:self
     ].
     ^ sortCaseless
@@ -512,7 +512,7 @@
 
 sortDirectoriesBeforeFiles
     sortDirectoriesBeforeFiles isNil ifTrue:[
-        sortDirectoriesBeforeFiles := true asValue.
+        sortDirectoriesBeforeFiles := ValueHolder with:true.
         sortDirectoriesBeforeFiles onChangeSend:#updateModifiedChannel to:self
     ].
     ^ sortDirectoriesBeforeFiles
@@ -520,7 +520,7 @@
 
 toolBarVisibleHolder
     toolBarVisibleHolder isNil ifTrue:[
-        toolBarVisibleHolder := true asValue.
+        toolBarVisibleHolder := ValueHolder with:true.
         toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self
     ].
     ^ toolBarVisibleHolder
@@ -529,7 +529,7 @@
 useCodeView2InTools
     "/ obsolete - will vanish
     useCodeView2InTools isNil ifTrue:[
-        useCodeView2InTools := true asValue.
+        useCodeView2InTools := ValueHolder with:true.
         useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
     ].
     ^ useCodeView2InTools
@@ -539,7 +539,7 @@
 
 viewDescription
     viewDescription isNil ifTrue:[
-        viewDescription := false asValue.
+        viewDescription := ValueHolder with:false.
         viewDescription onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewDescription
@@ -547,7 +547,7 @@
 
 viewDetails
     viewDetails isNil ifTrue:[
-        viewDetails := true asValue.
+        viewDetails := ValueHolder with:true.
         viewDetails onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewDetails
@@ -555,7 +555,7 @@
 
 viewDirectoryDescription
     viewDirectoryDescription isNil ifTrue:[
-        viewDirectoryDescription := true asValue.
+        viewDirectoryDescription := ValueHolder with:true.
         viewDirectoryDescription onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewDirectoryDescription
@@ -563,7 +563,7 @@
 
 viewDirsInContentsBrowser
     viewDirsInContentsBrowser isNil ifTrue:[
-        viewDirsInContentsBrowser := true asValue.
+        viewDirsInContentsBrowser := ValueHolder with:true.
         viewDirsInContentsBrowser onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewDirsInContentsBrowser
@@ -571,7 +571,7 @@
 
 viewFilesInDirectoryTree
     viewFilesInDirectoryTree isNil ifTrue:[
-        viewFilesInDirectoryTree := true asValue.
+        viewFilesInDirectoryTree := ValueHolder with:true.
         viewFilesInDirectoryTree onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewFilesInDirectoryTree
@@ -579,7 +579,7 @@
 
 viewGroup
     viewGroup isNil ifTrue:[
-        viewGroup := true asValue.
+        viewGroup := ValueHolder with:true.
         viewGroup onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewGroup
@@ -587,7 +587,7 @@
 
 viewOwner
     viewOwner isNil ifTrue:[
-        viewOwner := true asValue.
+        viewOwner := ValueHolder with:true.
         viewOwner onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewOwner
@@ -595,7 +595,7 @@
 
 viewPermissions
     viewPermissions isNil ifTrue:[
-        viewPermissions := true asValue.
+        viewPermissions := ValueHolder with:true.
         viewPermissions onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewPermissions
@@ -603,7 +603,7 @@
 
 viewPreview
     viewPreview isNil ifTrue:[
-        viewPreview := true asValue.
+        viewPreview := ValueHolder with:true.
         viewPreview onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewPreview
@@ -611,7 +611,7 @@
 
 viewSize
     viewSize isNil ifTrue:[
-        viewSize := true asValue.
+        viewSize := ValueHolder with:true.
         viewSize onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewSize
@@ -619,7 +619,7 @@
 
 viewSizeInBytes
     viewSizeInBytes isNil ifTrue:[
-        viewSizeInBytes := false asValue.
+        viewSizeInBytes := ValueHolder with:false.
         viewSizeInBytes onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewSizeInBytes
@@ -627,7 +627,7 @@
 
 viewSizeInKiloBytes
     viewSizeInKiloBytes isNil ifTrue:[
-        viewSizeInKiloBytes := false asValue.
+        viewSizeInKiloBytes := ValueHolder with:false.
         viewSizeInKiloBytes onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewSizeInKiloBytes
@@ -635,7 +635,7 @@
 
 viewTime
     viewTime isNil ifTrue:[
-        viewTime := true asValue.
+        viewTime := ValueHolder with:true.
         viewTime onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewTime
@@ -643,7 +643,7 @@
 
 viewType
     viewType isNil ifTrue:[
-        viewType := true asValue.
+        viewType := ValueHolder with:true.
         viewType onChangeSend:#updateModifiedChannel to:self
     ].
     ^ viewType
@@ -675,10 +675,10 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.37 2015-01-27 12:36:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.38 2015-02-13 10:56:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.37 2015-01-27 12:36:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.38 2015-02-13 10:56:36 cg Exp $'
 ! !