"

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

AbstractFileBrowser subclass:#FileBrowserV2

	instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess

		listOfDeviceDrives selectedDeviceDrive imgView'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2 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.

"

!

documentation

"

    FileBrowserV2 is based on Filebrowser

    WARNING: files edited with FileBrowser will have leading spaces (multiple-8)

             being replaced by tabs. If tabs are to be preserved at other

             positions (for example, sendmail-config files) they will be

             corrupt after being written.

    [instance variables]:

        checkDelta      <Integer>       number of seconds of check interval

                                        (looks ever so often if shown directory

                                         has changed). You may make this number

                                        higher, if your network-times are

                                        incorrect and thus, the filebrowser

                                        checks too often.

        compressTabs    <Boolean>       if true, leading spaces will be

                                        replaced by tabs when saving text

    some of the defaults (long/short list etc.) can be set by the resource file;

    see FileBrowser>>initialize for more details..

    [author:]

        Christian Penk

    [start with:]

        FileBrowserV2 open

"

!

toDo

"

    - the tab for the directory description text editor not changed if the 

      directory description change to a normal text editor

    - FileDialog should get a file history

    - change comment characters on change text file in TextEditor

    - directorycontentsItem isDirectory failed if it is a symbolic link

    - on sort order change in directory contents browser the columnspec shouldnt not reloaded

    - in windows directory up on top of a volume goes to default directory

    - check all windowspecs with different font types

    - multiple select with mouse moving is flickering (see bestFilename in FilenameEditField)

    - too many system calls on update cycle

    - stop monitoring task for DirectoryTreebrowser and DirectoryContentsBrowser

"

! !

!FileBrowserV2 class methodsFor:'instance creation'!

on:aDirectoryPath

    "return a new FileBrowserV2 in a pathname"

    |instance files|

    instance := self new createBuilder.

    aDirectoryPath isCollection ifTrue:[

        files := aDirectoryPath

    ] ifFalse:[

        files := Array with:aDirectoryPath.

    ].

    instance currentFileNameHolder value:files.

    ^ instance

!

open

    "start a new FileBrowserV2"

    | instance |

    instance := self new.

    instance open.

    ^ instance

    "

     FileBrowserV2 openOn:(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) withExtent:800@600

    "

!

openOn:aDirectoryPath 

    "start a new FileBrowserV2 in a pathname"

    | instance|

    instance := self on:aDirectoryPath asFilename.

    instance open.

    ^ instance.

    "

     FileBrowserV2 openOn:(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename))

    "

!

openOn:aDirectoryPath withExtent:extent

    "start a new FileBrowserV2 in a pathname"

    | instance builder|

    instance := self on:aDirectoryPath.

    builder := instance open.

    builder window extent:extent.

    ^ instance

    "

     FileBrowserV2 openOn:(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) withExtent:800@600

    "

!

openOnFileNamed:aFilename

    "start a new FileBrowserV2 on a aFilename.

     The browser looks for an appropriate viewer and uses that if one is found;

     otherwise, the file is opened for text editing."

    ^ self openOnFileNamed:aFilename editing:true

    "

     FileBrowserV2 openOnFileNamed:'Makefile'

    "

!

openOnFileNamed:aFilename editing:editing

    "start a new FileBrowserV2 on a aFilename;

     If editing is true, the browser opens the document as text to be edited;

     if false, it looks for an appropriate viewer and uses that if one is found."

    |f browser|

    f := aFilename asFilename asAbsoluteFilename.

    f isDirectory ifTrue:[

        ^ self openOn:aFilename

    ].

    browser := self on:(f directory).

    browser currentFileNameHolder setValue:(Array with:f).

    browser open.

    editing ifTrue:[

        browser openTextEditorForFile:f.

    ] ifFalse:[

        browser openApplForFile:f.

    ].

    "

     FileBrowserV2 openOnFileNamed:'Makefile'

    "

!

openWithAspects:someAspects withExtent:extent

    "start a new FileBrowserV2 in a pathname"

    |dir clone|

    dir := someAspects at:#currentFileNameHolder ifAbsent:nil.

    clone := self openOn:(dir value) withExtent:extent.

! !

!FileBrowserV2 class methodsFor:'class initialization'!

applicationIcon

    ^ NewLauncher startNewFileBrowserIcon

!

initialize

    "/ self installInLauncher.            - now done in phase 2

    ObjectMemory addDependent:self.

!

installInLauncher

    "add myself to the launcher menu and toolBar"

    |menuItem icon action currentLauncher|

    FileBrowserV2 isNil ifTrue:[^ self].

    action := [FileBrowserV2 open].

    icon := [self applicationIcon]. "/ self defaultIcon magnifiedTo:28@28.

    menuItem := MenuItem new 

                    translateLabel: true;

                    value: action;

                    isButton: false;

                    label:'File Browser' icon:icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

    NewLauncher 

        addMenuItem:menuItem 

        from:self

        in:'menu.file' 

        position:#( #before #fileBrowser) 

        space:true.

    menuItem := MenuItem new 

                    translateLabel: true;

                    value: action;

                    isButton: true;

                    "label:'File Browser'" icon:icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

    NewLauncher 

        addMenuItem:menuItem 

        from:self

        in:'toolbar' 

        position:#( #before #fileBrowser) 

        space:false.

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher addSettingsApplicationByClass:#'FileBrowserV2SettingsAppl' 

                withName:'Tools/FileBrowserV2' 

                icon:nil.

    "

     self installInLauncher

     self removeFromLauncher

    "

