"{ Package: 'stx:libtool' }"

AbstractFileBrowser subclass:#DirectoryContentsBrowser

	instanceVariableNames:'browser updateDirectoryContentsTask modificationTime directory

		columnDescriptors filterBlock iconIndex fileDescriptionIndex

		iconExtent tableColumns sortBlock currentSortOrder previewIndex

		allItemsList updateColumnsTask currentItemList wantSelectFiles

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

Object subclass:#DirectoryContentsItem

	instanceVariableNames:'fileName fileInfo icon fileType link linkInfo

		contentsBrowserChangeModificationTime isDirectory baseName suffix

		preview group owner pathName permissions size timeAndDate date

		lastButOneSuffix suffixes modificationTime modifiedByMe mimeType

		iconKey'

	classVariableNames:''

	poolDictionaries:''

	privateIn:DirectoryContentsBrowser

!

!DirectoryContentsBrowser class methodsFor:'documentation'!

documentation

"

    DirectoryContentsBrowser openIn:'/home/ca/work/stx/goodies/bitmaps/xpmBitmaps'

    DirectoryContentsBrowser openIn:'/home/ca/TEST'

"

! !

!DirectoryContentsBrowser class methodsFor:'instance creation'!

openIn:aDirectory

    "opens a directory (standalone) for a directory

    "

    self openIn:aDirectory withDirectories:false

"

self openIn:(Filename currentDirectory construct:'.cvsignore')

"

!

openIn:aDirectory withDirectories:withDirectoriesBoolean

    "opens a directory (standalone) for a directory

    "

    |browser|

    browser := DirectoryContentsBrowser new.

    browser open.

    aDirectory notNil ifTrue:[

        browser currentFileNameHolder value:(OrderedCollection with:(aDirectory asFilename))

    ].

    browser viewDirectoriesInDirectoryContentsBrowser value:withDirectoriesBoolean.

  ^ browser

"

self openIn:(Filename currentDirectory asAbsoluteFilename) withDirectories:false

"

! !

!DirectoryContentsBrowser class methodsFor:'classAccess'!

itemClass

    ^ DirectoryContentsItem

"

self itemClass

"

! !

!DirectoryContentsBrowser class methodsFor:'constant'!

updateTaskPriority

    "returns the priority of the update task

    "

    ^ 8

! !

!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

         #labelButtonType: #Group

         #width: 22

         #minWidth: 22

         #height: 16

         #model: #icon

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Filename'

         #id: #filename

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'baseName'

         #minWidth: 150

         #model: #baseName

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Suffix'

         #id: #suffix

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'suffix'

         #width: 40

         #model: #suffix

         #canSelect: false

         #isResizeable: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Perm'

         #id: #perm

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'permissions'

         #width: 75

         #model: #permissions

         #canSelect: false

         #isResizeable: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Owner'

         #id: #owner

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'owner'

         #usePreferredWidth: true

         #width: 50

         #model: #owner

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Group'

         #id: #group

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'group'

         #usePreferredWidth: true

         #width: 40

         #model: #group

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Size'

         #id: #size

         #translateLabel: true

         #labelAlignment: #right

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'size'

         #columnAlignment: #right

         #usePreferredWidth: true

         #model: #sizeString

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Date & Time'

         #id: #timeAndDate

         #labelAlignment: #right

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'modificationTime'

         #columnAlignment: #right

         #usePreferredWidth: true

         #width: 140

         #model: #timeAndDate

         #writeSelector: #date:

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'File Info'

         #id: #fileInfo

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortList:

         #labelActionArgument: 'fileType'

         #width: 250

         #model: #fileInfoString

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Pre +/-'

         #id: #preview

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

          #max: #(#Point 1152 900)

          #bounds: #(#Rectangle 723 276 1311 754)

          #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: #descriptions

              #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

                )

              )

              #viewClassName: 'DirectoryContentsBrowser::Widget'

              #postBuildCallback: #postBuildBrowser:

              #properties: 

             #(#PropertyListDictionary

                #dragArgument: #browser

                #startDragSelector: #doStartDrag:in:

                #displayObjectSelector: #getDisplayObjects:

                #dropObjectSelector: #getDropObjects:

                #dropArgument: #browser

                #canDropSelector: #canDrop:argument:

                #leaveSelector: #dropLeave:

                #dropSelector: #doDrop:argument:

              )

            )

           )

        )

      )

! !

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

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

    "

     MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#directoryContentsBrowserMenu

     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser directoryContentsBrowserMenu)) 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: 'Rename'

            #translateLabel: true

            #value: #renameSelection

            #enabled: #hasSelection

            #shortcutKeyCharacter: #Replace

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'View'

            #translateLabel: true

            #nameKey: #View

            #submenuChannel: #viewBrowserMenu

          )

         #(#MenuItem

            #label: 'Sort'

            #translateLabel: true

            #nameKey: #Sort

            #submenuChannel: #sortMenu

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'New'

            #translateLabel: true

            #submenuChannel: #newMenu

          )

         #(#MenuItem

            #label: 'Properties...'

            #translateLabel: true

            #value: #doShowProperties

            #enabled: #hasSelection

          )

         #(#MenuItem

          )

         )

        nil

        nil

      )

!

viewBrowserMenu

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

     (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'View Details'

            #translateLabel: true

            #hideMenuOnActivated: false

            #indication: #viewDetails

          )

         #(#MenuItem

            #label: 'View Suffix'

            #translateLabel: true

            #hideMenuOnActivated: false

            #enabled: #viewDetails

            #indication: #viewType

          )

         #(#MenuItem

            #label: 'View Permissions'

            #translateLabel: true

            #hideMenuOnActivated: false

            #enabled: #viewDetails

            #indication: #viewPermissions

          )

         #(#MenuItem

            #label: 'View Owner'

            #translateLabel: true