"{ Package: 'stx:libtool' }"

AbstractFileBrowser subclass:#DirectoryContentsBrowser

	instanceVariableNames:'updateColumnsTask modificationTime directory columnDescriptors

		iconIndex fileDescriptionIndex iconExtent tableColumns

		previewIndex allItemsList updateToExternFileHolderLock inDropMode

		draggedItem canDropItem viewBrowserMenu updateContentsSelection

		selectionInFileList contentsBrowser browserItemList matchBlock

		updateContentsTask'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

Object subclass:#DirectoryContentsItem

	instanceVariableNames:'fileName fileInfo icon fileType

		contentsBrowserChangeModificationTime suffix preview group owner

		timeAndDate mimeType iconKey mimeTypeForContents'

	classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'

	poolDictionaries:''

	privateIn:DirectoryContentsBrowser

!

Object subclass:#DirectoryContentsUpdateTask

	instanceVariableNames:'directoryBrowser updateProcess isBusy changeSema

		directoryChangeFlag directoryContentsChangeFlag filterChangeFlag

		sortBlockChangeFlag modificationTime filteredItems

		modificationTask directory'

	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:true

"

! !

!DirectoryContentsBrowser class methodsFor:'classAccess'!

itemClass

    ^ DirectoryContentsItem

"

self itemClass

"

! !

!DirectoryContentsBrowser class methodsFor:'constant'!

updateTaskPriority

    "returns the priority of the update task

    "

    ^ 8

! !

!DirectoryContentsBrowser class methodsFor:'image specs'!

detailsMenuIconDown

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

     ImageEditor openOnClass:self andSelector:#detailsMenuIconDown

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DirectoryContentsBrowser class detailsMenuIconDown'

        ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@(UJ(b') ; yourself); yourself]

!

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 class detailsMenuIconR'

        ifAbsentPut:[(Depth1Image new) width: 5; height: 7; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 5; height: 7; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' DB TJA@ @@a') ; yourself); yourself]

!

detailsMenuIconUp

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

     ImageEditor openOnClass:self andSelector:#detailsMenuIconUp

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DirectoryContentsBrowser class detailsMenuIconUp'

        ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'*%P(D@@b') ; yourself); yourself]

! !

!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: ''

         #id: #icon

         #labelButtonType: #Group

         #labelActionSelector: #showDetailMenu

         #width: 22

         #minWidth: 22

         #height: 16

         #model: #icon

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Filename'

         #id: #filename

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

         #labelActionArgument: 'baseName'

         #minWidth: 150

         #model: #baseName

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Suffix'

         #id: #suffix

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

         #labelActionArgument: 'suffix'

         #width: 40

         #model: #suffix

         #canSelect: false

         #isResizeable: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Perm'

         #id: #perm

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

         #labelActionArgument: 'permissions'

         #width: 75

         #model: #permissions

         #canSelect: false

         #isResizeable: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Owner'

         #id: #owner

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

         #labelActionArgument: 'owner'

         #usePreferredWidth: true

         #width: 50

         #model: #owner

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Group'

         #id: #group

         #labelAlignment: #left

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

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

         #labelActionArgument: 'fileSize'

         #columnAlignment: #right

         #usePreferredWidth: true

         #model: #sizeString

         #canSelect: false

         #showRowSeparator: false

         #showColSeparator: false

       )

      #(#DataSetColumnSpec

         #label: 'Date & Time'

         #id: #time

         #labelAlignment: #right

         #labelButtonType: #Button

         #labelActionSelector: #sortFileListsBy:

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

         #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 16 42 604 520)

          #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

                )

              )

              #viewClassName: 'DirectoryContentsBrowser::Widget'

              #postBuildCallback: #postBuildBrowser:

              #properties: 

             #(#PropertyListDictionary

                #dropSelector: #doDrop:

                #dragArgument: #contentsbrowser

                #startDragSelector: #doStartDrag:in:

                #displayObjectSelector: #getDisplayObjects:

                #dropObjectSelector: #getDropObjects:

                #dropArgument: #browser

                #canDropSelector: #canDrop:

                #leaveSelector: #dropLeave:

                #enterSelector: #dropEnter:

                #overSelector: #dropOver:

              )

            )

           )

        )

      )

! !

!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

            #label: 'More'

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'File In'

                  #translateLabel: true

                  #value: #fileFileIn

                  #enabled: #hasSelection

                  #shortcutKeyCharacter: #Accept

                )

               #(#MenuItem

                  #label: 'File in to NameSpace...'

                  #translateLabel: true