diff -r a251b39fb4a2 -r 29a4d15d9f69 FileBrowserV2SettingsAppl.st
--- a/FileBrowserV2SettingsAppl.st	Thu Jun 12 14:17:27 2003 +0200
+++ b/FileBrowserV2SettingsAppl.st	Thu Jun 12 14:17:44 2003 +0200
@@ -1,13 +1,13 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSettingsApplication subclass:#FileBrowserV2SettingsAppl
-	instanceVariableNames:'viewFilesInDirectoryTree viewDescription
-		sortDirectoriesBeforeFiles showDirectoryTree viewSize viewType
-		viewPermissions viewGroup viewDirsInContentsBrowser viewDetails
-		sortCaseless showHiddenFiles openMultipleApplicationsForType
-		viewOwner toolBarVisibleHolder viewDirectoryDescription
-		openAlwaysInTextEditor viewPreview viewTime
-		filenameEntryFieldVisibleHolder'
+	instanceVariableNames:'sortDirectoriesBeforeFiles showDirectoryTree sortCaseless
+		showHiddenFiles openMultipleApplicationsForType
+		toolBarVisibleHolder viewDirectoryDescription
+		openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription
+		viewPreview viewTime viewSize viewSizeInBytes viewType
+		viewDetails viewPermissions viewGroup viewDirsInContentsBrowser
+		viewOwner filenameEntryFieldVisibleHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools-File'
@@ -47,7 +47,7 @@
           #name: 'Settings'
           #min: #(#Point 10 10)
           #max: #(#Point 1024 768)
-          #bounds: #(#Rectangle 16 42 450 567)
+          #bounds: #(#Rectangle 16 46 450 587)
         )
         #component: 
        #(#SpecCollection
@@ -56,7 +56,7 @@
               #name: 'VerticalPanel1'
               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
               #horizontalLayout: #fit
-              #verticalLayout: #center
+              #verticalLayout: #top
               #horizontalSpace: 3
               #verticalSpace: 3
               #component: 
@@ -188,7 +188,7 @@
                           #extent: #(#Point 434 100)
                         )
                        #(#FramedBoxSpec
-                          #label: 'Show Columns in Contents Browser'
+                          #label: 'Columns in Contents Browser'
                           #name: 'FramedBox4'
                           #labelPosition: #topLeft
                           #translateLabel: true
@@ -251,11 +251,11 @@
                                 #translateLabel: true
                               )
                              #(#CheckBoxSpec
-                                #label: 'File Info'
+                                #label: 'Size in Bytes'
                                 #name: 'CheckBox16'
                                 #layout: #(#LayoutFrame 20 0.0 100 0 170 0 120 0)
                                 #enableChannel: #viewDetails
-                                #model: #viewDescription
+                                #model: #viewSizeInBytes
                                 #translateLabel: true
                               )
                              #(#CheckBoxSpec
@@ -266,10 +266,18 @@
                                 #model: #viewPreview
                                 #translateLabel: true
                               )
+                             #(#CheckBoxSpec
+                                #label: 'File Info'
+                                #name: 'CheckBox23'
+                                #layout: #(#LayoutFrame 20 0.0 125 0 170 0 145 0)
+                                #enableChannel: #viewDetails
+                                #model: #viewDescription
+                                #translateLabel: true
+                              )
                              )
                            
                           )
-                          #extent: #(#Point 434 150)
+                          #extent: #(#Point 434 171)
                         )
                        )
                      
@@ -508,6 +516,15 @@
     ^ viewSize.
 !
 
+viewSizeInBytes
+
+    viewSizeInBytes isNil ifTrue:[
+        viewSizeInBytes := false asValue.
+        viewSizeInBytes onChangeSend:#evaluateModified to:self.
+    ].
+    ^ viewSizeInBytes.
+!
+
 viewTime
 
     viewTime isNil ifTrue:[
@@ -551,5 +568,5 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.8 2003-06-03 10:37:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.9 2003-06-12 12:17:44 cg Exp $'
 ! !