"

 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

	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:'icon'!

defaultIcon

    ^ 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: 'VerticalPanel1'

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

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (VerticalPanelViewSpec

                    name: 'VerticalPanel2'

                    horizontalLayout: fit

                    verticalLayout: center

                    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 0 0 0 1.0 20 0)

                                model: showHiddenFiles

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Directory Tree'

                                name: 'CheckBox2'

                                layout: (LayoutFrame 0 0.0 25 0 0 1.0 45 0)

                                model: showDirectoryTree

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Regular Files in TreeView (Left)'

                                name: 'CheckBox3'

                                layout: (LayoutFrame 20 0 50 0 0 1.0 70 0)

                                model: viewFilesInDirectoryTree

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Directories in ContentsView (Right)'

                                name: 'CheckBox4'

                                layout: (LayoutFrame 0 0.0 75 0 0 1.0 95 0)

                                model: viewDirsInContentsBrowser

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Toolbar'

                                name: 'CheckBox11'

                                layout: (LayoutFrame 0 0.0 100 0 0 1.0 120 0)

                                model: toolBarVisibleHolder

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Path Entry && Filter'

                                name: 'CheckBox12'

                                layout: (LayoutFrame 0 0.0 125 0 0 1.0 145 0)

                                model: filenameEntryFieldVisibleHolder

                                translateLabel: true

                              )

                             )

                          )

                          extent: (Point 434 175)

                        )

                       (FramedBoxSpec

                          label: 'Sort'

                          name: 'FramedBox2'

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (CheckBoxSpec

                                label: 'Ignore Case'

                                name: 'CheckBox6'

                                layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                                model: sortCaseless

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Directories before Files'

                                name: 'CheckBox7'

                                layout: (LayoutFrame 0 0.0 25 0 0 1.0 45 0)

                                model: sortDirectoriesBeforeFiles

                                translateLabel: true

                              )

                             )

                          )

                          extent: (Point 434 75)

                        )

                       (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 0 0 0 1.0 20 0)

                                model: openAlwaysInTextEditor

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Open Multiple Applications'

                                name: 'CheckBox9'

                                layout: (LayoutFrame 0 0.0 25 0 0 1.0 45 0)

                                model: openMultipleApplicationsForType

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Auto Open Directory Description'

                                name: 'CheckBox10'

                                layout: (LayoutFrame 0 0.0 50 0 0 1.0 70 0)

                                model: viewDirectoryDescription

                                translateLabel: true

                              )

                             )

                          )

                          extent: (Point 434 100)

                        )

                       (FramedBoxSpec

                          label: 'Columns in Contents Browser'

                          name: 'FramedBox4'

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (CheckBoxSpec

                                label: 'Details'

                                name: 'CheckBox22'

                                layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                                model: viewDetails

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Suffix'

                                name: 'CheckBox13'

                                layout: (LayoutFrame 20 0.0 25 0 170 0 45 0)

                                enableChannel: viewDetails

                                model: viewType

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Permissions'

                                name: 'CheckBox21'

                                layout: (LayoutFrame 170 0.0 25 0 -5 1 45 0)

                                enableChannel: viewDetails

                                model: viewPermissions

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Owner'

                                name: 'CheckBox14'

                                layout: (LayoutFrame 20 0.0 50 0 170 0 70 0)

                                enableChannel: viewDetails

                                model: viewOwner

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Group'

                                name: 'CheckBox18'

                                layout: (LayoutFrame 170 0.0 50 0 -5 1 70 0)

                                enableChannel: viewDetails

                                model: viewGroup

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Size'

                                name: 'CheckBox15'

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

                                enableChannel: viewDetails

                                model: viewSize

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Date && Time'

                                name: 'CheckBox19'

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

                                enableChannel: viewDetails

                                model: viewTime

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                label: 'Size in Bytes'

                                name: 'CheckBox16'

                                layout: (LayoutFrame 20 0.0 100 0 170 0 120 0)

                                enableChannel: viewDetails

                                model: viewSizeInBytes

                                translateLabel: true

                              )

                             (CheckBoxSpec

                                name: 'CheckBox20'

                                layout: (LayoutFrame 170 0.0 100 0 -5 1 120 0)

                                enableChannel: viewDetails

                                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 171)

                        )

                       )

                    )

                    extent: (Point 434 530)

                  )

                 )

              )

            )

           )

        )

      )

! !

!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 req writeToCurrentFileBrowser|

    aspectList := AbstractFileBrowser userPreferencesAspectList.

    req := self settingsDialog.

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

    aspectList do:[ :aAspect | |value|

        value := (self perform:aAspect) value.

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

        writeToCurrentFileBrowser ifTrue:[

            (req perform:aAspect) value:value.

        ].

    ].

!

helpFilename

    ^ 'FileBrowserV2/settings.html'

!

readSettings

    |req receiver aspectList|

    req := self settingsDialog.

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

                req

            ] ifFalse:[

                currentUserPrefs

            ].

    aspectList := AbstractFileBrowser userPreferencesAspectList.

    aspectList do:[:aAspect | |value|

        value := (receiver perform:aAspect) value.

        (self perform:aAspect) value:value

    ].

    self modifiedChannel value:false

! !

!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

!

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

!

viewDescription

    viewDescription isNil ifTrue:[

        viewDescription := false asValue.

        viewDescription onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewDescription

!

viewDetails

    viewDetails isNil ifTrue:[

        viewDetails := true asValue.

        viewDetails onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewDetails

!

viewDirectoryDescription

    viewDirectoryDescription isNil ifTrue:[

        viewDirectoryDescription := true asValue.

        viewDirectoryDescription onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewDirectoryDescription

!

viewDirsInContentsBrowser

    viewDirsInContentsBrowser isNil ifTrue:[

        viewDirsInContentsBrowser := true asValue.

        viewDirsInContentsBrowser onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewDirsInContentsBrowser

!

viewFilesInDirectoryTree

    viewFilesInDirectoryTree isNil ifTrue:[

        viewFilesInDirectoryTree := true asValue.

        viewFilesInDirectoryTree onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewFilesInDirectoryTree

!

viewGroup

    viewGroup isNil ifTrue:[

        viewGroup := true asValue.

        viewGroup onChangeSend:#updateModifiedChannel to:self

    ].

    ^ viewGroup

!

viewOwner