class: FileBrowserV2SettingsAppl
added:
#flyByHelpSpec
#helpPairs
#helpSpec
comment/format in: #useCodeView2InTools
changed: #windowSpec
no longer support separate codeView2 settings per tool
--- a/FileBrowserV2SettingsAppl.st Tue Jun 25 12:42:29 2013 +0200
+++ b/FileBrowserV2SettingsAppl.st Tue Jun 25 15:50:19 2013 +0200
@@ -41,6 +41,29 @@
"
! !
+!FileBrowserV2SettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+ <resource: #help>
+
+ ^ super flyByHelpSpec addPairsFrom:(self helpPairs)
+!
+
+helpPairs
+ ^ #(
+
+#autoOpenDirectoryDescription
+'When changing directories, automatically show the contents of a README or .dirInfo file if present.'
+
+#openMultipleApplications
+'Show new selected files in a new tab, instead of changing the contents of an existing tab'
+
+#textEditorForAllTypes
+'Show all files as text, i.e. do not open specialized viewers as per mime type'
+
+)
+! !
+
!FileBrowserV2SettingsAppl class methodsFor:'icon'!
defaultIcon
@@ -279,38 +302,49 @@
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
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: center
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ elementsChangeSize: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Text Editor for all Types'
+ name: 'CheckBox25'
+ activeHelpKey: textEditorForAllTypes
+ model: openAlwaysInTextEditor
+ translateLabel: true
+ extent: (Point 435 20)
+ )
+ (CheckBoxSpec
+ label: 'Open Multiple Applications'
+ name: 'CheckBox9'
+ activeHelpKey: openMultipleApplications
+ model: openMultipleApplicationsForType
+ translateLabel: true
+ extent: (Point 435 20)
+ )
+ (CheckBoxSpec
+ label: 'Auto Open Directory Description (README)'
+ name: 'CheckBox10'
+ activeHelpKey: autoOpenDirectoryDescription
+ model: viewDirectoryDescription
+ translateLabel: true
+ extent: (Point 435 20)
+ )
+ )
+
+ )
)
)
)
- extent: (Point 469 134)
+ useDefaultExtent: true
)
)
@@ -454,6 +488,7 @@
!
useCodeView2InTools
+ "/ obsolete - will vanish
useCodeView2InTools isNil ifTrue:[
useCodeView2InTools := true asValue.
useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
@@ -601,10 +636,10 @@
!FileBrowserV2SettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.29 2013-02-22 09:15:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.30 2013-06-25 13:50:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.29 2013-02-22 09:15:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.30 2013-06-25 13:50:19 cg Exp $'
! !