"

 COPYRIGHT (c) 1997 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.

"

TreeItem subclass:#FileSelectionItem

	instanceVariableNames:'modificationTime matchAction isDirectory imageType showIndicator'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support'

!

FileSelectionItem subclass:#Directory

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileSelectionItem

!

FileSelectionItem subclass:#File

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileSelectionItem

!

!FileSelectionItem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 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

"

    class to build up file trees like structures. You can define your own

    icons and filter. Redefinging the icons you have to look especially for

    this methods:

        class method:           keysAndIcons      : returns a list of icons and access keys used

        instance method:        imageType         : get type of icon assigned to file

                                icon              : get the type of image to be drawn

    Especially suited for use with FileSelectionTree.

    [Author:]

        Claus Atzkern

    [See also:]

        TreeItem

        FileSelectionTree

"

! !

!FileSelectionItem class methodsFor:'instance creation'!

pathName:aPath

    "create a new node entry associated with the full pathname, aPath

    "

    |node|

    node := self new.

    node pathName:aPath.

  ^ node

! !

!FileSelectionItem class methodsFor:'accessing class'!

filterClassForDirectoriesOnly

    ^ Directory

!

filterClassForFilesOnly

    ^ File

! !

!FileSelectionItem class methodsFor:'converting'!

asFilename:aPathname

    "convert pathname to an absolute path

    "

    |path|

    path := aPathname asString.

    (path size > 1 and:[path endsWith:(Filename separator)]) ifTrue:[

        ^ (path copyWithoutLast:1) asFilename.

    ].

  ^ aPathname asFilename

    "Modified: / 24.9.1998 / 15:33:50 / cg"

! !

!FileSelectionItem class methodsFor:'default icons'!

