"

 COPYRIGHT (c) 1991 by Claus Gittinger

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

AbstractFileBrowser subclass:#FileBrowserV2

	instanceVariableNames:'fileEntryFieldHolder'

	classVariableNames:'Icons'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

              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

"

    FileBrowserV2 is based on Filebrowser created by Claus Gittinger

    WARNING: files edited with FileBrowser will have leading spaces (multiple-8)

             being replaced by tabs. If tabs are to be preserved at other

             positions (for example, sendmail-config files) they will be

             corrupt after being written.

    [instance variables]:

        checkDelta      <Integer>       number of seconds of check interval

                                        (looks ever so often if shown directory

                                         has changed). You may make this number

                                        higher, if your network-times are

                                        incorrect and thus, the filebrowser

                                        checks too often.

        compressTabs    <Boolean>       if true, leading spaces will be

                                        replaced by tabs when saving text

    some of the defaults (long/short list etc.) can be set by the resource file;

    see FileBrowser>>initialize for more details..

    [author:]

        Christian Penk

    [start with:]

        FileBrowserV2 open

"

! !

!FileBrowserV2 class methodsFor:'instance creation'!

on:aDirectoryPath

    "return a new FileBrowserV2 in a pathname"

    | instance|

    instance := self new.

    instance currentFileNameHolder value:(Array with:aDirectoryPath).

    ^ instance

"/    | instance builder|

"/

"/    builder := super open.

"/    instance := builder application.

"/    instance currentFileNameHolder value:aDirectoryPath.

"/    ^ instance

    "

     (FileBrowserV2 on:'/usr/local/bin') open

     (FileBrowserV2 on:'/etc'          ) open

     (FileBrowserV2 on:'..'            ) open

     (FileBrowserV2 on:'.'             ) open

    "

!

open

    "start a new FileBrowserV2"

    | instance |

    instance := self new.

    instance open.

    ^ instance

    "

     FileBrowserV2 openOn:'/etc'           withExtent:800@600

     FileBrowserV2 openOn:'..'             withExtent:200@300

     FileBrowserV2 openOn:'.'              withExtent:1024@768

    "

!

openOn:aDirectoryPath 

    "start a new FileBrowserV2 in a pathname"

    | instance|

    instance := self on:aDirectoryPath asFilename.

    ^ instance open.

    "

     FileBrowserV2 openOn:'/etc'           

     FileBrowserV2 openOn:'..'           

     FileBrowserV2 openOn:'.'             

    "

!

openOn:aDirectoryPath withExtent:extent

    "start a new FileBrowserV2 in a pathname"

    | instance builder|

    instance := self on:aDirectoryPath.

    builder := instance open.

    builder window extent:extent.

    ^ instance

    "

     FileBrowserV2 openOn:'/etc'           withExtent:800@600

     FileBrowserV2 openOn:'..'             withExtent:200@300

     FileBrowserV2 openOn:'.'              withExtent:1024@768

    "

!

openWithAspects:someAspects withExtent:extent

    "start a new FileBrowserV2 in a pathname"

    |dir clone|

    dir := someAspects at:#currentFileNameHolder ifAbsent:nil.

    clone := self openOn:(dir value) withExtent:extent.

    "

     FileBrowserV2 openOn:'/etc'           withExtent:800@600

     FileBrowserV2 openOn:'..'             withExtent:200@300

     FileBrowserV2 openOn:'.'              withExtent:1024@768

    "

! !

!FileBrowserV2 class methodsFor:'class initialization'!

clearHistoryIcon

    ^ Icon deleteIcon

!

initialize

    self installInLauncher.

!

initializeDefaultCommands

    DefaultCommandPerMIME := Dictionary new.

    DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.

    DefaultCommandPerMIME at:'application/pdf'              put:'acroread %1'.

    "

     self initializeDefaultCommands

    "

!

