"{ Package: 'stx:libtool' }"

AbstractFileBrowser subclass:#DirectoryTreeBrowser

	instanceVariableNames:'rootHolder dirBrowser lastResponse updateToExternFileHolderLock

		oldDropItem expandItemTimedBlock updateTreeSelection'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

HierarchicalFileList subclass:#DirTreeBrowserHFL

	instanceVariableNames:'draggedItem'

	classVariableNames:''

	poolDictionaries:''

	privateIn:DirectoryTreeBrowser

!

!DirectoryTreeBrowser class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        Christian Penk (penk@bierfix)

    [see also:]

    [instance variables:]

    [class variables:]

"

!

examples

"

  Starting the application:

                                                                [exBegin]

    DirectoryTreeBrowser open

                                                                [exEnd]

  more examples to be added:

                                                                [exBegin]

    ... add code fragment for 

    ... executable example here ...

                                                                [exEnd]

"

! !

!DirectoryTreeBrowser class methodsFor:'instance creation'!

open

    ^ super open

"

    DirectoryTreeBrowser open

"

!

openOn:aFileName

    | file |

    file := aFileName asFilename.

    file exists ifTrue:[

        self openOn:aFileName withFiles:(file isDirectory not)

    ]        

"

    DirectoryTreeBrowser openOn:Filename homeDirectory   

    DirectoryTreeBrowser openOn:(Filename homeDirectory construct:'.bashrc')  

"

!

openOn:aFileName withFiles:aBoolean

    | instance|

    instance := DirectoryTreeBrowser new.

    instance open.

    instance viewFilesInDirectoryTree value:aBoolean.

    instance currentFileNameHolder value:(OrderedCollection with:aFileName).

"

    DirectoryTreeBrowser openOn:Filename homeDirectory  

    DirectoryTreeBrowser openOn:(Filename homeDirectory construct:'.bashrc') withFiles:false  

"

! !

!DirectoryTreeBrowser class methodsFor:'defaults'!

timeForExpandOnDropInMilliseconds

    ^ 1500

! !

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

     DirectoryTreeBrowser new openInterface:#windowSpec

     DirectoryTreeBrowser open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'DirectoryTreeBrowser'

          #name: 'DirectoryTreeBrowser'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 16 42 316 342)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#HierarchicalListViewSpec

              #name: 'HierarchicalListView'

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

              #model: #treeSelectionHolder

              #menu: #menu

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #miniScrollerHorizontal: false

              #miniScrollerVertical: false

              #listModel: #fileList

              #multipleSelectOk: true

              #doubleClickSelector: #doDoubleClick:

              #indicatorSelector: #doIndicatorClick:

              #postBuildCallback: #postBuildDirBrowser:

              #properties: 

             #(#PropertyListDictionary

                #dragArgument: #directoryTreeBrowser

                #startDragSelector: #doStartDrag:in:

                #displayObjectSelector: #getDisplayObjects:

                #dropObjectSelector: #getDropObjects:

                #dropArgument: #directoryTreeBrowser

                #canDropSelector: #canDrop:argument:

                #leaveSelector: #dropLeave:

                #dropSelector: #doDrop:argument:

              )

            )

           )

        )

      )

! !

!DirectoryTreeBrowser class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Copy'

            #translateLabel: true

            #value: #doCopy

            #shortcutKeyCharacter: #Copy

          )

         #(#MenuItem

            #label: 'Cut'

            #translateLabel: true

            #value: #doCut

            #shortcutKeyCharacter: #Cut

          )

         #(#MenuItem

            #label: 'Paste'

            #translateLabel: true

            #value: #pasteFiles

            #enabled: #canPaste

            #shortcutKeyCharacter: #Paste

          )

         #(#MenuItem

            #label: 'Delete'

            #translateLabel: true

            #nameKey: #delete

            #value: #doDelete

            #shortcutKeyCharacter: #Delete

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Directory Up'

            #translateLabel: true

            #value: #doGoDirectoryUp

            #enabled: #enableDirectoryUp

            #shortcutKeyCharacter: #CursorLeft

          )

         #(#MenuItem

            #label: 'Set Selection Top'

            #translateLabel: true

            #value: #doSetSelectionToTop

            #enabled: #selectedFileIsDirectoryAndNotRoot

          )

         #(#MenuItem

            #label: 'Re-/ Expand Directory'

            #translateLabel: true

            #value: #expandSelectedItem

            #shortcutKeyCharacter: #CursorRight

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'View Directory Tree'

            #translateLabel: true

            #isVisible: #masterIsFileBrowser

            #indication: #showDirectoryTreeHolder

          )

         #(#MenuItem

            #label: 'View Files in Directory Tree'

            #translateLabel: true

            #indication: #viewFilesInDirectoryTree

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'New'

            #translateLabel: true

            #submenuChannel: #newMenu

          )

         #(#MenuItem

            #label: 'Rename...'

            #translateLabel: true

            #value: #treeViewFileRename

            #shortcutKeyCharacter: #Replace

          )

         )

        nil

        nil

      )

! !

!DirectoryTreeBrowser class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #selectedDirectoryModel

      ).

! !

!DirectoryTreeBrowser methodsFor:'accessing'!

updateToExternFileHolderLock

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

    updateToExternFileHolderLock isNil ifTrue:[

        updateToExternFileHolderLock := self class newLock.

    ].

    ^ updateToExternFileHolderLock

!

updateTreeSelection

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

    updateTreeSelection isNil ifTrue:[

        updateTreeSelection := self class newLock.

    ].

    ^ updateTreeSelection

! !

!DirectoryTreeBrowser methodsFor:'actions'!

