--- a/FileBrowserV2SettingsAppl.st	Thu Nov 13 13:56:53 2003 +0100
+++ b/FileBrowserV2SettingsAppl.st	Thu Nov 13 15:42:43 2003 +0100
@@ -19,7 +19,7 @@
 		openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription
 		viewPreview viewTime viewSize viewSizeInBytes viewType
 		viewDetails viewPermissions viewGroup viewDirsInContentsBrowser
-		viewOwner filenameEntryFieldVisibleHolder'
+		viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools-File'
@@ -73,7 +73,7 @@
           label: 'Settings'
           name: 'Settings'
           min: (Point 10 10)
-          bounds: (Rectangle 14 46 448 587)
+          bounds: (Rectangle 16 42 450 583)
         )
         component: 
        (SpecCollection
@@ -285,11 +285,11 @@
                                 translateLabel: true
                               )
                              (CheckBoxSpec
-                                label: 'Preview'
+                                label: 'Size in KBytes'
                                 name: 'CheckBox20'
                                 layout: (LayoutFrame 170 0.0 100 0 -5 1 120 0)
                                 enableChannel: viewDetails
-                                model: viewPreview
+                                model: viewSizeInKiloBytes
                                 translateLabel: true
                               )
                              (CheckBoxSpec
@@ -300,6 +300,14 @@
                                 model: viewDescription
                                 translateLabel: true
                               )
+                             (CheckBoxSpec
+                                label: 'Preview'
+                                name: 'CheckBox24'
+                                layout: (LayoutFrame 170 0.0 125 0 -5 1 145 0)
+                                enableChannel: viewDetails
+                                model: viewPreview
+                                translateLabel: true
+                              )
                              )
                            
                           )
@@ -527,6 +535,14 @@
     ^ viewSizeInBytes
 !
 
+viewSizeInKiloBytes
+    viewSizeInKiloBytes isNil ifTrue:[
+        viewSizeInKiloBytes := false asValue.
+        viewSizeInKiloBytes onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ viewSizeInKiloBytes
+!
+
 viewTime
     viewTime isNil ifTrue:[
         viewTime := true asValue.
@@ -568,5 +584,5 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.15 2003-10-28 12:42:07 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.16 2003-11-13 14:42:43 penk Exp $'
 ! !