--- a/FileBrowserV2SettingsAppl.st Mon Jul 01 12:31:33 2013 +0100
+++ b/FileBrowserV2SettingsAppl.st Mon Jul 01 22:15:23 2013 +0100
@@ -41,6 +41,28 @@
"
! !
+!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'!
@@ -50,7 +72,6 @@
^ FileBrowserV2 applicationIcon
! !
-
!FileBrowserV2SettingsAppl class methodsFor:'interface specs'!
windowSpec
@@ -76,14 +97,14 @@
label: 'Settings'
name: 'Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 469 622)
+ bounds: (Rectangle 0 0 620 559)
)
component:
(SpecCollection
collection: (
(VerticalPanelViewSpec
name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0 0 0 0 1 591 0)
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
horizontalLayout: fit
verticalLayout: top
horizontalSpace: 3
@@ -144,7 +165,7 @@
)
)
- extent: (Point 469 175)
+ extent: (Point 620 175)
)
(FramedBoxSpec
label: 'Sort'
@@ -171,7 +192,7 @@
)
)
- extent: (Point 469 87)
+ extent: (Point 620 87)
)
(FramedBoxSpec
label: 'Columns in Filelist'
@@ -271,7 +292,7 @@
)
)
- extent: (Point 469 174)
+ extent: (Point 620 174)
)
(FramedBoxSpec
label: 'Application Notebook'
@@ -281,38 +302,48 @@
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 5 0 0 1 0 1)
+ horizontalLayout: left
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ 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)
+ extent: (Point 620 108)
)
)
@@ -324,14 +355,12 @@
)
! !
-
!FileBrowserV2SettingsAppl class methodsFor:'resources'!
classResources
^ FileBrowserV2 classResources
! !
-
!FileBrowserV2SettingsAppl methodsFor:'accessing'!
requestor
@@ -345,7 +374,6 @@
^ nil
! !
-
!FileBrowserV2SettingsAppl methodsFor:'actions'!
basicSaveSettings
@@ -388,7 +416,6 @@
"Modified: / 03-04-2007 / 08:45:12 / cg"
! !
-
!FileBrowserV2SettingsAppl methodsFor:'aspects'!
filenameEntryFieldVisibleHolder
@@ -460,6 +487,7 @@
!
useCodeView2InTools
+ "/ obsolete - will vanish
useCodeView2InTools isNil ifTrue:[
useCodeView2InTools := true asValue.
useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
@@ -581,7 +609,6 @@
^ viewType
! !
-
!FileBrowserV2SettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -605,15 +632,14 @@
"Modified (format): / 25-11-2011 / 15:24:25 / cg"
! !
-
!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.31 2013-06-25 14:04:25 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.31 2013-06-25 14:04:25 cg Exp $'
!
version_HG