installInLauncher

    "add myself to the launcher menu and toolBar"

    |menuItem icon action|

    FileBrowserV2 isNil ifTrue:[^ self].

    action := [FileBrowserV2 open].

    menuItem := MenuItem new 

                    label: 'FileBrowser V2';

                    value: action;

                    isButton: false;

                    labelImage: (LabelAndIcon icon:icon string:'FileBrowser V2');

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

    NewLauncher addMenuItem:menuItem in:'menu.file' position:#( #before #fileBrowser) space:true.

    menuItem := MenuItem new 

                    label: 'FileBrowser V2';

                    value: action;

                    isButton: true;

                    labelImage: icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

    NewLauncher addMenuItem:menuItem in:'toolbar' position:#( #before #fileBrowser) space:false.

    "

     self installInLauncher

     self removeFromLauncher

    "

!

removeFromLauncher

    "/

    "/ remove myself from the launcher menu

    "/

    NewLauncher isNil ifTrue:[^ self].

    NewLauncher removeUserTool:#fileBrowserV2

    "

     self removeFromLauncher

    "

! !

!FileBrowserV2 class methodsFor:'defaults'!

entryFieldEndStringForMultipleSelection

    ^ ('[*]')

! !

!FileBrowserV2 class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    |spec|

    spec := super flyByHelpSpec addPairsFrom:#(

#addTerminal

'Shell Terminal'

#searchFile

'Search a File'

#directoryUp

'Up'

#directoryBack

'Back'

#copyFile

'CopyFile'

#cutFile

'CutFile'

#fileHome

'Home'

#pasteFile

'PasteFile'

#deleteFile

'DeleteFile'

#fileIn

'FileIn'

#directoryForward

'Forward'

#directoryHistory

'Directory'

#fileHistory

'History'

#hideToolBar

'Hide Toolbar'

#hideFilenameEntryField

'Hide Filename Field'

).

    ^ spec.

! !

!FileBrowserV2 class methodsFor:'icon'!

