"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

AbstractSettingsApplication subclass:#FileBrowserV2SettingsAppl

	instanceVariableNames:'sortDirectoriesBeforeFiles showDirectoryTree sortCaseless

		showHiddenFiles openMultipleApplicationsForType

		toolBarVisibleHolder viewDirectoryDescription

		openAlwaysInTextEditor viewFilesInDirectoryTree viewDescription

		viewPreview viewTime viewSize viewSizeInBytes viewType

		viewDetails viewPermissions viewGroup viewDirsInContentsBrowser

		viewOwner filenameEntryFieldVisibleHolder viewSizeInKiloBytes

		useCodeView2InTools'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2SettingsAppl class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!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

    <resource: #programImage>

    ^ FileBrowserV2 applicationIcon

! !

!FileBrowserV2SettingsAppl class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:FileBrowserV2SettingsAppl andSelector:#windowSpec

     FileBrowserV2SettingsAppl new openInterface:#windowSpec

     FileBrowserV2SettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Settings'

          name: 'Settings'

          min: (Point 10 10)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VerticalPanel2'

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (FramedBoxSpec

                    label: 'Show'

                    name: 'FramedBox1'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (CheckBoxSpec

                          label: 'Hidden Files'

                          name: 'CheckBox1'

                          layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)

                          model: showHiddenFiles

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Directory Tree'

                          name: 'CheckBox2'

                          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 51 0 0 1.0 71 0)

                          model: viewFilesInDirectoryTree

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Directories in ContentsView (Right)'

                          name: 'CheckBox4'

                          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 95 0 0 1.0 115 0)

                          model: toolBarVisibleHolder

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Path Entry && Filter'

                          name: 'CheckBox12'

                          layout: (LayoutFrame 0 0.0 117 0 0 1.0 137 0)

                          model: filenameEntryFieldVisibleHolder

                          translateLabel: true

                        )

                       )

                    )

                  )

                 (FramedBoxSpec

                    label: 'Sort'

                    name: 'FramedBox2'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (CheckBoxSpec

                          label: 'Ignore Case'

                          name: 'CheckBox6'

                          layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)

                          model: sortCaseless

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Directories before Files'

                          name: 'CheckBox7'

                          layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)

                          model: sortDirectoriesBeforeFiles

                          translateLabel: true

                        )

                       )

                    )

                  )

                 (FramedBoxSpec

                    label: 'Columns in Filelist'

                    name: 'FramedBox4'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (CheckBoxSpec

                          label: 'Details'

                          name: 'CheckBox22'

                          layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)

                          model: viewDetails

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Suffix'

                          name: 'CheckBox13'

                          layout: (LayoutFrame 20 0.0 29 0 170 0 49 0)

                          enableChannel: viewDetails

                          model: viewType

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Permissions'

                          name: 'CheckBox21'

                          layout: (LayoutFrame 170 0.0 29 0 -5 1 49 0)

                          enableChannel: viewDetails

                          model: viewPermissions

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Owner'

                          name: 'CheckBox14'

                          layout: (LayoutFrame 20 0.0 51 0 170 0 71 0)

                          enableChannel: viewDetails

                          model: viewOwner

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Group'

                          name: 'CheckBox18'

                          layout: (LayoutFrame 170 0.0 51 0 -5 1 71 0)

                          enableChannel: viewDetails

                          model: viewGroup

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Size'

                          name: 'CheckBox15'

                          layout: (LayoutFrame 20 0.0 73 0 170 0 93 0)

                          enableChannel: viewDetails

                          model: viewSize

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Date && Time'

                          name: 'CheckBox19'

                          layout: (LayoutFrame 170 0.0 73 0 -5 1 93 0)

                          enableChannel: viewDetails

                          model: viewTime

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Size (Byte)'

                          name: 'CheckBox16'

                          layout: (LayoutFrame 20 0.0 95 0 170 0 115 0)

                          enableChannel: viewDetails

                          model: viewSizeInBytes

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Size (KByte)'

                          name: 'CheckBox20'

                          layout: (LayoutFrame 170 0.0 95 0 -5 1 115 0)

                          enableChannel: viewDetails

                          model: viewSizeInKiloBytes

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'File Info'

                          name: 'CheckBox23'

                          layout: (LayoutFrame 20 0.0 117 0 170 0 137 0)

                          enableChannel: viewDetails

                          model: viewDescription

                          translateLabel: true

                        )

                       (CheckBoxSpec

                          label: 'Preview'

                          name: 'CheckBox24'

                          layout: (LayoutFrame 170 0.0 117 0 -5 1 137 0)

                          enableChannel: viewDetails

                          model: viewPreview

                          translateLabel: true

                        )

                       )

                    )

                  )

                 (FramedBoxSpec

                    label: 'Application Notebook'

                    name: 'FramedBox3'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (VerticalPanelViewSpec

                          name: 'VerticalPanel3'

                          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)

                              )

                             )

                          )

                        )

                       )

                    )

                  )

                 )

              )

            )

           )

        )

      )

