"

 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 pathEntryField previewProcess'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

ApplicationModel subclass:#SettingDialog

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:FileBrowserV2

!

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

    instance := self new createBuilder.

    aDirectoryPath isCollection ifTrue:[

        files := aDirectoryPath

    ] ifFalse:[

        files := Array with:aDirectoryPath.

    ].

    instance currentFileNameHolder value:files.

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

applicationIcon

    ^ NewLauncher startNewFileBrowserIcon

!

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 currentLauncher|

    FileBrowserV2 isNil ifTrue:[^ self].

    action := [FileBrowserV2 open].

    icon := self applicationIcon. "/ self defaultIcon magnifiedTo:28@28.

    menuItem := MenuItem new 

                    translateLabel: true;

                    value: action;

                    isButton: false;

                    label:'File Browser V2' icon:icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

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

    menuItem := MenuItem new 

                    translateLabel: true;

                    value: action;

                    isButton: true;

                    "label:'File Browser V2'" icon:icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

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

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher settingsDialogClass addApplClass:#'FileBrowserV2SettingsAppl' 

                                    withName:'FileBrowserV2' 

                                    inCategory:'Tools' 

                                    icon:nil.

    "

     self installInLauncher

     self removeFromLauncher

    "

!

removeFromLauncher

    "/

    "/ remove myself from the launcher menu

    "/

    |currentLauncher|

    NewLauncher isNil ifTrue:[^ self].

    NewLauncher removeUserTool:#fileBrowserV2.

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher settingsDialogClass removeApplByClass:#'FileBrowserV2SettingsAppl'.

    "

     self removeFromLauncher

    "

! !

!FileBrowserV2 class methodsFor:'defaults'!

entryFieldEndStringForMultipleSelection

    ^ ('[*]')

! !

!FileBrowserV2 class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    |spec hist|

    spec := super flyByHelpSpec addPairsFrom:#(

#addTerminal

'Shell Terminal'

#make

'Make'

#searchFile

'Search a File'

#directoryUp

'Directory Up'

#directoryBack

'Directory Back'

#directoryForward

'Directory Forward'

#directoryHistory

'Directory'

#copyFile

'Copy File'

#cutFile

'Cut File'

#fileHome

'Home Directory'

#pasteFile

'PasteFile'

#deleteFile

'Delete File'

#fileIn

'File In'

#fileHistory

'File History'

#hideToolBar

'Hide Toolbar'

#hideFilenameEntryField

'Hide Filename Field'

#showFileDetails

'Show File Details'

#hideFileDetails

'Hide File Details'

#toggleDetails

'Show/Hide File Details'

).

    hist := self directoryHistory.

    hist notNil ifTrue:[

        hist canForward ifTrue:[

            spec at:#directoryForward put:(self classResources string:'Forward to: %1' with:hist nextForwardItem).

        ].

        hist canBackward ifTrue:[

            spec at:#directoryBack put:(self classResources string:'Back to: %1' with:hist nextBackwardItem).

        ].

    ].

    ^ spec.

    "

     self flyByHelpSpec

    "

!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:FileBrowserV2    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

)

! !

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

viewDetailsIcon

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

     ImageEditor openOnClass:self andSelector:#viewDetailsIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'FileBrowserV2 class viewDetailsIcon'

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

!

viewNoDetailsIcon

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

     ImageEditor openOnClass:self andSelector:#viewNoDetailsIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'FileBrowserV2 class viewNoDetailsIcon'

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

! !

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

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

          #menu: #mainMenu

          #icon: #applicationIcon

        )

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