--- a/FileBrowser.st	Fri Feb 13 11:56:36 2015 +0100
+++ b/FileBrowser.st	Fri Feb 13 11:56:54 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 StandardSystemView subclass:#FileBrowser
 	instanceVariableNames:'menuPanel labelView filterField fileListView subView
 		currentDirectory fileList checkBlock checkDelta timeOfLastCheck
@@ -3394,8 +3396,8 @@
         ]
     ].
 
-    name1 := orgName1 asValue.
-    name2 := '' asValue.
+    name1 := ValueHolder with:orgName1.
+    name2 := ValueHolder with:''.
 
     box := DialogBox new.
     lbl := hardOrSoftSymbol == #soft 
@@ -3545,8 +3547,8 @@
                 orgName1 := f name
             ]
         ].
-        name1 := orgName1 asValue.
-        name2 := self getSelectedFileName asValue.
+        name1 := ValueHolder with:orgName1.
+        name2 := ValueHolder with:self getSelectedFileName.
     ].
 
     here := currentDirectory pathName.
@@ -3966,32 +3968,32 @@
     "
      showing long or short by default
     "
-    showingDetails := false asValue.
+    showingDetails := ValueHolder with:false.
     showingDetails onChangeSend:#detailsSettingChanged to:self.
 
     "
      show hidden files or not ?
     "
     "/ showDotFiles := resources at:'SHOW_DOT_FILES' default:false.
-    showingHiddenFiles := false asValue.
+    showingHiddenFiles := ValueHolder with:false.
     showingHiddenFiles onChangeSend:#updateCurrentDirectory to:self.
 
     "
      showing small icons by default
     "
-    showingBigImagePreview := false asValue.
+    showingBigImagePreview := ValueHolder with:false.
     showingBigImagePreview onChangeSend:#bigImagePreviewSettingChanged to:self.
 
-    showingTimeAndDate := false asValue.
+    showingTimeAndDate := ValueHolder with:false.
     showingTimeAndDate onChangeSend:#updateCurrentDirectory to:self.
 
-    sortByWhat := #name asValue.
+    sortByWhat := ValueHolder with:#name.
     sortByWhat onChangeSend:#sortChanged to:self.
 
-    sortCaseless := (Filename isCaseSensitive not) asValue.
+    sortCaseless := ValueHolder with:(Filename isCaseSensitive not).
     sortCaseless onChangeSend:#updateCurrentDirectory to:self.
 
-    dosEOLMode := false asValue.
+    dosEOLMode := ValueHolder with:false.
 
     lockUpdate := false.
 
@@ -4042,11 +4044,11 @@
     "
     checkBlock := [self pushEvent:#checkIfDirectoryHasChanged].
     checkDelta := resources at:'FILEBROWSER_UPDATE_CHECK_DELTA' default:10.
-    doAutoUpdate := true asValue.
+    doAutoUpdate := ValueHolder with:true.
 
     currentDirectory := Filename currentDirectory.
 
-    filterModel := '*' asValue.
+    filterModel := ValueHolder with:'*'.
     filterField := EditField in:labelFrame.
     filterField 
         origin:[((width // 4 * 3) + halfSpacing) @ (halfSpacing)]
@@ -7531,10 +7533,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.666 2014-12-14 13:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.667 2015-02-13 10:56:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.666 2014-12-14 13:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.667 2015-02-13 10:56:54 cg Exp $'
 ! !