! !

!FileBrowserV2SettingsAppl class methodsFor:'resources'!

classResources

    ^ FileBrowserV2 classResources

! !

!FileBrowserV2SettingsAppl methodsFor:'accessing'!

requestor

    "return the value of the instance variable 'requestor' (automatically generated)"

    | masterApplication |

    masterApplication := self masterApplication.

    masterApplication notNil ifTrue:[

        ^ masterApplication requestor.

    ].

    ^ nil

! !

!FileBrowserV2SettingsAppl methodsFor:'actions'!

basicSaveSettings

    |aspectList writeToCurrentFileBrowser|

    aspectList := AbstractFileBrowser userPreferencesAspectList.

    writeToCurrentFileBrowser := (settingsDialog notNil and:[settingsDialog isKindOf:AbstractFileBrowser]).

    aspectList keysDo:[ :anAspect | |value|

        value := (self perform:anAspect) value.

        (currentUserPrefs perform:((anAspect asString, ':') asSymbol) with:value).

        writeToCurrentFileBrowser ifTrue:[

            (settingsDialog perform:anAspect) value:value.

        ].

    ].

    "Modified: / 15-10-2010 / 10:29:28 / cg"

!

helpFilename

    ^ 'FileBrowserV2/settings.html'

!

readSettings

    |receiver aspectList|

    receiver := (settingsDialog notNil and:[settingsDialog isKindOf:AbstractFileBrowser]) ifTrue:[

                settingsDialog

            ] ifFalse:[

                currentUserPrefs

            ].

    aspectList := AbstractFileBrowser userPreferencesAspectList.

    aspectList keysDo:[:anAspect |

        |value|

        value := (receiver perform:anAspect) value.

        (self perform:anAspect) value:value

    ].

    self modifiedChannel value:false

    "Modified: / 03-04-2007 / 08:45:12 / cg"

! !

!FileBrowserV2SettingsAppl methodsFor:'aspects'!

filenameEntryFieldVisibleHolder

    filenameEntryFieldVisibleHolder isNil ifTrue:[

        filenameEntryFieldVisibleHolder := true asValue.

        filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel

            to:self

    ].

    ^ filenameEntryFieldVisibleHolder

!

openAlwaysInTextEditor

    openAlwaysInTextEditor isNil ifTrue:[

        openAlwaysInTextEditor := true asValue.

        openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self

    ].

    ^ openAlwaysInTextEditor

!

openMultipleApplicationsForType

    openMultipleApplicationsForType isNil ifTrue:[

        openMultipleApplicationsForType := true asValue.

        openMultipleApplicationsForType onChangeSend:#updateModifiedChannel

            to:self

    ].

    ^ openMultipleApplicationsForType

!

showDirectoryTree

    showDirectoryTree isNil ifTrue:[

        showDirectoryTree := true asValue.

        showDirectoryTree onChangeSend:#updateModifiedChannel to:self

    ].

    ^ showDirectoryTree

!

showHiddenFiles

    showHiddenFiles isNil ifTrue:[

        showHiddenFiles := true asValue.

        showHiddenFiles onChangeSend:#updateModifiedChannel to:self

    ].

    ^ showHiddenFiles

    "Modified: / 15-10-2010 / 10:28:07 / cg"

!

sortCaseless

    sortCaseless isNil ifTrue:[

        sortCaseless := true asValue.

        sortCaseless onChangeSend:#updateModifiedChannel to:self

    ].

    ^ sortCaseless

!

sortDirectoriesBeforeFiles

    sortDirectoriesBeforeFiles isNil ifTrue:[

        sortDirectoriesBeforeFiles := true asValue.

        sortDirectoriesBeforeFiles onChangeSend:#updateModifiedChannel to:self

    ].

    ^ sortDirectoriesBeforeFiles

!

toolBarVisibleHolder

    toolBarVisibleHolder isNil ifTrue:[

        toolBarVisibleHolder := true asValue.

        toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self

    ].

    ^ toolBarVisibleHolder

!

useCodeView2InTools

    "/ obsolete - will vanish

    useCodeView2InTools isNil ifTrue:[

        useCodeView2InTools := true asValue.

        useCodeView2InTools onChangeSend:#updateModifiedChannel to:self

    ].