--- 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 $'
! !