"

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

AbstractDirectoryBrowser subclass:#DirectoryContentsBrowser

	instanceVariableNames:'modificationTime directory columnDescriptors iconIndex

		fileDescriptionIndex iconExtent tableColumns previewIndex

		draggedItem viewBrowserMenu updateContentsSelection

		selectionInFileList browserItemList matchBlock updateTask

		directoryChangeFlag directoryContentsChangeFlag filterChangeFlag

		sortBlockChangeFlag isBusy changeSema filteredItems allItems

		diskUsageInfo diskUsageUpdateProcess multipleSelect

		doubleClickAction updateCycleSemaphore updatingColumns accessLock

		enterActionBlock updateCurrentFileNameHolderWhenSelectionChanges'

	classVariableNames:'Debug'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

Object subclass:#DirectoryContentsItem

	instanceVariableNames:'fileName fileInfo icon fileType

		contentsBrowserChangeModificationTime suffix preview group owner

		timeAndDate mimeType iconKey mimeTypeForContents baseName'

	classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'

	poolDictionaries:''

	privateIn:DirectoryContentsBrowser

!

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

"

    An application for displaying a directories' contents flat (or as a tree, alternatively).

    To be used as a building block in file browsers and fileSelection dialogs.

    This is used as the top-right component in the new fileBrowser.

    [author:]

        Christian Penk (penk@bierfix)

    [see also:]

        FileBrowserV2

"

!

examples

"

                                                                [exBegin]

    DirectoryContentsBrowser openIn:Filename currentDirectory

                                                                [exEnd]

"

! !

!DirectoryContentsBrowser class methodsFor:'instance creation'!

openIn:aDirectory

    "open a standalone broser for a directory"

    self openIn:aDirectory withDirectories:false

    "

      self openIn:'.cvsignore' asFilename

    "

!

openIn:aDirectory withDirectories:withDirectoriesBoolean

    "open a broswer (standalone) for a directory"

    |browser|

    browser := self new.

    browser open.

    aDirectory notNil ifTrue:[

        browser currentFileNameHolder value:(OrderedCollection with:aDirectory asFilename)

    ].

    browser viewDirsInContentsBrowser value:withDirectoriesBoolean.

    ^ browser

    "

      self openIn:Filename currentDirectory withDirectories:true

    "

! !

!DirectoryContentsBrowser class methodsFor:'classAccess'!

itemClass

    ^ DirectoryContentsItem

"

self itemClass

"

! !

!DirectoryContentsBrowser class methodsFor:'constant'!

updateTaskCyleTime

    "time to check for changed directories or changed columns

     (unless triggered by an action)"

    ^ 10 seconds

    "Modified (comment): / 20-03-2012 / 12:26:40 / cg"

!

updateTaskPriority

    "priority of the update task"

    ^ Processor userSchedulingPriority

! !

!DirectoryContentsBrowser class methodsFor:'image specs'!

detailsMenuIconDown

    <resource: #programImage>

    ^ DataSetLabel sortReverseIndicator

!

detailsMenuIconR

    "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 detailsMenuIconR inspect

     ImageEditor openOnClass:self andSelector:#detailsMenuIconR

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'DirectoryContentsBrowser detailsMenuIconR'

        ifAbsentPut:[(Depth1Image width:5 height:7) bits:(ByteArray fromPackedString:'@@@@@@@@@@@a')

            colorMapFromArray:#[0 0 0]

            mask:((ImageMask width:5 height:7) bits:(ByteArray fromPackedString:' DB TJA@ @@a'); yourself); yourself]

!

detailsMenuIconUp

    <resource: #programImage>

    ^ DataSetLabel sortIndicator

! !

!DirectoryContentsBrowser class methodsFor:'interface specs'!