keysAndIcons

    "returns an IdentityDictionary containing a list of images and keys used

     by any file entry.

    "

    |icons image|

    icons := IdentityDictionary new.

    #(

        (#directory       'tiny_yellow_dir.xpm')

        (#directoryOpened 'tiny_yellow_dir_open.xpm')

        (#directoryLocked 'tiny_yellow_dir_locked.xpm')

        (#directoryLink   'tiny_yellow_dir_link.xpm'  )

        (#file            'tiny_file_plain.xpm'       )

        (#fileLink        'tiny_file_link.xpm'        )

        (#fileLocked      'tiny_file_lock.xpm'        )

        (#imageFile       'tiny_file_pix.xpm'         )

     ) do:[:el |

        image := Image fromFile:('xpmBitmaps/document_images/', el last ).

        image notNil ifTrue:[

            icons at:(el first) put:image.

        ]

    ].

  ^ icons

! !

!FileSelectionItem methodsFor:'accessing'!

children

    "get's list of children

    "

    readChildren ifTrue:[

        children := self readInChildren

    ].

  ^ children

!

fileName

    "returns the fileName of node

    "

    ^ contents

!

icon

    "returns type of image to be drawn

    "

    (children size ~~ 0 and:[hide == false]) ifTrue:[

        ^ #directoryOpened

    ].

    ^ self imageType

!

match:aOneArgBlock

    aOneArgBlock isNil ifTrue:[

        self discardFiles ifTrue:[

            matchAction := [:aFile :isDirectory| isDirectory ]

        ] ifFalse:[

            self discardDirectories ifTrue:[

                matchAction := [:aFile :isDirectory| isDirectory not ]

            ] ifFalse:[

                matchAction := [:aFile :isDir| true ]

            ]

        ]

    ] ifFalse:[

        self discardFiles ifTrue:[

            matchAction := [:aFile :isDirectory| (isDirectory and:[aOneArgBlock value:aFile]) ]

        ] ifFalse:[

            self discardDirectories ifTrue:[

                matchAction := [:aFile :isDirectory| (isDirectory not and:[aOneArgBlock value:aFile]) ]

            ] ifFalse:[

                matchAction := [:aFile :isDir| aOneArgBlock value:aFile ]

            ]

        ]

    ]    

!

pathName

    "returns full pathname of node

    "

    ^ contents asString

!

pathName:aPathname

    "initialze attributes associated with the full pathname, aPathname

    "

    |file|

"/    file := self class asFilename:aPathname.

    file := aPathname asFilename pathName asFilename.

    self 

        fileName:file 

        baseName:(file baseName) 

        parent:nil 

        isDirectory:(file isDirectory)

    "Modified: / 24.9.1998 / 16:02:53 / cg"

! !

!FileSelectionItem methodsFor:'accessing hierarchy'!

collapse

    "check to release children

    "

    self stopIndicatorValidation.

    hide := true.

    children notEmpty ifTrue:[

        children do:[:aChild|

            aChild releaseCollapsedChildren ifFalse:[ ^ self ]

        ].

        self canReleaseChildren ifTrue:[

            self releaseChildren

        ]

    ]

!

collapseAll

    "release my childrens

    "

    self stopIndicatorValidation.

    hide := true.

    children notEmpty ifTrue:[

        self canReleaseChildren ifTrue:[

            self releaseChildren

        ] ifFalse:[

            children do:[:c| c releaseChildren ]

        ]

    ].

!

expandAll

    "not allowed for a file directory

    "

    self expand

! !

!FileSelectionItem methodsFor:'private'!

childFileName:aFilename baseName:aBaseName parent:aParent isDirectory:aBool matchAction:mA

    "initialze attributes associated with the full pathname, aPathname.

     Same as #fileName:baseName:parent:isDirectory:,

     but used only for children (i.e. no need to check for

     being a rootDirectory).

    "

    |f|

    contents    := aFilename.

    name        := aBaseName.

    parent      := aParent.

    isDirectory := readChildren := aBool.

    isDirectory ifFalse:[

        showIndicator := false

    ] ifTrue:[

        showIndicator := nil

    ].

    matchAction := mA

    "Modified: / 24.9.1998 / 14:10:38 / cg"

    "Created: / 24.9.1998 / 15:51:58 / cg"

!

directoryIsLocked

    ^ self imageType == #directoryLocked

    "Created: / 24.9.1998 / 14:22:08 / cg"

!

fileName:aFilename baseName:aBaseName parent:aParent isDirectory:aBool

    "initialze attributes associated with the full pathname, aPathname

    "

    |f|

    contents    := aFilename.

    (f := aFilename asFilename) isRootDirectory ifTrue:[

        name := f name.

"/        (name endsWith:Filename separator) ifTrue:[

"/            name ~= Filename separator asString ifTrue:[

"/                name := name copyWithoutLast:1.

"/            ]

"/        ]

    ] ifFalse:[

        name        := aBaseName.

    ].

    parent      := aParent.

    isDirectory := readChildren := aBool.

    isDirectory ifFalse:[

        showIndicator := false

    ] ifTrue:[

        showIndicator := nil

    ].

    parent notNil ifTrue:[

        matchAction := parent matchAction       "/ same as from parent

    ] ifFalse:[

        self match:nil                          "/ setup matchAction new

    ]

    "Modified: / 24.9.1998 / 19:19:57 / cg"

!

matchAction

    "returns my match action

    "

    ^ matchAction

!

releaseChildren

    "release my childrens without tests and deregistration from

     update task

    "

    hide := true.

    readChildren := true.

    modificationTime := nil.

    children := OrderedCollection new.

!

stopIndicatorValidation

    "called to stop indicator validation on each child

    "

    |model|

    (hide or:[children isEmpty]) ifFalse:[

        (model := self model) notNil ifTrue:[

            children do:[:c| c stopIndicatorValidation:model ].

            model stopIndicatorValidationFor:children

        ]

    ]

!

stopIndicatorValidation:aModel

    "called to stop indicator validation on each child

    "

    (hide or:[children isEmpty]) ifFalse:[

        children do:[:c| c stopIndicatorValidation:aModel ].

        aModel stopIndicatorValidationFor:children

    ]

! !

!FileSelectionItem methodsFor:'protected'!

isVisibleFile:aFilename isDirectory:isDirectory baseName:aBasename

    ^ matchAction value:aFilename value:isDirectory

! !

!FileSelectionItem methodsFor:'queries'!

canReleaseChildren

    "returns true if children could be released

    "

    ^ (parent notNil and:[parent parent notNil])

!

discardDirectories

    "returns true if children are not type of directory; could be

     reimplemented for speed in any subclass

    "

    ^ false

!

discardFiles

    "returns true if children are not type of file; could be

     reimplemented for speed in any subclass

    "

    ^ false

!

hasChildren

    "returns true if the pathname assigned to this node is a directory

     otherwise false

    "

    ^ isDirectory

!

hasValidIndicator

    "returns true if indication flag is uptodate

    "

    ^ showIndicator notNil

!

isDirectory

    ^ isDirectory

!

releaseCollapsedChildren

    "release collapsed children

    "

    |canCollapse model|

    children isEmpty ifTrue:[

        ^ true

    ].

    canCollapse := true.

    children do:[:aChild|

        aChild releaseCollapsedChildren ifFalse:[

            canCollapse := false

        ]

    ].

    (canCollapse and:[self isExpandable]) ifTrue:[

        self canReleaseChildren ifTrue:[

            self releaseChildren.

          ^ true.

        ]

    ].

    ^ false

!

setShowIndicator:aBool

    "set indication; raise no change notification

    "

    showIndicator := aBool.

!

showIndicator

    "

    |model|

    showIndicator isNil ifTrue:[

        self directoryIsLocked ifTrue:[

            showIndicator := readChildren := false.

        ] ifFalse:[

            (model := self model) notNil ifTrue:[

                model startIndicatorValidationFor:self.

            ].

            ^ false

        ]

    ].

    ^ showIndicator

!

showIndicator:aBool

    "indication might change; raise a change notification

    "

        self changed:#indication

    ].

! !