defaultIcon

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

     ImageEditor openOnClass:self andSelector:#defaultIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'FileBrowserV2 class defaultIcon'

        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@CLA&Y&Y&Y&X@@ADP@@@L0F@@@@@@A @ADAD@@@3@XN;.;.8F@ADPDQ@@CLA ;.@@@@@@D@@@D@@L0FC.8O[6=/@QDADP@@3@X@; 

[6=/[0DPDP@@CLA DNC6<@@F<ADP@@@L0F@A@F= [0= @@@@@@3@X@@P=/[6=/@@@@@@CLA @@A/[6=/X@@@@@@L0FC0@O[6=/[0@@@@@@3@XF<@@@@@@@@@

@@@@CLA = @@@@@@@@@@@@@L0FA/[6=/A @@@@@@@@3@XO[6=/XF@@@@@@@@CLA @@@@@@X@@@@@@@@L0FY&Y&Y&Y @@@@@@@@C@Y&Y&Y&Y&@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

O??# C??9<@??>? O???<C????@????0O???8C???<@???>@O??<@C???@@???0@O??<@C??8@@??>@@O?? @C??8@@??>@@G?? @@??8@@@@@@@G.P=0AAD

HP@PQBD@GDP8 AADHD@PQBA@DN^=0@@a') ; yourself); yourself]

!

hideFilenameEntryFieldIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH14

!

hideToolBarIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH26

! !

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

     FileBrowserV2 new openInterface:#windowSpec

     FileBrowserV2 open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: #FileBrowser

          #name: #FileBrowser

          #min: #(#Point 10 10)

          #max: #(#Point 1152 864)

          #bounds: #(#Rectangle 16 42 816 642)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#ViewSpec

              #name: 'ToolbarBox'

              #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)

              #level: 0

              #visibilityChannel: #toolBarVisibleHolder

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ActionButtonSpec

                    #label: 'hideToolBarIcon'

                    #name: 'HideToolBarButton'

                    #layout: #(#LayoutFrame 0 0 0 0 13 0 30 0)

                    #activeHelpKey: #hideToolBar

                    #hasCharacterOrientedLabel: false

                    #translateLabel: true

                    #model: #hideToolbar

                    #postBuildCallback: #hideToolBarButtonCreated:

                  )

                 #(#MenuPanelSpec

                    #name: 'ToolBar'

                    #layout: #(#LayoutFrame 13 0 0 0 0 1 30 0)

                    #menu: #toolBarMainMenu

                    #textDefault: true

                  )

                 )

              )

            )

           #(#ViewSpec

              #name: 'FilenameEntryFieldBox'

              #layout: #(#LayoutFrame 0 0 30 0 0 1 55 0)

              #level: 0

              #visibilityChannel: #filenameEntryFieldVisibleHolder

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ActionButtonSpec

                    #label: 'hideFilenameEntryFieldIcon'

                    #name: 'HideFilenameEntryFieldButton'

                    #layout: #(#LayoutFrame 0 0 0 0 13 0 0 1)

                    #activeHelpKey: #hideFilenameEntryField

                    #hasCharacterOrientedLabel: false

                    #translateLabel: true

                    #model: #hideFilenameEntryField

                    #postBuildCallback: #hideFilenameEntryFieldButtonCreated:

                  )

                 #(#ViewSpec

                    #name: 'Box1'

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

                    #level: 1

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#VariableHorizontalPanelSpec

                          #name: 'VariableHorizontalPanel1'

                          #layout: #(#LayoutFrame 1 0.0 1 0.0 -1 1.0 -1 1.0)

                          #level: 0

                          #showHandle: true

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#FilenameInputFieldSpec

                                #name: 'FilenameEntryField'

                                #level: 1

                                #model: #fileEntryFieldHolder

                                #acceptOnPointerLeave: false

                                #postBuildCallback: #postBuildPathField:

                              )

                             #(#ViewSpec

                                #name: 'FilterBox'

                                #component: 

                               #(#SpecCollection

                                  #collection: #(

                                   #(#LabelSpec

                                      #label: 'Filter:'

                                      #name: 'Filter'

                                      #layout: #(#LayoutFrame 0 0 0 0 40 0 0 1)

                                      #translateLabel: true

                                      #adjust: #left

                                      #postBuildCallback: #postBuildPathViewBox:

                                    )

                                   #(#ComboBoxSpec

                                      #name: 'FilterSelectionBox'

                                      #layout: #(#LayoutFrame 40 0 0 0 0 1 0 1)

                                      #model: #filterModel

                                      #immediateAccept: true

                                      #acceptOnPointerLeave: false

                                      #comboList: #filterListModel

                                    )

                                   )

                                )

                                #postBuildCallback: #postBuildPathViewBox:

                              )

                             )

                          )

                          #handles: #(#Any 0.8 1.0)

                          #postBuildCallback: #postBuildPathViewBox:

                        )

                       )

                    )

                    #postBuildCallback: #postBuildPathViewBox:

                  )

                 )

              )

            )

           #(#ViewSpec

              #name: 'BrowserBox'

              #layout: #(#LayoutFrame 0 0.0 55 0 0 1.0 -20 1)

              #level: 0

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#'FileBrowserV2UISpecifications::PanelSpec'

                    #name: 'VerticalPanel'

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

                    #level: 0

                    #whichView: #last

                    #orientation: #vertical

                    #visibility: #viewNoteBookApplicationHolder

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#'FileBrowserV2UISpecifications::PanelSpec'

                          #name: 'HorizontalPanel'

                          #level: 0

                          #whichView: #first

                          #orientation: #horizontal

                          #visibility: #showDirectoryTreeHolder

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#SubCanvasSpec

                                #name: 'DirectoryTreeBrowser'

                                #hasHorizontalScrollBar: false

                                #hasVerticalScrollBar: false

                                #majorKey: #DirectoryTreeBrowser

                                #createNewApplication: true

                                #createNewBuilder: true

                              )

                             #(#SubCanvasSpec

                                #name: 'DirectoryContentsBrowser'

                                #hasHorizontalScrollBar: false

                                #hasVerticalScrollBar: false

                                #majorKey: #DirectoryContentsBrowser

                                #createNewApplication: true

                                #createNewBuilder: true

                              )

                             )

                          )

                          #handles: #(#Any 0.229621 1.0)

                        )

                       #(#SubCanvasSpec

                          #name: 'FileApplicationNoteBook'

                          #hasHorizontalScrollBar: false

                          #hasVerticalScrollBar: false

                          #majorKey: #FileApplicationNoteBook

                          #createNewApplication: true

                          #createNewBuilder: true