tableColumns

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

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

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

    "

     DataSetBuilder new openOnClass:DirectoryContentsBrowser andSelector:#tableColumns

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: ''

         labelIsImage: true

         labelButtonType: Group

         width: 22

         minWidth: 22

         height: 16

         model: icon

         menuFromApplication: false

         printSelector: icon

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Filename'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'baseName'

         minWidth: 150

         height: heightOfFirstRow

         model: baseName

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Suffix'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'suffix'

         usePreferredWidth: true

         width: 40

         height: heightOfFirstRow

         model: suffix

         canSelect: false

         isResizeable: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Inode'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'inodeNumber'

         usePreferredWidth: true

         width: 75

         height: heightOfFirstRow

         model: inodeNumber

         canSelect: false

         isResizeable: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Perm'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'permissions'

         usePreferredWidth: true

         width: 75

         height: heightOfFirstRow

         model: permissions

         canSelect: false

         isResizeable: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Owner'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'owner'

         usePreferredWidth: true

         width: 50

         height: heightOfFirstRow

         model: owner

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Group'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'group'

         usePreferredWidth: true

         width: 40

         height: heightOfFirstRow

         model: group

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Size'

         labelAlignment: right

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'fileSize'

         columnAlignment: right

         usePreferredWidth: true

         minWidth: 65

         height: heightOfFirstRow

         model: sizeString

         menuFromApplication: false

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'KB'

         labelAlignment: right

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'fileSize'

         columnAlignment: right

         usePreferredWidth: true

         minWidth: 55

         height: heightOfFirstRow

         model: sizeInKiloBytesString

         menuFromApplication: false

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Bytes'

         labelAlignment: right

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'fileSize'

         columnAlignment: right

         usePreferredWidth: true

         minWidth: 65

         height: heightOfFirstRow

         model: sizeInBytesString

         menuFromApplication: false

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Date & Time'

         labelAlignment: right

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'modificationTime'

         columnAlignment: right

         usePreferredWidth: true

         width: 140

         height: heightOfFirstRow

         model: timeAndDate

         writeSelector: date:

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'File Info'

         labelAlignment: left

         labelButtonType: Button

         labelActionSelector: sortFileListsBy:

         labelActionArgument: 'fileType'

         width: 250

         height: heightOfFirstRow

         model: fileInfoString

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Pre +/-'

         labelButtonType: Button

         labelActionSelector: doResizeImage

         labelActionArgument: ''

         columnAlignment: center

         width: 45

         height: 16

         model: preview

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      )

!

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

     DirectoryContentsBrowser new openInterface:#windowSpec

     DirectoryContentsBrowser open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Directory ContentsBrowser'

          name: 'Directory ContentsBrowser'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 588 478)

          menu: menu

        )

        component: 

       (SpecCollection

          collection: (

           (DataSetSpec

              name: 'browser'

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

              model: selectionInFileList

              menu: directoryContentsBrowserMenu

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              miniScrollerHorizontal: false

              miniScrollerVertical: false

              dataList: browserItemList

              useIndex: false

              has3Dsepartors: false

              doubleClickSelector: doubleClickedAt:

              columnHolder: tableColumns

              multipleSelectOk: true

              verticalSpacing: 0

              columns: 

             (OrderedCollection

               (DataSetColumnSpec

                  labelButtonType: Group

                  width: 22

                  minWidth: 22

                  height: 16

                  model: icon

                  canSelect: false

                  showRowSeparator: false

                  showColSeparator: false

                ) 

               (DataSetColumnSpec

                  label: 'file name'

                  labelAlignment: left

                  labelButtonType: Button

                  model: baseName

                  canSelect: false

                  showRowSeparator: false

                  showColSeparator: false

                )

               (DataSetColumnSpec

                  label: '+/-'

                  labelButtonType: Button

                  labelActionSelector: doResizeImage

                  labelActionArgument: ''

                  columnAlignment: center

                  width: 30

                  height: 16

                  model: preview

                  canSelect: false

                  showRowSeparator: false

                  showSelectionHighLighted: false

                  showColSeparator: false

                )

              )

              doubleClickChannel: doDoubleClick:

              postBuildCallback: postBuildBrowser:

              properties: 

             (PropertyListDictionary

                dropSelector: doDrop:

                dragArgument: contentsbrowser

                startDragSelector: doStartDrag:in:

                displayObjectSelector: getDisplayObjects:

                dropObjectSelector: getDropObjects:

                overSelector: dropOver:

                dropArgument: browser

                canDropSelector: canDrop:

                leaveSelector: dropLeave:

                enterSelector: dropEnter:

              )

            )

           )

        )

      )

! !

!DirectoryContentsBrowser class methodsFor:'menu specs'!

directoryContentsBrowserMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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