doDoubleClick:anIndex 

    "handle a doubleClick on a directory

    "

    |item file isDirectory|

    item := self fileList at:anIndex ifAbsent:nil.

    item notNil ifTrue:[

        isDirectory := item isDirectory.

        file := item fileName.

        isDirectory ifTrue:[

            (file isReadable and:[file isExecutable]) ifTrue:[

                self doExpand:item.

            ]

        ] ifFalse:[

"/            self openApplByFileItem:item.

        ]

    ]

!

doExpand:anItem

" expand the item; return true the item have expanded "

    (anItem notNil and:[anItem isDirectory and:[anItem isExpanded not]]) ifTrue:[

        anItem toggleExpand.

        ^ true.

    ].          

    ^ false

!

doIndicatorClick:anIndex 

    "handle a click on the indicator

    "

    |item|

    item := self fileList at:anIndex ifAbsent:nil.

    self toggleExpand:item

!

doUpdate

    self fileList monitoringCycle.

"/    self updateSelectedItem

!

expandSelectedItem

    |selDir|

    selDir := self getFirstDirectoryItemOfSelection.

    selDir isNil ifTrue:[^ self ].

    self toggleExpand:selDir.

!

setMatchBlock

    |list|

    list := self fileList.

    self setMatchBlockForList:list

!

setMatchBlockForList:list

    self viewFilesInDirectoryTree value ifTrue:[

        list matchBlock:[:fn :isDir| isDir or:[

                            (self showHiddenFiles value ifFalse:[

                                (fn baseName startsWith:'.') not])

                             and:[self filterModel value match:fn baseName]]] 

    ] ifFalse:[

        list matchBlock:[:fn :isDir| isDir ].

    ].

!

toggleExpand:anItem

    (anItem notNil and:[anItem isDirectory]) ifTrue:[

        anItem toggleExpand

    ].

!

treeViewFileRename

!

updateSelectedItem

    | sel |

    sel := self getItemsForSelection.

    sel isEmpty ifTrue:[ ^ self].

    sel do:[:item|

        self doExpand:item.

        item invalidateRepairNow:true.

    ]

! !

!DirectoryTreeBrowser methodsFor:'aspects'!

fileList

    "holder, which keeps the current list of file entries shown by the directory-browser

    "

    |list|

    (list := builder bindingAt:#fileList) isNil ifTrue:[

        list := DirTreeBrowserHFL new.

        list application:self.

        list showRoot:true.

        self setMatchBlockForList:list.

        list directory:(self rootHolder value).

        builder aspectAt:#fileList put:list.

        list monitoringTaskDelay:2

    ].

    ^ list

!

rootHolder

    "holder, which keeps the current root directory

    "

    rootHolder isNil ifTrue:[

        rootHolder := ValueHolder new.

        rootHolder addDependent:self.

    ].

    ^ rootHolder.

! !

!DirectoryTreeBrowser methodsFor:'change & update'!

changeCurrentFileNameHolder

    | viewFiles curFiles sel currentFileDir|

    viewFiles := self viewFilesInDirectoryTree value.

    curFiles := self currentFileNameHolder value.

    " if i cant select the files because viewFiles is false i cant take my 

      selction to overwrite currentFileNameHolder

    "        

    sel := self getFilesForSelection.

    viewFiles not ifTrue:[

        (self currentFilesAreInSameDirectory and:[sel size == 1]) ifTrue:[

            currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first).

            (sel first = currentFileDir) ifTrue:[

                ^ self.

            ].

        ].

    ].

    self currentFileNameHolder value:sel.

!

changeSelection

    |currentHolder newItem directoryName directory oldSel index viewFiles newSel newColOfItems bestFile dir|

    newSel := OrderedCollection new.

    currentHolder := self currentFileNameHolder value.

    currentHolder isEmpty ifTrue:[

        self treeSelectionHolder value:newSel withoutNotifying:self.

        ^ self

    ].

    bestFile := self getBestFile.

    directory := self getDirWithoutFileName:bestFile.

    directoryName := directory asString.

    viewFiles := self viewFilesInDirectoryTree value.

    ((rootHolder value isNil) or:[((self fileName:directoryName startsWith:rootHolder value)) not]) ifTrue:[

        self setNewRoot:directory.

    ].

    newColOfItems := Set new.

    oldSel := self getItemsForSelection.

    currentHolder do:[ : file |

        oldSel notEmpty ifTrue:[

            newItem := oldSel detect:[: item| item fileName = file] ifNone:[nil].

        ].

        newItem isNil ifTrue:[

            ((viewFiles not) and:[file isDirectory not]) ifTrue:[

                "/ select directory because cant select filename - if is not in tree

                dir := self getDirWithoutFileName:file.

                newItem := self recursiveGetItemFor:dir.

            ] ifFalse:[

                newItem := self recursiveGetItemFor:file.

            ].

        ].

        newItem notNil ifTrue:[

            newColOfItems add:newItem.

        ].

    ].

    newSel := OrderedCollection new.

    newColOfItems do:[ : item |

        index := self fileList indexOf:item.

        newSel add:index.

    ].

    self treeSelectionHolder value:newSel.

    newColOfItems size == 1 ifTrue:[

        | item |

        item := newColOfItems first.

        item isDirectory ifTrue:[

            self doExpand:item.

        ]

    ]

!

recursiveGetItemFor:aDirectory

    ^ self recursiveGetItemFor:aDirectory fromIndex:1

!

recursiveGetItemFor:aFile fromIndex:aStartIndex 

    |list aFileNameString startIndex retItem|

    list := self fileList.

    aFileNameString := aFile asString.

    retItem := nil.

    list from:aStartIndex

        do:[:item | 

            |filename |

            filename := item fileName asString.

            (self fileName:aFileNameString startsWith:filename) ifTrue:[

                (filename asFilename pathName = aFileNameString asFilename pathName) ifTrue:[