--- a/FileBrowserV2SettingsAppl.st Sun Jan 29 12:56:58 2012 +0000
+++ b/FileBrowserV2SettingsAppl.st Sun Jan 29 15:33:37 2012 +0000
@@ -18,7 +18,8 @@
openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription
viewPreview viewTime viewSize viewSizeInBytes viewType
viewDetails viewPermissions viewGroup viewDirsInContentsBrowser
- viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes'
+ viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes
+ useCodeView2InTools'
classVariableNames:''
poolDictionaries:''
category:'Interface-Tools-File'
@@ -73,7 +74,7 @@
label: 'Settings'
name: 'Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 432 621)
+ bounds: (Rectangle 0 0 469 622)
)
component:
(SpecCollection
@@ -106,42 +107,42 @@
(CheckBoxSpec
label: 'Directory Tree'
name: 'CheckBox2'
- layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
+ layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
model: showDirectoryTree
translateLabel: true
)
(CheckBoxSpec
label: 'Regular Files in TreeView (Left)'
name: 'CheckBox3'
- layout: (LayoutFrame 20 0 57 0 0 1.0 77 0)
+ layout: (LayoutFrame 20 0 51 0 0 1.0 71 0)
model: viewFilesInDirectoryTree
translateLabel: true
)
(CheckBoxSpec
label: 'Directories in ContentsView (Right)'
name: 'CheckBox4'
- layout: (LayoutFrame 0 0.0 82 0 0 1.0 102 0)
+ layout: (LayoutFrame 0 0.0 73 0 0 1.0 93 0)
model: viewDirsInContentsBrowser
translateLabel: true
)
(CheckBoxSpec
label: 'Toolbar'
name: 'CheckBox11'
- layout: (LayoutFrame 0 0.0 107 0 0 1.0 127 0)
+ layout: (LayoutFrame 0 0.0 95 0 0 1.0 115 0)
model: toolBarVisibleHolder
translateLabel: true
)
(CheckBoxSpec
label: 'Path Entry && Filter'
name: 'CheckBox12'
- layout: (LayoutFrame 0 0.0 132 0 0 1.0 152 0)
+ layout: (LayoutFrame 0 0.0 117 0 0 1.0 137 0)
model: filenameEntryFieldVisibleHolder
translateLabel: true
)
)
)
- extent: (Point 432 184)
+ extent: (Point 469 168)
)
(FramedBoxSpec
label: 'Sort'
@@ -161,48 +162,14 @@
(CheckBoxSpec
label: 'Directories before Files'
name: 'CheckBox7'
- layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
+ layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
model: sortDirectoriesBeforeFiles
translateLabel: true
)
)
)
- extent: (Point 432 81)
- )
- (FramedBoxSpec
- label: 'Application Notebook'
- name: 'FramedBox3'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Text Editor for all Types'
- name: 'CheckBox8'
- layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)
- model: openAlwaysInTextEditor
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Open Multiple Applications'
- name: 'CheckBox9'
- layout: (LayoutFrame 0 0.0 32 0 0 1.0 52 0)
- model: openMultipleApplicationsForType
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Auto Open Directory Description (README)'
- name: 'CheckBox10'
- layout: (LayoutFrame 0 0.0 57 0 0 1.0 77 0)
- model: viewDirectoryDescription
- translateLabel: true
- )
- )
-
- )
- extent: (Point 432 111)
+ extent: (Point 469 78)
)
(FramedBoxSpec
label: 'Columns in Filelist'
@@ -222,7 +189,7 @@
(CheckBoxSpec
label: 'Suffix'
name: 'CheckBox13'
- layout: (LayoutFrame 20 0.0 32 0 170 0 52 0)
+ layout: (LayoutFrame 20 0.0 29 0 170 0 49 0)
enableChannel: viewDetails
model: viewType
translateLabel: true
@@ -230,7 +197,7 @@
(CheckBoxSpec
label: 'Permissions'
name: 'CheckBox21'
- layout: (LayoutFrame 170 0.0 32 0 -5 1 52 0)
+ layout: (LayoutFrame 170 0.0 29 0 -5 1 49 0)
enableChannel: viewDetails
model: viewPermissions
translateLabel: true
@@ -238,7 +205,7 @@
(CheckBoxSpec
label: 'Owner'
name: 'CheckBox14'
- layout: (LayoutFrame 20 0.0 57 0 170 0 77 0)
+ layout: (LayoutFrame 20 0.0 51 0 170 0 71 0)
enableChannel: viewDetails
model: viewOwner
translateLabel: true
@@ -246,7 +213,7 @@
(CheckBoxSpec
label: 'Group'
name: 'CheckBox18'
- layout: (LayoutFrame 170 0.0 57 0 -5 1 77 0)
+ layout: (LayoutFrame 170 0.0 51 0 -5 1 71 0)
enableChannel: viewDetails
model: viewGroup
translateLabel: true
@@ -254,7 +221,7 @@
(CheckBoxSpec
label: 'Size'
name: 'CheckBox15'
- layout: (LayoutFrame 20 0.0 82 0 170 0 102 0)
+ layout: (LayoutFrame 20 0.0 73 0 170 0 93 0)
enableChannel: viewDetails
model: viewSize
translateLabel: true
@@ -262,7 +229,7 @@
(CheckBoxSpec
label: 'Date && Time'
name: 'CheckBox19'
- layout: (LayoutFrame 170 0.0 82 0 -5 1 102 0)
+ layout: (LayoutFrame 170 0.0 73 0 -5 1 93 0)
enableChannel: viewDetails
model: viewTime
translateLabel: true
@@ -270,7 +237,7 @@
(CheckBoxSpec
label: 'Size (Byte)'
name: 'CheckBox16'
- layout: (LayoutFrame 20 0.0 107 0 170 0 127 0)
+ layout: (LayoutFrame 20 0.0 95 0 170 0 115 0)
enableChannel: viewDetails
model: viewSizeInBytes
translateLabel: true
@@ -278,7 +245,7 @@
(CheckBoxSpec
label: 'Size (KByte)'
name: 'CheckBox20'
- layout: (LayoutFrame 170 0.0 107 0 -5 1 127 0)
+ layout: (LayoutFrame 170 0.0 95 0 -5 1 115 0)
enableChannel: viewDetails
model: viewSizeInKiloBytes
translateLabel: true
@@ -286,7 +253,7 @@
(CheckBoxSpec
label: 'File Info'
name: 'CheckBox23'
- layout: (LayoutFrame 20 0.0 132 0 170 0 152 0)
+ layout: (LayoutFrame 20 0.0 117 0 170 0 137 0)
enableChannel: viewDetails
model: viewDescription
translateLabel: true
@@ -294,7 +261,7 @@
(CheckBoxSpec
label: 'Preview'
name: 'CheckBox24'
- layout: (LayoutFrame 170 0.0 132 0 -5 1 152 0)
+ layout: (LayoutFrame 170 0.0 117 0 -5 1 137 0)
enableChannel: viewDetails
model: viewPreview
translateLabel: true
@@ -302,7 +269,48 @@
)
)
- extent: (Point 432 183)
+ extent: (Point 469 168)
+ )
+ (FramedBoxSpec
+ label: 'Application Notebook'
+ name: 'FramedBox3'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Use the New CodeView (Affects all New Opened Tools)'
+ name: 'CheckBox8'
+ layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)
+ model: useCodeView2InTools
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Text Editor for all Types'
+ name: 'CheckBox25'
+ layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
+ model: openAlwaysInTextEditor
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Open Multiple Applications'
+ name: 'CheckBox9'
+ layout: (LayoutFrame 0 0.0 51 0 0 1.0 71 0)
+ model: openMultipleApplicationsForType
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Auto Open Directory Description (README)'
+ name: 'CheckBox10'
+ layout: (LayoutFrame 0 0.0 73 0 0 1.0 93 0)
+ model: viewDirectoryDescription
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 469 128)
)
)
@@ -445,6 +453,16 @@
^ toolBarVisibleHolder
!
+useCodeView2InTools
+ useCodeView2InTools isNil ifTrue:[
+ useCodeView2InTools := true asValue.
+ useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ useCodeView2InTools
+
+ "Created: / 06-10-2011 / 11:30:42 / cg"
+!
+
viewDescription
viewDescription isNil ifTrue:[
viewDescription := false asValue.
@@ -563,11 +581,10 @@
|aspectList receiver|
- receiver := (settingsDialog notNil and:[settingsDialog isKindOf:AbstractFileBrowser]) ifTrue:[
- settingsDialog
- ] ifFalse:[
- currentUserPrefs
- ].
+ receiver := (settingsDialog notNil
+ and:[settingsDialog isKindOf:AbstractFileBrowser])
+ ifTrue:[ settingsDialog ]
+ ifFalse:[ currentUserPrefs ].
aspectList := AbstractFileBrowser userPreferencesAspectList.
aspectList keysDo:[:anAspect |
@@ -578,14 +595,15 @@
^ false
"Modified: / 03-04-2007 / 08:45:27 / cg"
+ "Modified (format): / 25-11-2011 / 15:24:25 / cg"
! !
!FileBrowserV2SettingsAppl class methodsFor:'documentation'!
version
- ^ '$Id: FileBrowserV2SettingsAppl.st 7810 2011-08-12 14:54:02Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.28 2011/11/25 14:25:40 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.25 2011/03/24 14:34:11 stefan Exp §'
-! !
\ No newline at end of file
+ ^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.28 2011/11/25 14:25:40 cg Exp §'
+! !