"

 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' }"

"{ NameSpace: Smalltalk }"

AbstractSettingsApplication subclass:#FileBrowserV2SettingsAppl

	instanceVariableNames:'sortDirectoriesBeforeFiles showDirectoryTree sortCaseless

		showHiddenFiles openMultipleApplicationsForType

		toolBarVisibleHolder viewDirectoryDescription

		openAlwaysInTextEditor alwaysUseSmalltalkTools

		viewFilesInDirectoryTree viewDescription viewPreview viewTime

		viewSize viewSizeInBytes viewType viewDetails viewPermissions

		viewGroup viewDirsInContentsBrowser viewOwner

		filenameEntryFieldVisibleHolder viewSizeInKiloBytes

		useCodeView2InTools showDirectoriesOnTop'

	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

    <resource: #help>

    ^ #(

#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'

#alwaysUseSmalltalkTools

'Always use Smalltalk tools to show/edit documents.\I.e. do not try to start a tool from the operating system on double click'

)

! !

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

         flags: 1

         min: (Point 10 10)

         bounds: (Rectangle 0 0 625 766)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel2'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             horizontalLayout: fit

             verticalLayout: top

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (FramedBoxSpec

                   label: 'Show'

                   name: 'ShowBox'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (CheckBoxSpec

                         label: 'Hidden Files'

                         name: 'CheckBox1'

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

                         model: showHiddenFiles

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Directory Tree'

                         name: 'CheckBox2'

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

                         model: showDirectoryTree

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Regular Files in TreeView (Left)'

                         name: 'CheckBox3'

                         layout: (LayoutFrame 20 0 67 0 0 1.0 97 0)

                         model: viewFilesInDirectoryTree

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Directories in ContentsView (Right)'

                         name: 'CheckBox4'

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

                         model: viewDirsInContentsBrowser

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Directories on Top'

                         name: 'CheckBox26'

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

                         enableChannel: viewDirsInContentsBrowser

                         model: showDirectoriesOnTop

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Toolbar'

                         name: 'CheckBox11'

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

                         model: toolBarVisibleHolder

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Path Entry && Filter'

                         name: 'CheckBox12'

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

                         model: filenameEntryFieldVisibleHolder

                         translateLabel: true

                       )

                      )

                   )

                   extent: (Point 625 250)

                 )

                (FramedBoxSpec

                   label: 'Sort'

                   name: 'SortBox'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (CheckBoxSpec

                         label: 'Ignore Case'

                         name: 'CheckBox6'

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

                         model: sortCaseless

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Directories before Files'

                         name: 'CheckBox7'

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

                         model: sortDirectoriesBeforeFiles

                         translateLabel: true

                       )

                      )

                   )

                   extent: (Point 625 101)

                 )

                (FramedBoxSpec

                   label: 'Columns in Filelist'

                   name: 'ColumnsBox'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (CheckBoxSpec

                         label: 'Details'

                         name: 'CheckBox22'

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

                         model: viewDetails

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Suffix'

                         name: 'CheckBox13'

                         layout: (LayoutFrame 20 0.0 37 0 170 0 67 0)

                         enableChannel: viewDetails

                         model: viewType

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Permissions'

                         name: 'CheckBox21'

                         layout: (LayoutFrame 170 0.0 37 0 -5 1 67 0)

                         enableChannel: viewDetails

                         model: viewPermissions

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Owner'

                         name: 'CheckBox14'

                         layout: (LayoutFrame 20 0.0 67 0 170 0 97 0)

                         enableChannel: viewDetails

                         model: viewOwner

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Group'

                         name: 'CheckBox18'

                         layout: (LayoutFrame 170 0.0 67 0 -5 1 97 0)

                         enableChannel: viewDetails

                         model: viewGroup

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Size'

                         name: 'CheckBox15'

                         layout: (LayoutFrame 20 0.0 97 0 170 0 127 0)

                         enableChannel: viewDetails

                         model: viewSize

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Date && Time'

                         name: 'CheckBox19'

                         layout: (LayoutFrame 170 0.0 97 0 -5 1 127 0)

                         enableChannel: viewDetails

                         model: viewTime

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Size (Byte)'

                         name: 'CheckBox16'

                         layout: (LayoutFrame 20 0.0 127 0 170 0 157 0)

                         enableChannel: viewDetails

                         model: viewSizeInBytes

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Size (KByte)'

                         name: 'CheckBox20'

                         layout: (LayoutFrame 170 0.0 127 0 -5 1 157 0)

                         enableChannel: viewDetails

                         model: viewSizeInKiloBytes

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'File Info'

                         name: 'CheckBox23'

                         layout: (LayoutFrame 20 0.0 157 0 170 0 187 0)

                         enableChannel: viewDetails

                         model: viewDescription

                         translateLabel: true

                       )

                      (CheckBoxSpec

                         label: 'Preview'

                         name: 'CheckBox24'

                         layout: (LayoutFrame 170 0.0 157 0 -5 1 187 0)

                         enableChannel: viewDetails

                         model: viewPreview

                         translateLabel: true

                       )

                      )

                   )

                   extent: (Point 625 224)

                 )

                (FramedBoxSpec

                   label: 'Application Notebook'

                   name: 'ApplicationBox'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (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 30)

                             )

                            (CheckBoxSpec

                               label: 'Always use Smalltalk Tools'

                               name: 'CheckBox27'

                               activeHelpKey: alwaysUseSmalltalkTools

                               model: alwaysUseSmalltalkTools

                               translateLabel: true

                               extent: (Point 435 30)

                             )

                            (CheckBoxSpec

                               label: 'Open Multiple Applications'

                               name: 'CheckBox9'

                               activeHelpKey: openMultipleApplications

                               model: openMultipleApplicationsForType

                               translateLabel: true

                               extent: (Point 435 30)

                             )

                            (CheckBoxSpec

                               label: 'Auto Open Directory Description (README)'

                               name: 'CheckBox10'

                               activeHelpKey: autoOpenDirectoryDescription

                               model: viewDirectoryDescription

                               translateLabel: true

                               extent: (Point 435 30)

                             )

                            )

                         )

                       )

                      )

                   )

                   extent: (Point 625 170)

                 )

                )

             )

           )

          )

       )

     )