!

removeFromLauncher

    "/

    "/ remove myself from the launcher menu

    "/

    |currentLauncher|

    NewLauncher isNil ifTrue:[^ self].

    NewLauncher removeUserTool:#fileBrowserV2.

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher removeSettingsApplicationByClass:#'FileBrowserV2SettingsAppl'.

    "

     self removeFromLauncher

    "

!

update:something with:aParameter from:changedObject

    something == #initialized ifTrue:[

        changedObject == ObjectMemory ifTrue:[

            self installInLauncher.

            ObjectMemory removeDependent:self.

        ]

    ].

! !

!FileBrowserV2 class methodsFor:'defaults'!

entryFieldEndStringForMultipleSelection

    ^ ('[*]')

! !

!FileBrowserV2 class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:FileBrowserV2    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#editFile

''

#fileIn

''

#searchFile

''

#toggleDetails

''

)

! !

!FileBrowserV2 class methodsFor:'icon'!

defaultIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'FileBrowserV2 class defaultIcon'

        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@CLA&Y&Y&Y&X@@ADP@@@L0F@@@@@@A @ADAD@@@3@XN;.;.8F@ADPDQ@@CLA ;.@@@@@@D@@@D@@L0FC.8O[6=/@QDADP@@3@X@; 

[6=/[0DPDP@@CLA DNC6<@@F<ADP@@@L0F@A@F= [0= @@@@@@3@X@@P=/[6=/@@@@@@CLA @@A/[6=/X@@@@@@L0FC0@O[6=/[0@@@@@@3@XF<@@@@@@@@@

@@@@CLA = @@@@@@@@@@@@@L0FA/[6=/A @@@@@@@@3@XO[6=/XF@@@@@@@@CLA @@@@@@X@@@@@@@@L0FY&Y&Y&Y @@@@@@@@C@Y&Y&Y&Y&@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

O??# C??9<@??>? O???<C????@????0O???8C???<@???>@O??<@C???@@???0@O??<@C??8@@??>@@O?? @C??8@@??>@@G?? @@??8@@@@@@@G.P=0AAD

HP@PQBD@GDP8 AADHD@PQBA@DN^=0@@a') ; yourself); yourself]

!

hideFilenameEntryFieldIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH14

!

hideToolBarIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH26

! !

!FileBrowserV2 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:FileBrowserV2 andSelector:#windowSpec

     FileBrowserV2 new openInterface:#windowSpec

     FileBrowserV2 open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: FileBrowser

          name: FileBrowser

          min: (Point 10 10)

          bounds: (Rectangle 0 0 800 600)

          menu: mainMenu

          icon: applicationIcon

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: 'ToolbarBox'

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

              level: 0

              visibilityChannel: toolBarVisibleHolder

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'hideToolBarIcon'

                    name: 'HideToolBarButton'

                    layout: (LayoutFrame 0 0 0 0 13 0 30 0)

                    activeHelpKey: hideToolBar

                    hasCharacterOrientedLabel: false

                    translateLabel: true

                    model: hideToolbar

                    postBuildCallback: hideToolBarButtonCreated:

                  )

                 (MenuPanelSpec

                    name: 'ToolBar'

                    layout: (LayoutFrame 13 0 0 0 0 1 32 0)

                    menu: toolBarMainMenu

                    textDefault: true

                  )

                 )

              )

            )

           (ViewSpec

              name: 'FilenameEntryFieldBox'

              layout: (LayoutFrame 0 0 32 0 0 1 57 0)

              level: 0

              visibilityChannel: filenameEntryFieldVisibleHolder

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'hideFilenameEntryFieldIcon'

                    name: 'HideFilenameEntryFieldButton'

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

                    activeHelpKey: hideFilenameEntryField

                    hasCharacterOrientedLabel: false

                    translateLabel: true

                    model: hideFilenameEntryField

                    postBuildCallback: hideFilenameEntryFieldButtonCreated:

                  )

                 (HorizontalPanelViewSpec

                    name: 'HorizontalPanel1'

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

                    level: 1

                    horizontalLayout: leftFit

                    verticalLayout: fit

                    horizontalSpace: 3

                    verticalSpace: 3

                    component: 

                   (SpecCollection

                      collection: (

                       (ComboListSpec

                          name: 'ComboList1'

                          visibilityChannel: driveSelectorVisible

                          model: selectedDeviceDrive

                          comboList: listOfDeviceDrives

                          useIndex: false

                          hidePullDownMenuButton: false

                          extent: (Point 53 23)

                        )

                       (VariableHorizontalPanelSpec

                          name: 'VariableHorizontalPanel1'

                          level: 0

                          showHandle: true

                          component: 

                         (SpecCollection

                            collection: (

                             (NonScrollableArbitraryComponentSpec

                                name: 'NonScrollableArbitraryComponent1'

                                component: FilenameEditFieldV2

                                postBuildCallback: postBuildEditField:

                              )

                             (ViewSpec

                                name: 'FilterBox'

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Filter:'

                                      name: 'Filter'

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

                                      translateLabel: true

                                      adjust: left

                                      postBuildCallback: postBuildPathViewBox:

                                    )

                                   (ComboBoxSpec

                                      name: 'FilterSelectionBox'

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

                                      model: filterModel

                                      immediateAccept: true

                                      acceptOnPointerLeave: false

                                      comboList: filterListModel

                                    )

                                   )

                                )

                                postBuildCallback: postBuildPathViewBox:

                              )