! !

!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 asMutator) 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'!

alwaysUseSmalltalkTools

    alwaysUseSmalltalkTools isNil ifTrue:[

        alwaysUseSmalltalkTools := ValueHolder with:true.

        alwaysUseSmalltalkTools onChangeSend:#updateModifiedChannel to:self

    ].

    ^ alwaysUseSmalltalkTools

!

filenameEntryFieldVisibleHolder

    filenameEntryFieldVisibleHolder isNil ifTrue:[

        filenameEntryFieldVisibleHolder := ValueHolder with:true.

        filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel

            to:self

    ].

    ^ filenameEntryFieldVisibleHolder

!

openAlwaysInTextEditor

    openAlwaysInTextEditor isNil ifTrue:[

        openAlwaysInTextEditor := ValueHolder with:true.

        openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self

    ].

    ^ openAlwaysInTextEditor

!

openMultipleApplicationsForType

    openMultipleApplicationsForType isNil ifTrue:[

        openMultipleApplicationsForType := ValueHolder with:true.

        openMultipleApplicationsForType onChangeSend:#updateModifiedChannel

            to:self

    ].

    ^ openMultipleApplicationsForType

!

showDirectoriesOnTop

    showDirectoriesOnTop isNil ifTrue:[

        showDirectoriesOnTop := ValueHolder with:true.

        showDirectoriesOnTop onChangeSend:#updateModifiedChannel to:self

    ].

    ^ showDirectoriesOnTop

    "Created: / 12-08-2014 / 13:07:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

showDirectoryTree

    showDirectoryTree isNil ifTrue:[

        showDirectoryTree := ValueHolder with:true.

        showDirectoryTree onChangeSend:#updateModifiedChannel to:self

    ].